ivec. s 


Fri Sep 5 19:08:57 1986 


1 


1 Copyright 1982 Unisoft Corporation 


bsr 

Ifault 

1 67 

(User Interrupt Vector) 





bsr 

Ifault 

1 68 

(User Interrupt Vector) 





bsr 

Ifault 

1 69 

(User Interrupt Vector) 

1 Interrupt vector dispatch 

table 


bsr 

Ifault 

1 70 

(User Interrupt Vector) 

1 One entry per 

interrupt vector location 

bsr 

Ifault 

1 71 

(User Interrupt Vector) 





bsr 

Ifault 

! 72 

(User Interrupt Vector) 

.text 




bsr 

Ifault 

1 73 

(User Interrupt Vector) 

.globl 

_dispate, _pmvect, _tevect 

bsr 

Ifault 

1 74 

(User Interrupt Vector) 

_dispate; 




bsr 

Ifault 

1 75 

(User Interrupt Vector) 

bsr 

1fault 

1 0 

Reset: Initial SSP 

bsr 

Ifault 

1 76 

(User Interrupt Vector) 

bsr 

Ifault 

1 1 

Reset; Initial PC 

bsr 

Ifault 

1 77 

(User Interrupt Vector) 

bsr 

Ibuserr 

! 2 

Bus Error 

bsr 

Ifault 

1 78 

(User Interrupt Vector) 

bsr 

laddrerr 

1 3 

Address Error 

bsr 

Ifault 

1 79 

(User Interrupt Vector) 

bsr 

Ifault 

i 4 

Illegal Instruction 

bsr 

Ifault 

1 80 

(User Interrupt Vector) 

bsr 

Ifault 

1 5 

Zero Divide 

bsr 

Ifault 

1 81 

(User Interrupt Vector) 

bsr 

Ifault 

1 6 

CHK Instruction 

bsr 

Ifault 

1 82 

(User Interrupt Vector) 

bsr 

Ifault 

1 7 

TRAPV Instruction 

bsr 

Ifault 

1 83 

(User Interrupt Vector) 

bsr 

Ifault 

1 s 

Privilege Violation 

bsr 

Ifault 

1 84 

(User Interrupt Vector) 

bsr 

Ifault 

1 9 

Trace 

bsr 

Ifault 

j 85 

(User Interrupt Vector) 

bsr 

Ifault 

1 10 

Line 1010 Emulator 

bsr 

Ifault 

1 86 

(User Interrupt Vector) 

bsr 

Ifault 

1 11 

Line 1111 Emulator 

bsr 

Ifault 

1 87 

(User Interrupt Vector) 

bsr 

Ifault 

1 12 

(Unassigned, reserved) 

bsr 

Ifault 

1 88 

(User Interrupt vector) 

bsr 

Ifault 

1 13 

(Unassigned, reserved) 

bsr 

Ifault 

I 89 

(User Interrupt Vector) 

bsr 

Ifault 

1 14 

(Unassigned, reserved) 

bsr 

Ifault 

1 90 

(User Interrupt Vector) 

bsr 

Ifault 

1 15 

(Unassigned, reserved) 

bsr 

Ifault 

1 91 

(User Interrupt Vector) 

bsr 

Ifault 

i 16 

(Unassigned, reserved) 

bsr 

Ifault 

1 92 

(User Interrupt Vector) 

bsr 

Ifault 

1 17 

(Unassigned, reserved) 

bsr 

Ifault 

1 93 

(User Interrupt Vector) 

bsr 

Ifault 

1 18 

(Unassigned, reserved) 

bsr 

Ifault 

1 94 

(User Interrupt Vector) 

bsr 

Ifault 

1 19 

(Unassigned, reserved) 





bsr 

Ifault 

1 20 

(Unassigned, reserved) 

1 Values for expansion card interrupt vectors when Priam card present. 

bsr 

Ifault 

1 21 

(Unassigned, reserved) 

pmvect: 




bsr 

Ifault 

1 22 

(Unassigned, reserved) 

bsr 

pmint3 

1 27 

Level 3 exp slot 3, Priam card 

bsr 

Ifault 

1 23 

(Unassigned, reserved) 

bsr 

pmint2 

1 28 

Level 4 exp slot 2, Priam card 

bsr 

Ifault 

1 24 

Spurious Interrupt 

bsr 

pmintl 

j 29 

Level 5 exp slot 1, Priam card 

bsr 

llintr 

1 25 

Level 1 pp 0, Sony, vert retrace (clock) 





bsr 

kbintr 

1 26 

Level 2 cops, mouse, rtclock, buttons 

t Values for expansion card interrupt vectors when Techmar card present, 

bsr 

pi 5 

1 27 

Level 3 exp slot 3 (default 2-port card) 

_tevect; 




bsr 

pi4 

1 28 

Level 4 exp slot 2 (default 2-port card) 

bsr 

teintS 

1 27 

Level 3 exp slot 3, Tecmar card 

bsr 

pi3 

1 29 

Level 5 exp slot 1 (default 2-port card) 

bsr 

teint2 

1 28 

Level 4 exp slot 2, Tecmar card 

bsr 

scintr 

t 30 

Level 6 see chip 

bsr 

teintl 

1 29 

Level 5 exp slot 1, Tecmar card 

bsr 

nitd 

1 31 

Level 7 Interrupt Autovector 





bsr 

Isyscall 

1 32 

System Call 

j Put actual "C 

" routine name 

onto the 

stack and call the system 

bsr 

Ifault 

1 33 

TRAP Instruction Vector 

j interrupt dispatcher 



bsr 

Ifault 

1 34 

TRAP Instruction Vector 





bsr 

Ifault 

1 35 

TRAP Instruction Vector 

.globl 

call, fault. 

buserr, addrerr, syscall, idleflg 

bsr 

Ifault 

1 36 

TRAP Instruction Vector 





bsr 

Ifault 

1 37 

TRAP Instruction Vector 

Ifault; jmp 

fault 



bsr 

Ifault 

1 38 

TRAP Instruction Vector 

Ibuserr:jmp 

buserr 



bsr 

Ifault 

1 39 

TRAP Instruction Vector 

laddrerr:jmp 

addrerr 



bsr 

Ifault 

1 40 

TRAP Instruction Vector 

Isyscall;jmp 

syscall 



bsr 

Ifault 

1 41 

TRAP Instruction Vector 





bsr 

Ifault 

1 42 

TRAP Instruction Vector 

1 tty interrupt priority entry point 

bsr 

Ifault 

1 43 

TRAP Instruction Vector 

.globl 

_splttY 



bsr 

Ifault 

1 44 

TRAP Instruction Vector 

_spltty;movw 

sr, dO 

1 fetch current CPU priority 

bsr 

Ifault 

1 45 

TRAP Instruction Vector 

movw 

#0x2600,sr 

1 set priority 6 

bsr 

Ifault 

1 46 

TRAP Instruction Vector 

rts 




bsr 

Ifault 

1 47 

TRAP Instruction Vector 





bsr 

Ifault 

1 48 

(Unassigned, reserved) 

.globl 

_llintr 



bsr 

Ifault 

1 49 

(Unassigned, reserved) 

llintr: movw 

#0x2600,sr 

1 go to spl6 

bsr 

Ifault 

1 50 

(Unassigned, reserved) 

movl 

# llintr,spg 

1 push call address 

bsr 

Ifault 

! 51 

(Unassigned, reserved) 

movw 

idleflg,sp@- 

1 clock needs old value so cheat 

bsr 

Ifault 

1 52 

(Unassigned, reserved) 

jmp 

call 

1 jump to common interrupt handler 

bsr 

Ifault 

1 53 

(Unassigned, reserved) 





bsr 

Ifault 

1 54 

(Unassigned, reserved) 

.globl 

_kbintr 



bsr 

Ifault 

1 55 

(Unassigned, reserved) 

kbintr; movl 

#_kbintr, spg 

1 push call address 

bsr 

Ifault 

I 56 

(Unassigned, reserved) 

clrw 

sp8- 

1 device number 

bsr 

Ifault 

1 57 

(Unassigned, reserved) 

jmp 

call 

1 jump 

to common interrupt handler 

bsr 

Ifault 

1 58 

(Unassigned, reserved) 





bST 

Ifault 

! 59 

(Unassigned, reserved) 

.globl 

_ppintr 



bsr 

Ifault 

1 60 

(Unassigned, reserved) 

pi3; movl 

# ppintr,spS 

1 push 

call address 

bsr 

Ifault 

1 61 

(Unassigned, reserved) 

movw 

#1,spg- 

1 device number 

bsr 

Ifault 

1 62 

(Unassigned, reserved) 

jmp 

call 

1 jump 

to common interrupt handler 

bsr 

Ifault 

1 63 

(Unassigned, reserved) 





bsr 

Ifault 

i 64 

(User Interrupt Vector) 

pi 4; movl 

♦_ppintr,spg 

1 push 

call address 

bsr 

Ifault 

1 65 

(User Interrupt Vector) 

movw 

#4, spB- 

1 device number 

bsr 

Ifault 

1 66 

(User Interrupt Vector) 


call 

1 jump 

to common interrupt handler 
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piS; movl *_ppintr,sp8 

movw *7,sp8- 

jmp call 

. globl _jsnintr 

pmint3: movl t_pniintr, spg 

movw #2,sp0- 

jmp call 

pmint2: movl #_pimintr, spS 

movw #l,sp@- 

jmp call 

pmintl; movl #_jaaintr, sp8 

clrw sp@- 

jmp call 

,globl _scintr 

scintr: movl #_scintr,sp9 

movw ilfSpS*- 

jmp call 

. globl _nmi]cey 

nmi: movl #_nmikey, sp8 

movw #O,sp0- 

jmp call 

.globl _teintr 

teintS: movl #’_teintr, sp§ 

movw #2,sp@- 

jmp call 

teint2: movl #_teintr,sp@ 

movw #l,sp@- 

jmp call 

teintl: movl #_teintr,sp0 

clrw 3p@“ 

jmp call 


push call address 
device number 

ji 2 mp to common interrupt handler 

push call address 
device number 

jump to common interrupt handler 

push call address 
device nimtber 

jump to common interrupt handler 

push call address 
device number 

jump to common interrupt handler 

push call address 
device number 

jump to common interrupt handler 

push call address 
device number 

jump to common interrupt handler 

push call address 
device number 

jump to common interrupt handler 

push call address 
device nijmaber 

jump to common interrupt handler 

push call address 
device number 

jump to common interrupt handler 
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1 USIZE 

dependencies 




moveml 

#OxFCFC,aO0 

1 save d2-d7, a2-a7 

USI2E 

= 0x800 


1 Size 

of U area 


movl 

al,a0e{48) 

i save return address 

PGSIZE 

- 512 


1 Size 

of a page 


moveq 

#0,d0 


PAGESHIFT- 9 


1 Page 

shift 


jmp 

aie 

1 return 

! Confi 

cruration 

dependencies 



_qsave ; 

movl 

sp0+,al 

! return address 

HIGH 

= 0x2700 

i High priority supervisor mode (spl 7) 


movl 

sp0,aO 

1 ptr to label_t 

LOW 

= 0x2000 

1 Low priority, supervisor mode (spl 0) 


addw 

#40,aO 


USTART 

- 0x0 


1 Start 

of user program 


movl 

a6,aO0+ 

1 save a6 

PAGEBASE= OxAOOOOO 

1 Base 

page address 


movl 

a7,aO0+ 

1 save a7 

UDOT 

- OxFAOOOO 

1 Logical start of U dot 


movl 

al,aO0+ 

1 save return address 

UBASE 

= PAGEBASE+UDOT 

! U dot 

page map address 


moveq 

#0,d0 








jmp 

aie 

1 return 

SETUP_0 

= 0XFCEQ12 

1 Turn 

setup bit off 





SETUP_1 

= OxFCEOlO 

1 Turn 

setup bit on 

_resume 

:movl 

sp0 (4) ,d0 

i click address of new udot 

SEG1_0 

- OxFCEOOS 

1 Turn 

SEGl bit off 


movl 

sp0(8),aO 

1 ptr to label t 

SEG1_1 

= OxFCEOOA 

1 Turn 

SEGl bit on 


movw 

#HIGH,sr 

1 spl 7 

SEG2_0 

- OxFCEOOC 

1 Turn 

SEG2 bit off 


movb 

#0,SEG1_0 

1 Set Contex 0 

SEG2_1 

- OxFCEQQE 

1 Turn 

SEG2 bit on 

1 

movb 

#0,SEG2__Q 

1 Set Contex 0 







addw 

_segoff,dO 

1 Add segment offset 


.globl 

_u, _segoff 




movb 

#0,SETUP_1 

1 Enable MMU modification 


.data 





movw 

d0,UDOT+0x8008 

1 Segment origin 

_U 

- UDOT 





movw 

#0x7FC,UDOT+0x8000 [ Segment access and length (2k) 

cputype 

; .word 

0 

1 Local 

copy of _cputype, 0 if 68000 


movb 

to, SETUP 0 

1 Disable MMU modification 







movb 

#0,SEG1_1 

1 Set Contex 1 


.text 




1 

movb 

#0,SEG2_0 

1 Set Contex 1 


.globl 

start, _end, _edata, _main, cputype, dispatc 


moveml 

a08+,#OxFCFC 

1 restore the registers 







movw 

#LC3W, sr 

1 restore spl 0 

start: 

movw 

*HIGH,sr 


1 spl? 


movl 

aO0,al 

1 fetch the original pc 


movl 

#_end+PGSIZE+USIZE-l,d7 

1 End of Unix 


moveq 

#l,d0 

1 return 1 


andl 

*-PGSIZE,d7 


1 Round to nearest click 


jmp 

al0 

1 return 


movl 

#_edata,a0 


1 Start clearing here 





clrbss: 

movl 

*0,a08+ 


1 Clear bss 

1 spl commands 




cmpl 

d7,a0 




.globl 

_splhi,_spl7,_ 

spl 6 , _spl 5 , _spl4, _spl3 , _spl2, _spl 1, _spl 0 , _splx 


jcs 

clrbss 












splhi: 





1 Determine cpu type 



_spl7: 

movw 

sr,d0 

1 fetch current CPU priority 


movl 

il$,16 


1 Illegal instruction vector 


movw 

#0x2700,sr 

1 set priority 7 


.word 

0x4E7A 


1 movec 


rts 




.word 

0x0801 


1 vbr,dO 

_spl6: 

movw 

sr,d0 

1 fetch current CPU priority 


movl 

#68010, _cputype 


i No trap. Must be 68010 


movw 

#0x2600,sr 

1 set priority 6 


movw 

#1,cputype 


1 Local copy 


rts 








_spl5: 

movw 

sr,d0 

1 fetch current CPU priority 

1$: 

subl 

#USIZE,d7 


1 Start of U dot 


movw 

#0x2500,sr 

1 set priority 5 


moveq 

#PAGESHIFT,dl 


1 Calculate U dot page entry 


rts 




Isrl 

dl,d7 


1 Calculate U dot page entry 

_spl4: 

movw 

sr,d0 

1 fetch current CPU priority 


movb 

#0,SEG1_0 


1 Set Contex 0 


movw 

#0x2400,sr 

1 set priority 4 


movb 

i0,SEG2_0 


1 Set Contex 0 


rts 




movb 

#0,SETUP 1 


1 Enable MMU modification 

_spl3: 

movw 

sr,d0 

1 fetch current CPU priority 


movw 

0+0x8008,dl 


1 Read segment origin 


movw 

#0x2300,sr 

1 set priority 3 


movb 

#0,SETUP_0 


1 Disable MMU modification 


rts 




andl 

#0xFFF,dl 


1 Take just what is valid 

_spl2; 

movw 

sr,d0 

1 fetch current CPU priority 


movw 

dl,_segoff 


1 Save segment offset 


movw 

#0x2200,sr 

1 set priority 2 


addl 

dl,d7 


1 Add segment offset 


rts 




movb 

#0,SETUP_1 


1 Enable MMU modification 

_spll: 

movw 

sr,d0 

1 fetch current CPU priority 


movw 

d7,UDOT+0x8008 


1 Segment origin 


movw 

#0x2100,sr 

1 set priority 1 


movw 

#0x7FC,UDOT+0x80Q0 

1 Segment access and length (4 clicks) 


rts 




movb 

#0,SETUP 0 


1 Disable lOlU modification 

_spl0; 

movw 

sr,d0 

1 fetch current CPU priority 


subl 

dl,d7 


1 Subtract off segment offset 


movw 

#0x2000,sr 

1 set priority 0 


movl 

#UDOT+USIZE,sp 


1 Set stack at top of U area 


rts 




jsr 

_tminit 


1 initialize raster display 

_splx: 

movw 

sp0 (6), sr 

1 set priority 







rts 




movl 

d7,spe- 


1 Click address of udot to main 






jsr 

_main 


1 Long jump to unix, init returns here 


.data 









.globl 

idleflg 



clrl 

sp§- 


1 Indicate short 4 byte stack format 

idleflg:.word 

0 



movl 

♦USTART,sp§- 


1 starting program address 






clrw 



I New sr value 


.text 




rte 



1 Call init 


.globl 

idle, idle!. 

waitloc 






_idle: 

movw 

sr,d0 

1 Fetch current CPU priority 

1 save 

and restore of register 

sets 



movw 

#l,_idleflg 

1 Set idle flag 







movw 

+0x2000,sr 

1 Set priority zero 


.globl 

_save, resume. 

gsave 


idlel: 

tstw 

idleflg 

1 Wait for interrupt; 

_save: 

movl 

spg+,al 

1 return address 

waitloc: 


1 Pseudo location addr used by kernel profiling 


movl 

spg,aO 

i ptr t 

o label t 


bne 

idlel 
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addql #8,sp I pop bsr address, fcode, aaddr and ireg 

4$: raovl f_dispatc+16, spBI simulate a bsr 

bra fault 

1 common interrupt dispatch 

call; moveml tQxFFFF,sp@ 
clrw _idleflg 

movl usp,aO 

movl a0,sp8(60) 

movl spg(66),a0 

movl sp,sp8- 

jsr a08 

addql f4,sp 

j sr checknet 

btst #5,spe(70) 

jne 2$ 

tstb _riinrun 

jeq 2$ 

movl #256,dO 

jra resched 

2$; movl sp0(6O),aO 

movl a0,usp 

movb #0,SEG1_1 

I movb #0,SEG2_0 

moveml sp8+,#0x7FFF 
addw #10,sp 

rte 


I General purpose code 



.globl 

_tstb, _getusp. 

getsr 

_tstb: 

tstb 

sp8(0) 

1 stack probe instruction prototype 

getusp; 

:movl 

usp,a0 

1 get the user stack pointer 


movl 

a0,d0 



rts 



getsr; 

moveq 

#0,d0 

1 get the sr 


movw 

sr,d0 



rts 

I Net int request handler 

•globl _netisr, _netintr, 
1.globl _chkstak 
checknet: 

tstl _netisr 

beq 3$ 

movw #0x2700, sr 

tstb innet 

bne 3$ 

movb #1,innet 

movl sp,_svstak 

movl t_netstak+2996, sp 

Imovw #0x2600,sr 

mow #0x2000, sr 

jsr _netintr 

raovl _svstak,sp 

clrb innet 

3$: 


.data 

innet: .byte 0 

. text 

1 .globl csl, _chkstak 

I firsr stage of checkstack routine, save regs, call real routine 
I csl: 

( moveml #0xFFFF,spg- I save all registers 

Ijsr _chkstak t really check the stack 

I moveml sp8+,#0xFFFF I restore all registers 


svstak 


I net requesting soft interrupt? 

I no; return 
I set priority 7 
I already in net code ? 

I yes: return 

I no: set flag -> in the net code 
i save stack, get net stack 

I set priority 6 
I set priority 0 
I do tasks 

I clear flag 


restore usr stack ptr 
Set Contex 1 
Set Contex 1 

restore all other registers 

sp, pop fault pc, and alignment word 

return from whence called 


save all registers 
clear idle flag 

save usr stack ptr 
fetch interrupt routine address 
push argument list pointer onto stack 
jump to actual interrupt handler 

check for net int requests 
did we come from user mode? 
no, just continue 
should we reschedule? 
no, just return normally 
256 is reschedule trap number 
go back into trap 
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1 


♦define FONTHORZ 8 
♦define FONTVERT 8 

char hmfont[] - { 


OxQO, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, OxQO, 

/* 

space */ 

0x10, 0x10, 

0x10, 

0x10, 0x00, 

0x00, 

0x10, 0x00, 

/* 

I 

*/ 

0x48, 

0x48, 

0x48, 

0x00, 

0x00, 

0x00, 

0x00, 0x00, 

/* 

n 

V 

0x48, 0x48, 

OxFC, 

0x48, 

OxFC, 

0x48, 

0x48, 

0x00, 

/* 

♦ 

*/ 

0x10, 

0x3C, 

0x50, 

0x38, 0x14, 

0x78, 

0x10, 0x00, 

/* 

$ 

*/ 

0x00, 

0xC4, 

0xC8, 

0x10, 0x20, 

0x4C, 

0x8C, 0x00, 

/* 

% 

*/ 

0x60, 

0x90, 

0x90, 

0x60, 0x94, 

0x88, 

0x74, 0x00, 

/* 

& 

*/ 

0x08, 

0x10, 

0x20, 

0x00, 

0x00, 

0x00, 

0x00- 0x00, 

/* 


*/ 

0x08, 0x10, 

0x20, 

0x20, 0x20, 

0x10, 

0x08, 0x00, 

/* 

( 

*/ 

0x40, 0x20, 

0x10, 

0x10, 0x10, 

0x20, 

0x40, 0x00, 

/* 

) 

*/ 

0x10, 0x54, 

0x38, 

0x7C, 0x38, 

0x54, 

0x10, 0x00, 

/* 

* 

*/ 

0x00, 0x10, 

0x10, 

0x7C, 

0x10, 

0x10, 

0x00, 0x00, 

/* 

+ 

*/ 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

0x30, 

0x30, 0x60, 

/* 

, 

*/ 

0x00, 0x00, 

0x00, 

OxFC, 

0x00, 

0x00, 

0x00, 0x00, 

/* 

- 

*/ 

0x00, 

0x00, 

0x00, 

0x00, 0x30, 

0x30, 

0x00, 

0x00, 

/* 


*/ 

0x00, 

0x04, 

0x08, 

0x10, 0x20, 

0x40, 

0x80, 0x00, 

/* 

/ 

*/ 

0x78, 

0x84, 

0x8C, 

0xB4, 

0xC4, 

0x84, 

0x78, 0x00, 

/* 

0 

*/ 

0x10, 0x30, 

0x50, 

0x10, 0x10, 

0x10, 

0x7C, 

0x00, 

/* 

1 

*/ 

0x78, 0x84, 

0x04, 

0x18, 0x60, 

0x80, 

OxFC, 0x00, 

/* 

2 

*/ 

0x78, 0x84, 

0x04, 

0x38, 

0x04, 

0x84, 

0x78, 

0x00, 

/* 

3 

*/ 

0x08, 

0x18, 

0x28, 

0x48, 

OxFC, 

0x08, 

0x08, 

0x00, 

/* 

4 

*/ 

OxFC, 

0x80, 

OxFO, 

0x08, 

0x04, 

0x88, 

0x70, 

0x00, 

/* 

5 

*/ 

0x38, 0x40, 

0x80, 

0xF8, 

0x84, 

0x84, 

0x78, 

0x00, 

/* 

6 

*/ 

OxFC, 0x84, 

0x08, 

0x10, 0x20, 

0x20, 

0x20, 0x00, 

/* 

7 

*/ 

0x78, 0x84, 

0x84, 

0x78, 0x84, 

0x84, 

0x78, 0x00, 

/* 

8 

*/ 

0x78, 0x84, 

0x84, 

0x7C, 

0x04, 

0x08, 

0x70, 0x00, 

/* 

9 

*/ 

0x00, 0x00, 

0x30, 

0x30, 0x00, 

0x30, 

0x30, 0x00, 

/* 


*/ 

0x00, 0x00, 

0x30, 

0x30, 0x00, 

0x30, 

0x30, 0x60, 

/* 

; 

*/ 

0x08, 

0x10, 

0x20, 

0x40, 

0x20, 

0x10, 

0x08, OxQO, 

/* 

< 

*/ 

0x00, 

0x00, 

0xF8, 

0x00, 

0xF8, 

0x00, 

OxQO, 0x00, 

/* 

= 

*/ 

0x40, 

0x20, 

0x10, 

0x08, 0x10, 

0x20, 

0x40, OxQO, 

/* 

> 

*/ 

0x78, 0x84, 

0x04, 

0x18, 0x20, 

0x00, 

0x20, OxQO, 

/* 

2 

*/ 

0x38, 0x44, 

0x94, 

OxAC, 0x98, 

0x40, 

0x3C, 0x00, 

/* 

i 

*/ 

0x30, 

0x48, 

0x84, 

OxFC, 

0x84, 

0x84, 

0x84, 

0x00, 

/* 

A 

*/ 

0xF8, 

0x44, 

0x44, 

0x78, 0x44, 

0x44, 

0xF8, 

0x00, 

/* 

B 

*/ 

0x78, 

0x84, 

0x80, 

0x80, 

0x80, 

0x84, 

0x78, 0x00, 

/* 

C 

*/ 

0xF8, 0x44, 

0x44, 

0x44, 0x44, 

0x44, 

OxFS, 0x00, 

/* 

D 

*/ 

OxFC, 0x80, 

0x80, 

OxFO, 0x80, 

0x80, 

OxFC, 

0x00, 

/* 

E 

*/ 

OxFC, 

0x80, 

0x80, 

OxFO, 0x80, 

0x80, 

0x80, 

0x00, 

/* 

F 

*/ 

0x78, 0x84, 

0x80, 

0x9C, 0x84, 

0x84, 

0x78, 0x00, 

/* 

G 

*/ 

0x84, 0x84, 

0x84, 

OxFC, 0x84, 

0x84, 

0x84, 0x00, 

/* 

H 

*/ 

0x38, 0x10, 

0x10, 

0x10, 0x10, 

0x10, 

0x38, 0x00, 

/* 

I 

*/ 

OxlC, 

0x08, 

0x08, 

0x08, 0x08, 

0x88, 

0x70, 0x00, 

/* 

J 

*/ 

0x84, 

0x88, 

0x90, 

OxEO, 0x90, 

0x88, 

0x84, 0x00, 

/* 

K 

*/ 

0x80, 0x80, 

0x80, 

0x80, 0x80, 

0x80, 

OxFC, 0x00, 

/* 

L 

*/ 

0x84, 

OxCC, 

0xB4, 

0xB4, 0x84, 

0x84, 

0x84, 0x00, 

/* 

M 

*/ 

0x84, 

0xC4, 

0xA4, 

0x94, 0x8C, 

0x84, 

0x84, 0x00, 

/* 

N 

*/ 

0x78, 

0x84, 

0x84, 

0x84, 0x84, 

0x84, 

0x78, 0x00, 

/* 

O 

*/ 

0xF8, 

0x84, 

0x84, 

0xF8, 0x80, 

0x80, 

0x80, 0x00, 

/* 

P 

*/ 

0x78, 

0x84, 

0x84, 

0x84, 0x94, 

0x88, 

0x74, 0x00, 

/* 

Q 

*/ 

0xF8, 

0x84, 

0x84, 

0xF8, 

0x90, 

0x88, 

0x84, 

0x00, 

/* 

R 

*/ 

0x78, 

0x84, 

0x80, 

0x78, 

0x04, 

0x84, 

0x78, 0x00, 

/* 

S 

*/ 

0x7C, 

0x10, 

0x10, 

0x10, 0x10, 

0x10, 

0x10, 

0x00, 

/* 

T 

*/ 

0x84, 0x84, 

0x84, 

0x84, 0x84, 

0x84, 

0x78, 

0x00, 

/* 

U 

*/ 

0x84, 0x84, 

0x84, 

0x48, 0x48, 

0x30, 

0x30, 

0x00, 

/* 

V 

*/ 

0x84, 0x84, 

0x84, 

0xB4, 0xB4, 

OxCC, 

0x84, 

0x00, 

/* 

w 

*/ 

0x84, 

0x84, 

0x48, 

0x30, 0x48, 

0x84, 

0x84, 

0x00, 

/* 

X 

*i 

0x44, 

0x44, 

0x44, 

0x38, 0x10, 

0x10, 

0x10, 

0x00, 

/* 

Y 

*/ 

OxFC, 

0x04, 

0x08, 

0x30, 

0x40, 

0x80, 

OxFC, 

0x00, 

/* 

Z 

*/ 

0x78, 0x40, 

0x40, 

0x40, 0x40, 

0x40, 

0x78, 

0x00, 

/* 

[ 

*/ 

0x00, 0x80, 

0x40, 

0x20, 0x10, 

0x08, 

0x04, 0x00, 

/* 

\ 

*/ 

0x78, 0x08, 

0x08, 

0x08, 0x08, 

0x08, 

0x78, 

0x00, 

/* 

] 

*/ 

0x10, 

0x28, 

0x44, 

0x00, 0x00, 

0x00, 

0x00, 

0x00, 

/* 


*/ 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

0x00, 

OxFE, 

/* 


*/ 

0'X20, 

0x10, 

0X08, 

0x00, 

0x00, 

0X00, 

0x00, 

0x00, 

/* 

T 

V 

0x00, 0x00, 

0x70, 

0x08, 

0x78, 

0x88, 

0x74, 

0x00, 

/* 

a 

*/ 

0x80, 0x80, 

0xB8, 

0xC4, 

0x84, 

OxC4, 

0xB8, 0x00, 

/* 

b 

*/ 

0x00, 0x00, 

0x78, 

0x80, 

0x80, 

0x80, 

0x78, 0x00, 

/* 

c 

*/ 

0x04, 0x04, 

0x74, 

0x8C, 

0x84, 

0x8C, 

0x74, 

0x00, 

/* 

d 

V 

0x00, 

0x00, 

0x78, 

0x84, 

OxFC, 

0x80, 

0x78, 

0x00, 

/* 

e 

*/ 

0x18, 0x24, 

0x20, 

0xF8, 

0x20, 

0x20, 

0x20, 0x00, 

/* 

f 

*/ 

0x00, 

0x00, 

0x74, 

0x8C, 

Ox8C, 

0x74, 

0x04, 0x78, 

/* 

g 

*/ 


0x80, 

0x80, 

0XB8, 

OxC4, 

0x84, 

0x84, 

0x84, 

0x00, 

/* 

h 

*/ 

0x10, 

0x00, 

0x30, 

0x10, 

0x10, 

0x10, 

0x38, 

0x00, 

/* 

i 

*/ 

0x08, 

0x00, 

0x18, 

0x08, 

0x08, 

0x08, 

0x88, 

0x70, 

/* 

j 

*/ 

0x80, 0x80, 

0x88, 

0x90, 

OxAO, 

OxDO, 

0x88, 

0x00, 

/* 

k 

*/ 

0x30, 

0x10, 

0x10, 

0x10, 

0x10, 

0x10, 

0x38, 

0x00, 

/* 

1 

*/ 

0x00, 0x00, 

OxE8, 

0x54, 

0x54, 

0x54, 

0x54, 

0x00, 

/* 

m 

*/ 

0x00, 

0x00, 

0xF8, 

0x44, 

0x44, 

0x44, 

0x44, 

0x00, 

/* 

n 

*/ 

0x00, 

0x00, 

0x38, 

0x44, 

0x44, 

0x44, 

0x38, 

0x00, 

/* 

0 

*/ 

0x00, 

0x00, 

0xB8, 

0xC4, 

OxC4, 

0xB8, 

0x80, 

0x80, 

/* 

P 

*/ 

0x00, 0x00, 

0x74, 

0x8C, 

0x8C, 

0x74, 

0x04, 

0x04, 

/* 

q 

*/ 

0x00, 

0x00, 

0xB8, 

0xC4, 

0x80, 

0x80, 

0x80, 

0x00, 

/* 

r 

*/ 

0x00, 0x00, 

0x7C, 

0x80, 

0x78, 

0x04, 

0xF8, 

0x00, 

/* 

s 

*/ 

0x20, 0x20, 

0xF8, 

0x20, 

0x20, 

0x24, 

0x18, 

0x00, 

/* 

t 

*/ 

0x00, 0x00, 

0x84, 

0x84, 

0x84, 

0x8C, 

0x74, 

0x00, 

/* 

u 

*/ 

0x00, OxQO, 

0x84, 

0x84, 

0x84, 

0x48, 

0x30, 

0x00, 

/* 

V 

*/ 

0x00, 0x00, 

0x44, 

0x44, 

0x54, 

0x54, 

Ox6C, 

OxQO, 

/* 

w 

*/ 

0x00, 0x00, 

0x84, 

0x48, 

0x30, 

0x48, 

0x84, 

0x00, 

/* 

X 

*/ 

0x00, 0x00, 

0x84, 

0x84, 

0x8C, 

0x74, 

0x04, 

0x78, 

/* 

y 

*/ 

0x00, 

0x00, 

OxFC, 

0x08, 

0x30, 

0x40, 

OxFC, 

0x00, 

/* 

z 

*/ 

0x38, 

0x40, 

0x40, 

OxCO, 

0x40, 

0x40, 

0x38, 

0x00, 

/* 

{ 

*/ 

0x10, 0x10, 

0x10, 

0x10, 

0x10, 

0x10, 

0x10, 

0x10, 

/* 

1 

*/ 

OxEO, 

0x10, 

0x10, 

0x18, 

0x10, 

0x10, 

OxEO, 

0x00, 

/* 

} 

*/ 

0x00, 0x62, 

0xD6, 

0x8C, 

0x00, 

0x00, 

0x00, 

0x00, 

/* 

~ 

*/ 

OxAA, 

0x54, 

OxAA, 

0x54, 

OxAA, 

0x54, 

OxAA, 

0x54, 

/* 


*/ 


}; 
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/* 

* Copyright 1982 UniSoft Corporation 

* Use of this material is subject to your disclosure agreement with 

* AT&T, Western Electric and UniSoft Corporation. 

* Definitions relating to the COPS and Keyboard SY6522 interface. 

*/ 

/* Breakdown of e_ifr (Interrupt Flag Register) of 6522 */ 

♦define FCA2 0x01 /* ca2 — handshake with COPS, not intr source */ 

♦define FCAl 0x02 /* cal — intr latch for input from COPS */ 

♦define FSHFT 0x04 /* shft — completed eight shifts */ 

♦define FCB2 0x08 /* cb2 — output to speaker (if suitably programmed) */ 

♦define FCBl 0x10 /* cbl — unused */ 

♦define FTIMER2 0x20 /* timeout of timer two — unused */ 

♦define FTIMERl 0x40 /* timeout of timer one — 10ms clock */ 

♦define FIRQ 0x80 /* interrupt happened (cleared by clearing intr) */ 

struct device_e { /* Keyboard SY6522 VIA */ 


char 

e_ 

fOtl] 

char 

e_irb; 

/* 

I/O register B */ 

char 

e_ 

fl[l] 

char 

e_ira; 

/* 

I/O register A */ 

char 

e_ 

f2{l] 

char 

e_ddrb 

/* 

Data Dir reg B */ 

char 

e_ 

f3[l] 

char 

e_ddra 

/* 

Data Dir reg A */ 

char 

e_ 

f4[l] 

char 

e_tlcl 

/* 

T1 low Latches Counter */ 

char 

e_ 

f5[l] 

char 

e tlch 

/* 

T1 hi Latches Counter */ 

char 

e_ 

f6[l] 

char 

e till 

/* 

T1 low Latches */ 

char 

e_ 

f7[l] 

char 

e tllh 

/* 

T1 hi Latches */ 

char 

e_ 

f8[l] 

char 

e_t2cl 

/* 

T2 low Latches Coxmter */ 

char 

e_ 

f9[l] 

char 

e_t2ch 

/* 

T2 hi Latches Counter */ 

char 

e_ 

fall] 

char 

e_sr; 

/* 

Shift Register */ 

char 

e_ 

fb[l] 

char 

e acr; 

/* 

Aux Ctrl Reg */ 

char 

e_ 

fell] 

char 

e_pcr; 

/* 

Perif Ctrl Reg */ 

char 

e_ 

fd[l] 

char 

e_ifr; 

/* 

Int Flag Reg */ 

char 

e_ 

fell] 

char 

e_ier; 

/* 

Int Ena Reg */ 

char 

e_ 

ffll] 

char 

e_airaj 

r /* 

Alt e_ira (no handshake)*/ 


}; 

♦define COPSADDR ((struct device_e *)(STDIO+OxDDSG)) 

/* A port definitions */ 

/* Connects PR (reset pulse line) to the controller reset switch if low, 

* or the parity reset latch if high (when set as an output). 

*/ 

♦define CR 0x80 

♦define CRDY 0x40 I* goes low when cops ready for command */ 

♦define PR 0x20 /* works with CR to get pport parity error */ 

♦define FDIR 0x10 /* floppy dir interrupt request */ 

♦define VC2 0x08 

♦define VCl 0x04 

♦define VCO 0x02 

♦define KBIN 0x01 
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/* 

* Corvus definitions 

* 

* to 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlns Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

*/ 

/* block number to virtual drive */ 
fdefine cvbtovd(b) (((b)»16 £ 0xf)+l) 

/* virtual drive to block number */ 

^define cvvdtob(vd) ((((vd)-l) & Oxf) « 16) 

/* cv_stat bits */ 

^define ST_BUSy 0x02 

#define ST_HTOC 0x01 /* host to controller direction */ 

/* normal mode commands */ 


^define 

N_ 

_READ 

0x02 

#define 

N~ 

_^WRITE 

0x02 

#define 

n' 

[PARAM 

0x10 

^define 

n" 

'diagn 

0x11 

#define 

n" 

~R128 

0x12 

^define 

n" 

'r256 

0x22 

^define 

n' 

'r512 

0x32 

#define 

n" 

'W128 

0x13 

#define 

N_ 

W256 

0x23 

fdefine 

if 

'ff512 

0x33 

#define 

n' 

“boot 

0x14 


Sunol only - copy from one virtual drive to another 
(such as tape to disk or disk to tape) 


#define 

N_COPY 

0xE3 




/* diagnostic mode commands */ 



#define 

D_RESET 

0x00 



^define 

D_FORMAT 

0x01 



tdefine 

D_VERIFY 

0x07 



#define 

D_RFIRHWARE 

0x32 



#define 

D_WFIRMWARE 

0x33 




/* semaphore commands */ 



♦define 

S_INIT0 

Oxla 



♦define 

S INITl 

0x10 



♦define 

S_LOCK0 

OxOb 



♦define 

S_L0CK1 

0x01 



♦define 

S_ULOCK0 

OxOb 



♦define 

S_UL0CK1 

0x11 



♦define 

S_STAT0 

Oxla 



♦define 

S_STAT1 

0x41 



♦define 

S_STAT2 

0x03 




/* normal mode 

return status */ 



♦define 

NS_FATAL 

0x80 /* 

mask 

*/ 

♦define 

NS_VERIFY 

0x40 /* 

mask 

*/ 

♦define 

NS_RECOVER 

0x20 /* 

mask 

*/ 

♦define 

NS_HFAULT 

0x00 



♦define 

NS_STIHE 

0x01 



♦define 

NS_SFAULT 

0x02 



♦define 

NS_SERROR 

0x03 



♦define 

NS_HCRC 

0x04 



♦define 

NS_ZFAULT 

0x05 



♦define 

NS_ZTIME 

0x06 



♦define 

NS_OFFLINE 

0x07 



♦define 

!fS_l*PAULT 

oxoe 



♦define 

NS_ 

0x09 



♦define 

NS_RFAULT 

OxOa 



♦define 

NS DATACRC 

OxOb 
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/* Profile Controller Definitions 

* Unless otherwise noted this information comes from an undated 

* document titled 'PROFILE COMMUNICATIONS PROTOCOL' and is apparently 

* either version 3.96 or 3.98 

*/ 

/* command codes */ 

fdefine PROREAD 0 /* read command */ 

♦define PROWRITE 1 /* write command */ 

♦define PRCMRITEV 2 /* write/verify command */ 

/* States (responses read from profile) */ 

/* Kept in pd_state and pd_nxtst to determine what to do on intr */ 

♦define SERR 0 /* pseudo state for err and initialization */ 

♦define SCMD 1 /* waiting for a command */ 

♦define SRDBLK 2 /* ready to read a block */ 

♦define SWRTD 3 /* ready to receive for write data */ 

♦define SVERD 4 /* ready to receive for verify data */ 

♦define SFINI 5 /* pseudo state for write status pickup */ 

♦define SPERFORM 6 /* waiting to do actual write or verify */ 

♦define SSTOP 7 /* pseudo state for idle */ 

/* Responses sent in reply to controller (messages) */ 

♦define PGO 0x55 /* Proceed to next state (exec cmd) */ 

♦define PIDL 0x00 /* Quit and return to idle loop */ 

/* Polling Delays */ 

♦define RSPTIME OxCOQO /* response timeout (-1 ms) */ 

/* Operation status word breakdown. Returned for each command 
* and kept in pd_sbuf. 

*/ 

/* Breakdown of status bits for Status Byte 1 */ 

♦define FAIL 0x01 /* Operation unsuccessful */ 

♦define TIMEOUT 0x04 {* Couldn't read header after 9 revs */ 

♦define CRCERR 0x08 /* CRC error while trying to read/write */ 

♦define SEE^CERR 0x10 /* Unable in 3 tries to read 3 consec sec*/ 

♦define NOTABLE 0x20 /* Data table not in RAM (spare updated)*/ 

♦define ABORTED 0x40 /* >532 bytes sent or no spare table read*/ 

♦define GOAHEAD 0x80 /* If the profile received 0x55 last time*/ 

/* Breakdown of status bits for Status Byte 2 */ 

♦define BADSEEK 0x02 /* Seek to wrong track occured */ 

♦define SPARED 0x04 /* set if sparing occured */ 

♦define RDSTATS 0x08 /* Ctrl unable to read status sector */ 

♦define BLKTABO 0x10 /* Bad block table overflow: > 100 bads */ 

♦define SECTABO 0x40 /* Spared Sector table overflow >32 secs*/ 

♦define SEEKER2 0x80 /* unable in 1 try to read 3 consec secs*/ 

/* Breakdown of status bits for Status Byte 3 */ 

♦define PARITYE 0x01 /* Parity error */ 

♦define BADRESP 0x02 /* If Ctrl gave a bad response */ 

♦define WASREST 0x04 /* If Ctrl was reset */ 

♦define BLKIDMM 0x20 /* Block id at end of sector mismatch */ 

♦define BLKNINV 0x40 /* Block number invalid */ 

♦define RESETP 0x80 /* Ctrl has been reset */ 

/* Status byte 4 is the ♦ of errs rereading after read err*/ 

/* Mask to remove redundant bits from status word */ 

♦define STATMSK 0x8000 

/* Controller Command Format */ 

struct crad { 

char p_cmd; 

char p_high; 

char p_mid; 

char p_low; 

char p^retry 

char p_thold 


♦define MAXBLOCK 19455 /* Last sector on disk */ 

♦define SECSIZE 512 /* Number of bytes per sector */ 

♦define LOG_SS 9 /* Log (base 2) (SECSIZE) */ 

♦define NSEC 16 /* Number of sectors/track */ 

♦define NRETRY 10 /* Number of chksiam error retries */ 


/* command register */ 
/* high block byte */ 
/* mid block byte */ 

/* low block byte */ 

/* retry count */ 

/* threshold count */ 


extern struct device_d *pro_da[]; 

♦define logical(x) (minor(x) £ 7) /* eight logicals per phys */ 

♦define interleave(x) (minor(x) £ 0x8) /* interleave bit for swaping */ 

♦define physical(x) ((minor(x) £ QxFQ) » 4)/* 10 physical devs */ 

♦define ul_forw av_back 

/* Since there my be up to ten devices active the driver locals have been 
* collected into this structure to allow easy swithing between them. 

*/ 

struct prodata { 


struct device_d 

*pd_da; 

/* 

physical dev pointer */ 

struct cmd 

pd cmdb; 

/* 

command buffer */ 

struct buf 

*pd__actv; 

/* 

ptr to active buf */ 

daddr_t 

pd_blkno; 

/* 

present block being transferred */ 

daddr_t 

pd_limit; 

/* 

max blk number for this log dev */ 

caddr_t 

pd_addr; 

/* 

present core address */ 

long 

pd_bcount; 

/* 

present count */ 

long 

pd_sbuf; 

/* 

Status */ 

long 

pd__flags; 

/* 

mode of operation flags */ 

short 

pd_state; 

/* 

state of controller */ 

short 

pd_nxtst; 

/* 

next state scheduled for disk */ 

short 

pd_imit; 

/* 

phys unit ntimber of this dev */ 

short 

pd_offline; 

r /* 

wait for disk to come online again */ 

char 

*pd_err; 

/* 

err mesg for last error */ 

} prodata[NPPDEVS]; 




/* Breakdown of bits in 

pd flags above: */ 


♦define NOCHKSUH 

0x01 /* 

diasble 

checksums failure on reads */ 

♦define NOPARITY 

0x02 /* 

disable 

fail on parity errors */ 


extern char pro_secmap[]; 

♦ifndef NODEBUG 

♦define DEBUG(x) printf x 

♦else 

♦define DEBUG(x) 

♦endif 
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short ]tb_keycount; 
short kb_reptrap; 
short kb_repwait; 
short kb_repdlay; 

char kb_chrbuf; 
char kb_ctrl; 
char kb_shft; 
char kb__lock; 

char kb_state; /* state of cops processor */ 

char kb_idcode; 
char kb lastc; 
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/* Flags in conversion tables to pick out non-character generating 

* keys. 

*/ 

/* When a character is received from the COPS (depending on the state of 

* the shift keys) a table is used to convert it into the ascii equiv. 

* If the result is one of the following then it wasn't a keycode at all 

* but one of the reset/mouse/clock/plug codes. 

*/ 

^define Imp OxFF /* invalid keycode */ 

fdefine KSC OxFE /* mouse or reset state flag */ 

♦define DIP QxFD /* disk inserted into drive one */ 

♦define DIB OxFC /* disk 1 button pushed */ 

♦define D2P OxFB /* disk inserted into lower drive */ 

♦define D2B OxFA /* disk 2 button pushed */ 

♦define PPP 0xF9 /* parrallel port plug */ 

♦define MSB 0xF8 /* mouse button */ 

♦define MSP 0xF7 /* mouse plug */ 

♦define OFF 0xF6 /* soft off */ 

♦define LCK 0xF2 /* Alpha lock on */ 

♦define SFT OxFl /* shift key */ 

♦define CMD OxFO /* command key */ 

♦define KB_CTRL 0x0 
♦define KB_SHFT 0x1 
♦define KB_LOCK 0x2 
♦define KB OFF 0x6 


♦define KB_MSP 0x7 
♦define KB_MSB 0x8 
♦define KB_PPORT 0x9 
♦define KB_D2B OxA 
♦define KB_D2P OxB 
♦define KB_D1B OxC 
♦define KB_D1P OxD 
♦define KB_STATE OxE 
♦define KB IMP OxF 


/* Cops reset codes */ 

♦define KB_KBCOPS OxFF 
♦define KB_IOCOPS OxFE 
♦define KB_UKPLUG OxFD 
♦define KB_CIiOCKT OxFC 
♦define KB_SFTOFF OxFB 
♦define KB_RESERV OxFO 
♦define KB_RDCLK OxEO 

/* Case change keys 
*/ 

♦define ROpt 0x4E 
♦define LOpt 0x7C 
♦define Lck 0x7D 
♦define Sft 0x7E 
♦define Cmd 0x7F 

/* ASCII codes */ 

♦define Del 0x7F 
♦define Bkp 0x08 /** backspace key */ 

♦define Esc OxlB 
♦define Nl OxOA 
♦define Cr OxOD 
♦define Tab 0x09 

/** NOTES on character mapping 
** Left Option -> Esc 

** Clear -> Del 

** Enter -> Nl 

** arrows -> cursor motion in appropriate direction (sequence \E[<Arrow-value>) 

**/ 

♦define Alt 'D' 

♦define Art 'C' 

♦define Aup 'A' 

♦define Adn 'B' 

♦define ARROW(i,vj ( ((it0x70)»-0x20) && (v>='A') a {v<='D') J 

/** left arrow -> control h 
** right arrow -> control 1 


/* mapped onto escape */ 
/* SHIFT key */ 

/* SHIFT key */ 

/* COMMAND key */ 


** up arrow -> control k 
** down arrow -> control j 
♦define Cth ('h'SOxlF) 

♦define Ctl ('I'fiOxlF) 

♦define Ctk ('k'&OxlF) 

♦define Ctj ('j'iOxlF) 

**/ 


char ToIiA[] = { /* convert keycode to lowercase ascii character 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F*i 

KSC, 

DIP, 

DIB, 

D2P, 

D2B, 

PPP, 

MSB, 

MSP, 

OFF, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Impj 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Del, 

9 

Alt, 

Art, 

'?', 

'8', 

'9', 

Aup, 

'4', 

'5', 

'6', 

Adn, 

/ ^ t 

'2', 

'3', 

Nl, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

* 

t=* 

'W'r 

Imp, 


Bkp, 

Nl, 

Imp, 

Cr, 

'O', 

Imp, 

Imp, 

'/', 

'1', 

Esc, 

Imp, 

'9', 

'O', 

'u', 

'i'r 


'k'. 

' Vr 


'm'. 


r m 9 


/ t 

t t 
w r 

9 ^ 9 

'o', 

'e'. 

'6', 

'7', 

'8', 

'S', 

'r'. 

't'. 


/ \r 


'g'r 

'h'. 

'v'. 

'c', 

'b'' 

'n', 

'a'. 

'2', 

'3', 

'4', 

'1% 


'S', 

'w'. 

Tab, 

'z'. 

'X', 

'd'. 

Esc, 

LCK, 

SFT, 

CMD, 


}; 


Char 

T0CC[ 

:] - 

{ /* 

convert keycode to shift- 

•locked 

L ascii character 



0 

1 

2 

3 

4 

5 

6 7 

8 

9 

A 

B C 

D 

£ 

F*j 

KSC, 

DIP, 

DIB, 

D2P 

D2B, 

PPP, 

MSB, MSP, 

OFF 

Imp, 

Imp, 

Imp, Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp 

> Imp, 

Imp, 

Imp, Imp, 

Imp 

Imp, 

Imp, 

Imp, Imp, 

Imp, 

Imp, 

Imp, 

Del, 

t —t 

r 

Alt, 

Art 

'7', 

'8', 

'9', Aup, 

'4' 

'5', 

'6', 

Adn, ' .', 

'2', 

'3', 

Nl, 

Imp, 

Imp, 

Imp, 

Imp 

Imp, 

Imp, 

Imp, Imp, 

Imp 

Imp, 

Imp, 

Imp, Imp, 

Imp, 

Imp, 

Imp, 

* r 


\\% 

Imp 

'P', 

Bkp, 

Nl, Imp, 

Cr 

'O', 

Imp, 

Imp, '/', 

'1', 

Esc, 

Imp, 

'9', 

'O', 

'U', 

'I' 

'J', 

'K', 


'M' 

'L', 

f . / 

/ ^ ' ', 

9 9 

9 9 

f 

'O', 

'E', 

'6', 

'7', 

'8' 

'5', 

'R', 

'T', 'Y', 

/ \9 

'F', 

'G', 

'H', 'V', 

'C', 

'B', 

'N', 

'A', 

'2', 

'3', 

'4' 

'1', 


'S', 'W', 

Tab 

'E', 

'X', 

'D', Esc, 

LCK, 

SFT, 

CMD, 


}; 


char ToUA[3 = 

{ /* 

Convert keycode into 

uppercase 

ascii 

. character 


0 1 

2 

3 

4 5 

6 7 

8 

9 

A 

B 

C 

D 

E F*/ 

KSC, DIP, 

DIB, 

D2P, 

D2B, PPP, 

MSB, MSP, 

OTF, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, Imp, 

Imp, Imp, 

Imp, 

Imp, 

Imp, Imp, 

Imp, Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, Imp, 

Del, 


t -kt 

'7', '8', 

'9', '/', 

'4', 

'5', 

'6', 

* f 

f / 

• 9 

'2', 

'3', Nl, 

Imp, Imp, 

Imp, 

Imp, 

Imp, Imp, 

Imp, Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, 

Imp, Imp, 

' ', '+', 

M', 

Imp, 

'P', Bkp, 

Nl, Imp, 

Cr, 

'O', 

Imp, 

Imp, 


'1% 

Esc, Imp, 

M', ')', 

'U', 

'I'/ 

'J', 'K', 


'M', 

'I*', 

' :' 

f Ilf 

/ 

/ f 


'>', 'O', 

'E', 


/ */ 

'%', 'R', 

'T', 'Y', 

t 

/p/ 

'G', 

'H', 

'V', 

'C', 

'B', 'N', 

'A', 'g'. 



' !' , ' Q', 

'S', 'W', 

Tab, 


'X', 

'D', 

Esc, 

LCK, 

SFT, CMD, 


}; 


♦define Nil 0 

char altkpad[] = { /* convert keycode into alternate keypad mode values 


0 

1 

2 

3 

4 

5 

6 

7 

8 9 

A 

B 

c 

D 

E 

F*/ 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

'ra', 


'QS 

'w'. 

'X', 



't', 'u'. 

'V', 

'1'/ 

'n', 

'r'. 

's'. 

'M', 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 'p'. 

Nil, 

Nil, 

Nil, 

'q'r 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 

Nil, 


}; 

char *ccvtab[] - { 

TOLA, /* LCK up, SFT up */ 

ToCC, /* LCK down, SFT up */ 

ToUA, /* LCK up, SFT down */ 

ToUA, /* LCK down, SFT down */ 

}; 
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int 12_dtiiae; 
int 12_dtrap; 
int 12_dimcQnt; 
int 12_crate; 
char 12_rcflag; 
char 12_diinraed; 
char 12_bvol; 
int 12_bpitch; 
int 12_btiTOe; 
char 12_contrast, 
char 12_desired; 
char 12 defcont; 


/* seconds idle before dimming */ 

/* time at which screen will goes dim (mch.s) *l 
i* contrast setting when dimmed */ 

/* rate at which contrast change occurs */ 

/* timeout pending flag for ramp contrast */ 

/* contrast is dimmed */ 

/* bell volumn */ 

/* bell pitch */ 

/* bell time */ 

/* current contrast setting */ 

/* desired contrast */ 

/* default contrast */ 
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/* Various machine specific constants */ 

/* 

* States needed for muli-byte COPS input sequences. 

*/ 

fdefine NORHALWAIT 0 

♦define MOUSERD 1 

♦define YHOUSE 2 

♦define RESETCODE 3 

♦define SHUTDOWN 4 

♦define CLKEIEAD 5 /* must be last */ 

♦define MAXXLOC 720 

♦define MAXYLOC 360 

/* Raster Display information ... */ 

/* Lowest possible (most dim) contrast setting */ 

♦define TOTALDIM 0x3F 

♦define SCRNSIZE 0x8000 /* 32K */ 

/* Contrast value set by boot rom */ 

♦define ONCONT 0x20 

♦define HAXROW 40 
♦define MAXCOL 90 

♦define BPL 90 
♦define V_RESO 9 
♦define H_RESO 8 

/* The Real Time Clock and Timer (wrist watch type) 

* This device hangs off the I/O board cops and is communicated with 

* through the console VIA (ie. 12copscmd). The command byte is as follows: 

* 0x02 read clock data; the setting of the clock is returned as 

* a seven byte reset code. 

* 0x2C start clock and alarm set cycle. Upto 16 nibbles of alarm 

* and clock data (aaaaa y ddd hh ram ss t) may be sent as the 

* low nibble of the following clock command. 

* Oxln write nibble 'n' to clock (only valid after 0x2C cmd) 

* 0x25 terminates setup cycle and enables clock, timer is still 

* diabled. 

* The Clock is connected to the power circuitry and can turn the system off 

* or be programed to turn it when the timer underflows. 

* 0x20 disbles the clock, timer, and shuts the system off. 

* 0x23 shuts off system leaving clock enabled and timer set to 

* power up on underflow. 

*/ 

♦define SHUTOFF 0x21 

♦define READCLOCK 0x02 

♦define SETCLOCK 0x2C 

♦define CLKNIBBLE 0x10 

♦define STRTCLOCK 0x25 

/* Other extrainous cops commands */ 

♦define MOUSEON 0x7F /* mouse on and int's every 28 ms */ 

♦define MOUSEOFF 0x70 /* mouse off */ 

♦define ENT_LOW 0x6F /* low nibble of lights */ 

♦define ENT_HI 0x52 /* high nibble of lights */ 

♦define NMI^LOW 0x60 /* low nibble of NMI key */ 

♦define NMI_HI 0x50 /* high nibble of NMI key */ 

♦define IND_HI 0x40 /* high nibble of indicator lights */ 

♦define IND_LOW 0x30 /* low nibble of indicator lights */ 

♦define KBENABLE 0x00 /* enable keyboard */ 

struct rtime { /* See page 35 LHRM */ 


time_t 

rt_tod; 

/* 

Seconds since the 

Epoch */ 

long 

rt_alrra; 

/* 

Seconds remaining 

to trigger alarm 

short 

rt_year; 

/* 

year 

(0 - 15) */ 

short 

rt day; 

/* 

jullan day 

(1 - 366) */ 

short 

rt_hour; 

/* 

hour 

(0 - 23) */ 

short 

rt_min; 

/* 

minute 

(0 - 59) */ 

short 

rt_sec; 

/* 

second 

(0 - 59) */ 

short 

rt_tenth; 

/* 

tenths of a second 

1 (0-9) */ 


}; 


♦define MILLIRATE (1000/HZ) 


/* rate of timer in milliseconds 


♦define BOOTDEV (*(char *)(0xlB3)) /* boot device ID (used in System III) */ 

♦define NSLOTS 3 /* number of expansion slots */ 

♦define SLOTIDS ((short *)(0x298)) /* expansion slot 1 card ID */ 

♦define SLOTID2 ((short *)(0x29A)) /* expansion slot 2 card ID */ 

♦define SLOTID3 ((short *)(0x29CV) /* expansion slot 3 card ID */ 

♦define SLOTHASK OxFFF /* card type (ID ♦) of type code */ 

♦define ID_APLNET 1 /* card ID for applenet */ 

♦define ID_2PORT 2 /* card ID for 2-port card */ 

♦define ID_PRO 3 /* card ID for ProFile card */ 

♦define ID_PRIAM 5 /* card ID for Priam card */ 

♦define EXPIVECT 27 /* intr vector for 1st of 3 exp cards */ 

♦define devtoslot(d) ( ((d)=0) 2 2 ; (((d) =2) 2 0:1)) 

/* dev 0 is ivec 29, dev 1 is ivec 28, dev 2 is ivec 27 */ 
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/* 

* Copyright 1982 UniSoft Corporation 

* Use of this code is subject to your disclosure agreement with AT&T, 

* Western Electric, and UniSoft Corporation 


^define NUMCONTX 4 /* number of user contexts */ 

fdefine MEMEND (char **)(Qx2A8) /* Addr of logical end of mem */ 

♦define MEMBASE (long *) (0x2A4) /* Addr of phys beg of mem */ 

* Constants and definitions 
*! 

♦define SPECIO OxFEOOOO /* Special I/O address */ 

♦define STDIO OxFCQOOQ /* Standard I/O address */ 

/* Special I/O Space Locations */ 

♦define STATUSA (char *)(STDIO+OxFSOO) /* Status Register address */ 

♦define STATUS *(short *)(STATUSA) /* Status Register */ 

♦define MEMERR *(char *)(STDIO+OxFOOO) /* Memory Error Address Latch */ 

♦define SETUP_0 *(char *)(STDIO+0xE012) /* Turn setup bit off */ 

♦define SETUP_1 *(char *)(STDIO+OxEOlO) /* Turn setup bit on */ 

♦define SEG1_0 *(char *)(STDIO+0xE008) /* Turn SEGl bit off */ 

♦define SEG1_1 *(char *)(STDIO+OxEOOA) /* Turn SEGl bit on */ 

♦define SEG2_0 *(char *)(STDIO+OxEOOC) /* Turn SEG2 bit off */ 

♦define SEG2_1 *(char *)(STDIO+OxEOOE) /* Turn SEG2 bit on */ 

♦define VRON *(char *)(STDIO+OxEOlA) /* Turn Video retrace int on */ 

♦define VROFF *(char *)(STDIO+0xE018) /* Turn Video retrace int off */ 

♦define VIDADDR *(char *){STDIO+0xE80Q) /* video address latch */ 

♦define ADDRMASK OxFFFFFF /* relevant address bits */ 

/* 

* Access Control Bits 
*/ 

♦define ASROS 0x400 /* Address space is read only stack */ 

♦define ASRO 0x500 /* Address space is read only */ 

♦define ASRWS 0x600 /* Address space is read write stack */ 

♦define ASRW 0x700 /* Address space is read write */ 

♦define ASIO 0x800 /* Address space is I/O */ 

♦define ASINVAL OxcOO /* Address space is invalid */ 

♦define ASSPIO OxFOO /* Address space is special I/O */ 

♦define PROTMASK OxFOO /* Address space protection mask */ 

♦define UDOTBASE OxFAOOOO /* Logical base of udot area */ 

/* Special I/O Bits */ 

♦define BSEGORIG 0x8 /* Segment Origin Register */ 

/* 

* Definitions for memory management 
*/ 

♦define NPAGEPERSEG 256 

♦define SEGMASK OxFEOOOO 

♦define OFFMASK OxlFFFF 

♦define PAGEMASK OxlFEOO 

♦define PAGESIZE 512 

♦define PAGESHIFT 9 

♦define DISPMASK OxOOlFF 

♦define SEGBASE OxFFF 

♦define SEGNHASK 0x3F 

♦define SEGSHIFT 17 

♦define VIRTSHIFT 9 

♦define ACCLIM 0x008000 

♦define ACCSEG 0x008008 

/* Status register bits */ 

♦define S_9MBMBRH 0x1 /* Soft Memory Error */ 

♦define S_HMEMERR 0x2 /* Hard Memory Error */ 

♦define S_VR 0x4 /* Vertical Retrace */ 

♦define vtoseg(x) ((int)(x) & SEGMASK) 

/* size of the current process */ 

♦define proc3ize(p) ( (p)->p__size) 


/* number mappable pages per segment */ 
/* mask for segment number as address */ 
/* Offset mask for virtual address */ 

/* Page mask for virtual address */ 

/* bytes per page */ 

/* page shift for virtual addr */ 

/* Disp mask for virtual address */ 

/* mask for segment base */ 

/* mask for segment number as number */ 
/* shift for segment number */ 

/* seg shift for virtual address */ 

/* Access Limit Register */ 

/* Access Segment Register */ 


/* macros to eliminate sep I/D */ 
♦define fuiword(x) fuword(x) 

♦define suiword(x,y) suword(x,y) 
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/* 

* (C) 19S3, 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlias Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

* 

* Driver definitions for the Lisa mouse. 

*/ 


/* Types of mouse interrupts */ 


♦define M_FLUSH 
♦define M_PLUG 
♦define M_BUT 
♦define M_CTL 
♦define M__SFT 
♦define M_VRT 
♦define M MOVE 


/* timeout, mouse records out of date */ 
/* mouse unplugged or plugged in */ 

/* button changed */ 

/* apple key changed */ 

/* shift key changed */ 

/* verticle retrace interrupt (unused) */ 
/* mouse moved */ 
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/* 

* Copyright 1982 UniSoft Corporation 

* Use of this material is subject to your disclosure agreement with 

* AT&T, Western Electric and UniSoft Corporation. 

* Parallel Port interface definitions 
*/ 

struct device_d { 


char 

d 

fOEl] 

char 

d_ 

_irb; 

/* 

I/O register B */ 

char 

d_ 

;n[7] 

char 

d' 

ira; 

/* 

I/O register A */ 

char 

d” 

f2[7] 

char 

d~ 

[ddrb 

/* 

Data Dir reg B */ 

char 

d' 

'f3[7] 

char 

d“ 

ddra 

/* 

Data Dir reg A */ 

char 

d” 

f4[7] 

char 

d“ 

"tlcl 

/* 

T1 low Latches Counter */ 

char 

d“ 

f5[7] 

char 

d" 

"tlch 

/* 

T1 hi Latches Counter */ 

char 

d' 

f6[7] 

char 

d" 

'till 

/* 

T1 low Iiatches */ 

char 

d‘ 

f7[7] 

char 

d“ 

"tllh 

/* 

T1 hi Latches */ 

char 

d 

f8E7] 

char 

d“ 

't2cl 

/* 

T2 low Latches Counter */ 

char 

d' 

f9[?3 

char 

d" 

"t2ch 

/* 

T2 hi Latches Counter */ 

char 

d‘ 

fa(71 

char 

d“ 

_sr; 

/* 

Shift Register */ 

char 

d' 

fbI73 

char 

d“ 

acr; 

/* 

Aux Ctrl Reg */ 

char 

d 

fc[7] 

char 

d_pcr; 

1* 

Perif Ctrl Reg */ 

char 

d' 

fd[7] 

char 

d_ 

_ifr; 

/* 

Int Flag Reg */ 

char 

d~ 

fe[7] 

char 

d" 

_ier; 

/* 

Int Ena Reg */ 

char 

d 

ff{7] 

char 

d" 

aira 

: /* 

Alt d_ira (no handshake)*, 


}; 

#define PPADDR (struct device_d *)(STDIO + 0xD900) 

/* Breakdown of d_irb byte (above) [pg. 45 LHHM APR-82]*/ 

^define OCD 0x01 /* Open cable detect (paper empty)*/ 

^define BSY 0x02 /* Busy bit (handshake line) */ 

tdefine DEN 0x04 /* Disk Enable (buffers which drive interface lines)*/ 

idefine DRW 0x08 /* Direction (Disk Read/Write) off “ write to disk */ 

^define CMD 0x10 /* CHD bit (printer ON/OFF line)*/ 

#define PCHK 0x20 /* enable parity check(input for printer/out for disk)*/ 

fdefine DSKDIAG 0x40 
#define WCNT 0x80 

#define NPPDEVS 10 /* number of parallel port devices */ 

fdefine PPOK{x) (((x)>0) && ((x)<9) && ((x)I=3) && ((x)I-6)} /* 1,2,4,5,7,8 */ 

#d6fine PPSI£)T(x) ((x)/3) /* expansion slot number from physical unit */ 
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/* 

* Priam datatower definitions 

* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

*/ 


struct pm^base { 

/* read registers */ 
uchar_t status; char xxO; 
union { 

ushort WData; 
uchar_t PData[2]; 

} Data; 

^define data Data.fJData 

tdefine pdata Data.PData[0] 

uchar_t rO; char xxl; 

uchar__t rl; char xx2; 

uchar_t r2; char xx3; 

uchar_t r3; char xx4; 

uchar_t r4; char xx5; 

uchar_t r5; char xx6; 

}; 

/* write registers */ 
tdefine cradreg status 
^define pO rO 

#define pi rl 

^define p2 r2 

#define p3 r3 

fdefine p4 r4 

fdefine p5 r5 

/* channel definitions */ 
♦define DISK 0 
♦define NOTUSED 1 
♦define TAPE 2 
♦define HOST 3 
♦define SPECIAL 4 

/* flag definitions */ 
♦define IDLING 0 

♦define INITING 1 

♦define DREADING 2 

♦define DWRITING 3 

♦define TREADING 4 

♦define TWRITING 5 

♦define TCONT 6 


/* status register */ 

/* r/w disk data register */ 

/* write only high byte for packet */ 

/* normal word access */ 

/* byte access for packet (format) */ 
/* result 0 */ 

/* result 1 */ 

/* result 2 */ 

/* result 3 */ 

/* result 4 */ 

/* result 5 */ 


/* command register */ 
/* parameter 0 */ 

/* parameter 1 */ 

/* parameter 2 */ 

/* parameter 3 */ 

/* parameter 4 */ 

/* parameter 5 */ 


/* read parity 

register 

(pmpaddr. 

lo select space) */ 


♦define parity status 

♦define PHPERROR 

0x80 

/* 

extract parity FF on reads 

*/ 

/* status register bits 
♦define CMD_REJECT 

*/ 

0x80 

/* 

command reject */ 


♦define CMD_DONE 

0x40 

/* 

command completion request 

*/ 

♦define CMD_SDONE 

0x20 

f* 

special command completion 

*/ 

♦define BTR INT 

0x10 

1* 

block transfer - interrupt 

*/ 

♦define ISR_BUSY 

0x08 

/* 

interface busy */ 


♦define DTREQ 

0x04 

f* 

data transfer request */ 


♦define RW_REQ 

0x02 

1* 

r/w request */ 


♦define DBUS_ENA 

0x01 

/* 

data bus enabled */ 


/* commands */ 

♦define PMRESET 

0x7 

/* 

software reset */ 


♦define PMSMDDE 

0x8 

1* 

set mode */ 


♦define PMRMODE 

0x9 

/* 

read mode */ 


♦define PMSETP 

OxC 

/* 

specify parameters */ 


♦define PMSPINUPW 

0x82 

/* 

sequence up disk and wait * 

/ 

♦define PMRDEVPMS 

0x85 

/* 

read device parms */ 


♦define PMSPINDN 

0x81 

/* 

sequence down disk */ 


♦define PMNWRITE 

0x42 

/* 

write data, retries disabled * 


♦define 

PMNREAD 

0x43 

/* 

read data, retries disabled */ 

♦define 

PMWRITE 

0x52 

/* 

write data, retries enabled */ 

♦define 

PMREAD 

0x53 

1* 

read data, retries enabled */ 

♦define 

PMfiMRK 

0x62 

/* 

write tape file mark */ 

♦define 

PMRHRK 

0x63 

/* 

read tape file mark */ 

♦define 

PMVERIFY 

0x64 

f* 

verify tape mark */ 

♦define 

PMREWIND 

0x6A 

/* 

rewind tape */ 

♦define 

PMERASE 

0x6F 

/* 

erase tape */ 

♦define 

PMCBTI 

0x01 

/* 

clear "block transfer intr" */ 

♦define 

PMPKTXFER 

OxBO 

/* 

transfer packet (used for format) */ 

♦define 

PMPKTRST 

OxBS 

/* 

read packet status */ 

♦define 

PMPKTRES 

OxBl 

/* 

resume packet operation */ 

♦define 

PMPKTABRT 

OxBF 

/* 

abort packet */ 

♦define 

PHADVANCE 

OxCO 

/* 

advance file marks */ 

♦define 

PMRETEN 

OxCl 

/* 

retension tape */ 

/* results */ 

♦define NPHRES 

6 

/* 

number of result registers */ 

♦define 

PMCTYPE 

0x30 

/* 

error completion type mask (rO) */ 

♦define 

PMICQMP 

0x10 

/* 

init complete (rO) */ 

♦define 

PMECCERR 

0x11 

/* 

ECC error (rO) */ 

♦define 

PMDTIMOUT 

0x33 

/* 

timeout error (rO) */ 

♦define 

PMNH(r) 

(int)((r) 

» 4) /* 

no. heads (rl after PMSPINUP) */ 

♦define 

PMNC(rl,r2) 

(int) ((((rl)&0xF)«8) 1 (r2) )/* no. cyls (rl,r2 after PMSPINUP) 

♦define 

PMNS(r) 

(int) (r) 

/* 

no. heads (r3 after PMSPINUP) */ 

/* parameters */ 
♦define PMLOGSECT 

0x40 

/* 

log. sector mode (pi) */ 

♦define 

PMPSELl 

0x01 

i* 

parm select 1 (pi) */ 

♦define 

PMIPARMS 

0x07 

/* 

parm select 1 parameters (p2) 

♦define 

PMPSELO 

0x00 

/* 

disable high performance / 
block transfer intr enabled / 
block transfer timer disable */ 
parm select 0 (pi) */ 

♦define 

PMQPARHS 

0x03 

/* 

parm select 0 parameters (p2) 


auto, defect management enabled / 
init. complete intr disabled / 
command complete intr enabled / 
enable parity */ 

♦define PMCARD 0x4000 /* offset to next card */ 

♦define PMHISEL 0x2000 /* offset to hi select space */ 

/* lo sel space (boot ROM and parity) */ 

♦define pmloseKu) (OxFCOOOO + ((u) * PMCARD)) 

♦define pmpaddr(u) ((struct pra_base *)pmlosel(u)) 

/* hi sel space (data handling) */ 

♦define pmaddr(u) ((struct pim_base *) (pralosel(u) + PMHISEL)) 

/* interface control bits (added to pmaddr) */ 

♦define PH_N 0x200 /* no device cycle */ 

♦define PM_I 0x100 /* interrupt enable */ 

♦define PM_B 0x080 /* byte mode */ 

♦define PM_W 0x040 /* waiting (while U wait) */ 

♦define PM_P 0x020 /* parity checking enabled */ 

♦define praNaddr(p) ((struct pra_base *)(((long)p) + PH_N)) 

♦define pmladdr(p) ((struct pm_base *)(((long)p) + PM_I)) 

♦define piiiBaddr(p) ((struct pm_base *)(((long)p) + PM_B)) 

♦define pimWaddr(p) ((struct pim_base *)(((long)p) + PM_W)) 

♦define praPaddr(p) ({struct pm_base *)(((long)p) + PM_P)) 

♦define prnBWaddr(p) ({struct pin_base *)(((long)p) + PM_B + PM_W)) 

♦define pmBIaddr{p) ((struct pra_base *)(((long)p) + PM_B + PM_I)) 

♦define piraBWIaddr(p) ((struct pm_base *)(((long)p) + PM_B + PM_H + PM_I)) 

/* 

* Format disc packet parameters structure 
*/ 

struct prafmtparms { 

unsigned char pm_opcode? /* operation code — PMFMT */ 

♦define PMFMT 0x02 /* opcode for format */ 

unsigned char pra_devsel; /* device select - 0 (no daisy chaining) */ 

unsigned char pra_scntl; /* sector control: FBD, media type */ 

♦define PMFBD 0x80 /* fill byte disable */ 

unsigned char pm_fill; /* sector control: fill byte */ 

unsigned short pin_ssize; /* sector control; sector size */ 

unsigned char pni__dcntl; /* defect control: DMD, ♦ spare sectors */ 
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PMDMD 

0x80 

/* 

unsigned char 

pra_ncyl; 

t* 

\insigned char 

pia_cif; 

1* 

unsigned char 

pim_hif; 

/* 

unsigned char 

pm_sif; 

/* 

unsigned char 

pim_sitl; 

/* 


}; 


defect mapping disable */ 
defect control: t alternate cylinders */ 
interleave control: cyl interleave factor */ 
interleave control: head interleave factor */ 
interleave control: sect interleave factor */ 
interleave control: 

sector interleave table length */ 


/* 

* Packet status report structure (used by packet-based format command) 


struct pmfmtstat { 

unsigned char pm_pid; 

xinsigned char pm_j)state; 

#define PMPKTCOMP OxOD 

unsigned char pm_tdf; 

unsigned char pm_j)ristat; 

unsigned char pira_xx[32]; 

); 


/* packet ID */ 

/* packet state */ 

/* packet completed, not resumeable */ 
/* termination device flag */ 

/* primary termination status */ 

/* more status - unused */ 


f* 

* Header structure 

* Used by the lisa office system. It's 4 bytes longer than the 

* header for the profile, to include the size of the disk, but 

* otherwise the same (see profile.h). 

*/ 

struct praheader { 

unsigned short pm_version; /* unused */ 

unsigned short pm_volume; /* unused */ 

unsigned short pm_fileid; /* must be OxAAAA for the boot block */ 

unsigned short pm__csl; /* unused 

unsigned int pm_cs2; /* unused */ 

unsigned short pm_relpage; /* unused */ 

unsigned int pm_nblk; /* unused */ 

unsigned short pm_pblk; /* unused */ 

unsigned int pm_size; /* unused - size of disk */ 

}; 

^define HDRSI2E (sizeof (struct praheader)) 

#define FILEID OxAAAA /* file id for boot block */ 


^define TIMELIMIT 500000 /* timeout of about 5 secs. */ 


#define NPM 


3 





profile.h 


Fri Sep 5 19:07:32 1986 


1 


/* Disk Header Layout 
* used by the lisa office system 
*/ 

struct proheader { 

unsigned short ph_version,‘ 
unsigned short ph_datastk;2, 
ph_reserved;6, 
ph_volurae: 8 

unsigned short ph_fileid; 
unsigned short ph_havcsum;l, 

ph_dataused:15; 

unsigned int |^_abspage:24, 
ph_chksum:8; 

unsigned short ph_relpage; 
unsigned int ph_forward:24, 
ph_bckhigh:8; 

unsigned short ph__bcklow; 


}; 


/* OS version number */ 

/* kind of info in this block 

/* disk volumn number */ 

/* type of file */ 

/* whether ph_chksum is valid 
/* valid byte count */ 

/* page in filesystem */ 

/* checksum */ 

/* page in file */ 

/* next block */ 

/* high byte of prev block */ 
/* low word of prev block */ 


*/ 


*/ 


idefine HDRSIZE (sizeof (struct proheader)) 


struct proidblk { 


char 

pi_devn[13]; 

/* 

char 

pi dnum[3]; 

/* 

short 

pi revn; 

/* 

char 

pi_blkcnt[31; 

/* 

char 

pi_blksiz[2] ; 

/* 

char 

pi spavail; 

/* 

char 

pi_spalloc; 

/* 

char 

pi bbcnt; 

/* 

char 

pi_blistt4861; 

/* 


device name */ 

device number (currently 0) */ 
micro code revision number */ 
number of useable blocks */ 
number of bytes per block */ 
number of spare sectors avail */ 
number of spare sectors allocated */ 
number of bad blocks below */ 
list of bad and spared sectors */ 
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/* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft, 

V 


/* This is the command value for the console ioctl which 

* jumps to the start of unix. It is only compiled into 

* the installation unix sunix. 

*/ 

♦define RESTART ('R'«8) /* restart unix */ 
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* Zilog 28530 see ehip 

★ 

* eopyright 1981 UniSoft Corporation 


register 0 bits */ 
RORXRDY 0x01 
ROZERO 0x02 
ROTXRDY 0x04 
RODCD 0x08 
ROSYNC 0x10 
ROCTS 0x20 
ROUNDERRUN 0x40 
ROBREAK 0x80 


/* receiver is ready */ 

/* zero count */ 

/* transmitter is ready */ 
/* data carrier detect */ 
/* sync */ 

/* clear to send */ 

/* transmitter underrun */ 
/* break */ 


/* read register 1 bits */ 
^define RIALLSENT 0x0 

^define RlRESIDUE 0x0 

^define RlPARERR 0x1 

#defin6 RIOVRERR 0x2 

^define RIFRMERR 0x4 

fdefine RIENDFRAHE 0x8 


/* Async mode: all data cleared transmitter */ 
/* residue bits (see tables) */ 

/* parity error */ 

/* lost characters due to overrun */ 

/* CRC or framing error */ 

/* SDLC: end of frame */ 


/* write register 0 - command 
#define WONULL 0x00 

^define WOPOINTHIGH 0x08 

^define WOREXT 0x10 

^define tfOABORT 0x18 

^define WORXINT 0x20 

4define WORTXPND 0x28 

#define ffORERROR 0x30 

^define WORIUS 0x38 

^define WORXCRC 0x40 

♦define WOTXCRC 0x80 

♦define WOTXURUN OxCO 


register */ 

/* null code */ 

/* select second bank of registers */ 

/* reset external/status interrupt */ 

/* send abort */ 

/* enable interrupt on next Rx char */ 

/* reset transmitter interrupt pending */ 

/* error reset */ 

/* reset highest interrupt under service */ 
/* reset Rx cre checker */ 

/* reset Tx cre generator */ 

/* reset Tx underrun/eom latch */ 


/* write register 1 - 
♦define WIEXTIEN 
♦define »1TXIEN 
♦define WlPSC 
♦define WIRXDI 
♦define WIRXIFIRST 
♦define WIRXIALL 
♦define WIRXISC 
♦define WIWDHARCV 
♦define WIWDMARF 
♦define WIWDMARE 

/* write register 2 - 

/* write register 3 - 


- xmit/rev interrupt and data xfer mode 


external interrupt enable */ 
transmitter interrupt enable */ 
parity is a special condition */ 

Rx int disable */ 

Rx interrupt on first char or special */ 
Rx interrupt on all chars or special */ 

Rx interrupt on special condition only */ 
wait/dma request on receive/transmit */ 
wait/dma request function */ 
wait/dma request enable */ 


interrupt vector */ 

receive parameters and control 


♦define 

W3RXENABLE 

OxDl 

/* 

Rx enable */ 

♦define 

W3SCLI 

0x02 

/* 

sync character load inhibit 

♦define 

W3ASM 

0x04 

/* 

address search mode (sdlc) ■ 

♦define 

W3RXCRC 

0x08 

/* 

Rx cre enable */ 

♦define 

W3EHUNT 

0x10 

/* 

enter hunt mode */ 

♦define 

W3ATJTOENABLES 

0x20 

/* 

auto enables */ 

♦define 

W35BIT 

0x00 

/* 

5 bit data */ 

♦define 

ff36BIT 

0x80 

/* 

6 bit data */ 

♦define 

W37BIT 

0x40 

/* 

7 bit data */ 

♦define 

W38BIT 

OxCO 

/* 

8 bit data */ 

/* write register 4 - 

xmit/rev 

misc parameters and modes */ 

♦define 

W4PARENABLE 

0x01 

/* 

parity enable */ 

♦define 

W4PAREVEN 

0x02 

/* 

even parity */ 

♦define 

W4ENSYNC 

0x00 

/* 

enable sync modes */ 

♦define 

W41STOP 

0x04 

/* 

1 stop bit */ 

♦define 

W415STOP 

0x08 

/* 

1.5 stop bits */ 

♦define 

M42STOP 

OxOC 

/* 

2 stop bits */ 

♦define 

K48SYNC 

0x00 

/* 

8 bit sync character */ 

♦define 

W416SYNC 

0x10 

/* 

16 bit sync character */ 

♦define 

lff4SDLC 

0x20 

/* 

sdlc mode (01111110 flag) *, 

♦define 

W4EXTSYNC 

0x30 


external sync mode */ 

♦define 

lKr4CLKl 

0x00 

/* 

X 1 clock mode */ 

♦define 

W4CLK16 

0x40 

/* 

X 16 clock mode */ 


♦define 

W4CLK32 

0x80 

/* 

X 32 clock mode */ 

♦define 

W4CEKe4 

OxCO 

/* 

X 64 clock mode */ 

/* write register 5 

- transmit 

parameter and control */ 

♦define 

W5TXCRC 

0x01 

/* 

Tx cre enable */ 

♦define 

W5RTS 

0x02 

/* 

rts */ 

♦define 

WSCRC16 

0x04 

/* 

crc-16/sdlc */ 

♦define 

W5TXENABLE 

0x08 

/* 

transmitter enable */ 

♦define 

W5BREAK 

0x10 

/* 

send break */ 

♦define 

W55BIT 

0x00 

/* 

5 or less bit data */ 

♦define 

ff56BIT 

0x40 

/* 

6 bit data */ 

♦define 

tf57BIT 

0x20 

/* 

7 bit data */ 

♦define 

W58BIT 

0x60 

/* 

8 bit data */ 

♦define 

W5DTR 

0x80 

/* 

data terminal ready */ 


/* write register 6 - sync chars or sdlc address field */ 


/* write register 7 - sync chars or sdlc address flag */ 
/* write register 8 - transmit buffer */ 

/* write register 9 » master interrupt control */ 


♦define 

W9VIS 


0x01 

/* 

vector includes status */ 

♦define 

ff9NV 


0x02 

/* 

no vector */ 

♦define 

»9DIiC 


0x04 

/* 

disable lower chain */ 

♦define 

W9MIE 


0x08 

/* 

master interrupt enable */ 

♦define 

W9HIGHSTATUS 

0x10 

/* 

status high/low */ 

♦define 

W9BRESET 


0x40 

/* 

channel b reset */ 

♦define 

W9ARESET 


0x80 

/* 

channel a reset */ 

♦define 

»9HRESET 


OxCO 

/* 

force hardware reset */ 

/* write register 

10 

- misc transmitter/receiver control bits */ 

♦define 

W106BITSYNC 

0x01 

/* 

6 bit/8 bit sync */ 

♦define 

fflOLOOP 


0x02 

/* 

loop mode */ 

♦define 

WIOAUR 


0x04 

/* 

abort/flag on underriin */ 

♦define 

SflOHARK 


0x08 

/* 

mark/flag idle */ 

♦define 

WIOAPOLL 


0x10 

/* 

go active on poll */ 

♦define 

SflONRZ 


OxQQ 

/* 

nrz */ 

♦define 

WIONRZI 


0x20 

/* 

nrzi */ 

♦define 

VflOFMl 


0x40 

/* 

fml */ 

♦define 

WIOFHO 


0x60 

/* 

fmO */ 

♦define 

WIOCRCPRESET 

0x80 

/* 

cre preset 1/0 */ 

/* write register 

11 

- clock 

control mode */ 

♦define 

ffllOXTAL 


0x00 

/* 

crystal output */ 

♦define 

WllOXCLK 


0x01 

/* 

transmit clock */ 

♦define 

WllOBR 


0x02 

/* 

baud rate generator output */ 

♦define 

WllODPLL 


0x03 

/* 

dpll output */ 

♦define 

WllTRxC 


0x04 

/* 

TRxC 0/1 */ 

♦define 

WllTRTxC 


0x00 

/* 

transmit clock RTxC pin */ 

♦define 

WllTTRxC 


0x08 

/* 

transmit clock TRxC pin */ 

♦define 

WllTBR 


0x10 

/* 

transmit clock baud rate generator 

♦define 

WllTDPLL 


0x18 

/* 

transmit clock dpll output */ 

♦define 

WIIRRTXC 


0x00 

/* 

receive clock RTxC pin */ 

♦define 

WllRTRxC 


0x20 

/* 

receive clock TRxC pin */ 

♦define 

WllRBR 


0x40 

/* 

receive clock baud rate generator • 

♦define 

WllRDPLL 


0x60 

/* 

receive clock dpll output */ 

♦define 

WllXTAL 


0x80 

/* 

crystal */ 

/* write register 

12 

“ lower 

byte ( 

of baud rate generator */ 

/* write register 

13 

- upper 

byte 1 

of baud rate generator */ 

/* write register 

14 

- misc ( 

::ontrol bits */ 

♦define 

W14BRGE 


0x01 

/* 

baud rate generator enable */ 

♦define 

W14BRINT 


0x02 

/* 

baud rate generator internal */ 

♦define 

ffl4DTRREQ 


0x04 

/* 

dtr/req function */ 

♦define 

W14AUTOECHO 

0x08 

/* 

auto echo */ 

♦define 

WilLOCALLB 

0x10 

/* 

local loop back */ 

♦define 

W14NULL 


0x00 

/* 

null command */ 

♦define 

W14ESM 


0x20 

/* 

enter search mode */ 

♦define 

W14RMC 


0x40 

/* 

reset missing clock */ 

♦define 

W14DDPLL 


0x60 

/* 

disable dpll */ 

♦define 

N145BRGEN 


0x80 

/* 

set source baud rate generator */ 

♦define 

in4SRTxC 


OxAO 

/* 

set source RTxC */ 

♦define 

W14SFM 


OxCO 

/* 

set fm mode */ 
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♦define W14SKRZI OxEQ /* set nrzi mode */ 

struct device { 

char duml; 

char csr; 

char dum2[33; 

char data; 

}; 

/* structure for storage of port reset code and baud generator speed 
*/ 

struct scline { 

char reset; 
long speed; 
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/* 

* Sony definitions 

it 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* UniPlus Source Cods. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 


struct s iob { 

char dumOO; unsigned char gobyte; 
char dumOl; unsigned char and; 

#define mask cmd 

char dum02; unsigned char drive; 
char dum03; unsigned char side; 
char dum04; unsigned char sector; 
char dumOS; imsigned char track; 
char dumOS; unsigned char unused; 
char dum07; unsigned char confirm; 
char dumOS; unsigned char status; 
char dum09; xansigned char format; 
char dxmll; unsigned char type; 
char duml2; unsigned char error; 
char dumlS; unsigned char seek; 
char dunil4[233 ; unsigned char rom_id; 
char dunil5[15]; unsigned char diskin; 
char duml€[7]; unsigned char drv_connect; 
char duml7[21]; unsigned char intr_status; 
char duml8[49]; unsigned char d_strt_bitslip 
char duml9; unsigned char d_end_bitslip; 
char duiti20; unsigned char d_checksum; 
char dum21; unsigned char a_strt_bitslip 
char durti22; unsigned char a_end_bitslip; 
char dura23; unsigned char a_wrng_sector; 
char dura24; unsigned char a_wrng_track; 
char dum25; unsigned char a_checksum; 
char dum26[8S]; unsigned char cmd_index; 

}; 

struct sn_hdr { 

unsigned short version 
unsigned short volume; 
unsigned short fileid; 
unsigned short relpg; 
unsigned short duml; 
unsigned short dum2; 

); 

#define FILEID OxAAAA 
♦define SNIOB ((struct s_iob *)0xFCC000) 

♦ define SN_HDRBUF 0xFCC3E8 /* 12'-byte header of 524-byte buffer */ 

♦define SN_DATABUF 0xFCC400 /* real 512-byte buffer */ 

♦define SN CMD BASE 0xFCCl03 /* where the old commands are */ 


♦define NSN 1 
♦de fine SN_MAXBN 800 

/* SONY COMMANDS */ 

♦define SN_READ 0 
♦define SN_WRITE 1 
♦define SN_EJECT 2 
♦define SN__FORMAT 3 
♦define SN_VERIFY 4 
♦define SN_FMTTRK 5 
♦define SN_VFYTRK 6 
♦define SN_RDBRUT 7 
♦define SN_WRTBRUT 8 
♦define SN_CLAMP 9 

♦define SN_SHAKE 0x80 
♦define SN_CHD 0x81 
♦define SN_SBEK 0x83 
♦define SN_CALL 0x84 
♦define SN CLRST 0x85 


/* unused */ 

/* unused */ 

/* must be OxAAAA for the boot block */ 
/* xonused */ 

/* unused */ 

/* unused */ 

/* file id for boot block */ 


/* FCC031 */ 
/* FCC041 */ 
/* FCC049 */ 
/* FCCOSF */ 


♦define SN_STHASK 0x86 

♦define SN_CLRINT 0x87 

♦define SN_WAITRM 0x88 

♦define SN_GOAWAY 0x89 

♦define SN_CLEARMSK 0x77 

/* ROM revision number indicates twiggy 
♦define ROMMASK OxEO 

♦define ROHTSf 0x80 

♦define RQMSLOW 0x20 


vs. Sony and fast vs. slow timer. */ 
/* look at these bits only */ 

/* 0-twiggies, 1-sony */ 

/* for Lisa 2s, 0=fast, 1-slow */ 
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(C) 1984 UniSoft Corp. of Berkeley CA 


UniPlus Source Code, This program is proprietary 
with Unisoft Corporation and is not to be reproduced 
or used in any manner except as authorized in 
writing by Unisoft. 


* This block is returned when a "get drive parameters" command is 

* issued. 

*/ 

struct sdparam { 

char fwmsg[31]; /* firmware message */ 

imsigned char revision; /* revision number */ 
unsigned char romv; /* RCM4 version */ 

!* next four bytes are for entire disk */ 
unsigned char spt; /* sectors per track */ 

unsigned char tpc; /* tracks per cylinder */ 

unsigned char cpd_lsb; /* cylinders per drive (least sig bytej */ 

unsigned char cpd_msb; /* cylinders per drive (most sig byte) */ 

/* next three bytes are for specific virtual drive */ 
unsigned char nblk_lsb; /* capacity in 512-byte blks (least sig byte) */ 

unsigned char nblk_nsb; /* capacity in 512-byte blks (next sig byte) */ 

iinsigned char nblk_msb; /* capacity in 512-byte blks (most sig byte) */ 

char fill[88]; /* fill to 128 bytes */ 

); 


This block is used to issue a copy command which copies from one 
virtual drive to another. The tape unit is virtual drive 9, and 
the disk can be divided into virtual drives 1-7. If the command 
returns a non-zero status then the amount that was not copied is 
specified in 10 bytes corresponding to the bytes from srcvd to 
racount. These blocks can be transferred using normal reads and 
writes (in start/stop mode). 


uct copYparam 
unsigned 
unsigned 
iinsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 
unsigned 


command; 

srcvd; 

Isrcstart; 

msrcstart; 

fill!; 

destvd; 

Ideststart; 

mdeststart; 

fill2; 

Icount; 

mcoimt; 

chksum; 


copy command - 0xE3 */ 
source virtual drive */ 
source starting sector */ 
source starting sector */ 
upper byte of starting sector */ 
destination virtual drive */ 
destination starting sector */ 
destination starting sector */ 
upper byte of starting sector */ 
sector count for copy */ 
sector count for copy */ 
all 12 bytes add to zero */ 


#define TAPEVD 9 
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I* 

* {C) 1984 UniSoft Corp. of Berkeley CA 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

*/ 

^define PRNSWAP 2400 /* swap size for ProFile */ 

♦define CVNSWAP 3959 /* swap size for Corvus */ 

♦define PMSSWAP 4000 /* swap size for Priam */ 
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l* &(i)acct.c 1.2 */ 
finclude "sys/parain.h” 

^include "sys/types.h" 

#include "sys/systm.h" 

♦include "sys/acct .h‘* 

♦include "sys/dir.h" 

♦include "sys/signal-h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/inode.h" 

♦include "sys/file.h" 

/* 

* Perform process accounting functions. 

*/ 

sysacct() 

{ 

register struct inode *ip; 
register struct a { 

char *fnarae; 

1 *uap; 

static aclock; 

uap =* (struct a *)u.u_ap; 
if (aclock II isuserO) 
return; 
acloc]c++; 

switch (uap->fnarae) { 
case NULL: 

if (acctp) { 

plock(acctp); 
iput(acctp); 
acctp - NULL; 

} 

break; 

default: 

if (acctp) { 

u.u_error - EBUSY; 
break; 

} 

ip = namei(uchar, 0); 
if (ip “ NULL) 
break; 

if ((ip->i_mode & IFMT) 1= IFREG) 
u.u_error = EACCES; 

else 

(void) access(ip, IWRITE); 
if (u.u_error) { 
iput(ip); 
break; 

} 

acctp = ip; 
prele(ip); 

} 

aclock—; 

} 

/* 

* On exit, write a record on the accounting file. 

*/ 

acct(st) 

{ 

register struct inode *ip; 
register struct user *up; 
register struct acct *ap; 
off_t siz; 

if ((ip“acctp) = NULL) 
return; 

up ” 4u; 
plock(ip); 
ap - tacctbuf; 

bcopy ((caddr_t) up“>u_conun, (caddr_t) ap->ac_coinm, sizeof (ap->ac_coitmi) ) : 
ap->ac_btime - up->u_start; 
ap->ac_utime - compress (up->u_u'cijne); 


ap-->ac_stime = compress (up->u_stijae); 
ap->ac_etime • compress(Ibolt - up->u_ticks); 
ap->ac_mem compress (up->u_mem); 
ap->ac_io -= compress {up->u_ioch) ; 
ap->ac_rw - compress (up->u__ior+up->u_iow); 
ap“>ac_uid = up->u_ruid; 
ap->ac_gid - up->u_rgid; 

ap“>ac_tty = up->u_ttyp 2 up->u_ttyd : NODEV; 

ap->ac_stat - st; 

ap->ac_flag ”■ up->u_acflag; 

siz “ ip->i_size; 

up->u_offset = siz; 

up->u_base - (caddr_t)ap; 

up->u_count = sizeof(acctbuf); 

up->u_segflg = 1; 

up->u_error - 0; 

up->u_limit = {daddr_t) 5 0 0 0; 

up->u_fmode - FWRITE; 

writei(ip); 

if (up->u_error) 

ip->i_size = siz; 
prele(ip); 

} 

/* 

* Produce a pseudo-floating point representation 

* with 3 bits base-8 exponent, 13 bits fraction. 

*/ 

compress(t) 
register time_t t; 

{ 

register exp =0, round = 0; 

while (t >= 8192) { 
exp++; 

round = ti04; 
t »= 3; 

} 

if (round) { 
t++; 

if (t >» 8192) { 
t »= 3; 
exp++; 

} 

} 

return ((exp«13) + t); 
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/* af.c 4.7 82/10/17 */ 

♦include "sys/paraiti.h" 

♦include "sys/config.h" 

♦include "sys/errno.h" 

♦include "sys/types.h" 

♦include "sys/systm.h" 

♦include "net/misc.h" 

♦include "net/socket.h” 

♦include "net/socketvar.h" 

♦include "net/iiibuf. h" 

♦include "net/protosw.h" 

♦include "net/af.h" 

/* 

* Address family support routines 
*i 

int null_ha sh{), null_netmatch(); 

♦define AFNULL \ 

{ null_hash, null_netiiiatch } 

♦ifdef I!fET 

extern int inet_hash(), inet_netmatch(); 

♦define AFINET \ 

{ inet_hash, inet_netmatch } 

♦else 

♦define AFINET AFNULL 
♦endif 

♦ifdef PUP 

extern int pup_hash(), pup_netmatch(); 

♦define AFPUP \ 

{ pup_hash, pup_netiriatch } 

♦else 

♦define AFPUP AFNULL 
♦endif 

struct af switch afswitch[AF_MAX] -- { 

AFNULL, AFNULL, AFINET, AFINET, AFPUP, 
AFNULL, AFNULL, AFNULL, AFNULL, AFNULL, 
AFNULL 


/*ARGSUSED*/ 
null_hash(addr, hp) 

struct sockaddr *addr; 
struct afhash *hp; 

{ 

hp->afh_nethash - hp->afh_hosthash « 0; 

} 

/*ARGSUSED*/ 
null_netiaatch{al, a2) 

struct sockaddr *al, *a2; 

{ 


return (0); 
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/* §(#)alloc-c 1.4 */ 

*include "sys/param.h" 

♦include "sys/types.h" 

♦include "sys/sysmacros.h“ 

♦include "sys/systra-h" 

♦include •* sys /mount. h" 

♦include "sys/filsys.h" 

♦include "sys/fblk.h" 

♦include "sys/buf.h" 

♦include "sys/inode. h" 

♦include "sys/file.h" 

♦include "sys/ino.h" 

♦include "sys/dir .h** 

♦include *■ sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/var.h” 

/* 

* alloc will obtain the next available free disk block from the free list 

* of the specified device. 

* The super block has up to NICFREE remembered free blocks; 

* the last of these is read to obtain NICFREE more . . . 

* 

* no space on dev x/y — when the free list is exhausted. 

*/ 

struct buf * 
alloc(dev) 
dev_t dev; 

{ 

register daddr_t bno; 

register struct filsys *fp; 

register struct buf *bp; 

fp =■ getfs(dev); 

while(fp->s_flock) 

(void) sleep((caddr_t)&fp->s_flock, PINOD); 

do { 

if (fp->s_nfree <- 0) 
goto nospace; 

bno = fp''>s_free[—fp->s_nfree] ; 
if (bno — 0) 

goto nospace; 

} while (badblock(fp, bno, dev)); 

if (fp“>s_nfree <= 0) { 
fp->s_flock++; 
bp - bread(dev, bno); 
if (u.u_error =*=0) { 

fp->s_nfree - (bp->b_un.b_fblk)->df_nfree; 
bcopy((caddr_t)(bp->b_un.b_fblk)->df_free, 

(caddr_t)fp->s_free, sizeof(fp->s_free)); 

} 

brelse(bp); 

/* 

* Prevent "dups in free" 

*/ 

bp = getblk(dev, SUPERB); 

bcopy((caddr_t)fp, bp->b_un.b_addr, sizeof(struct filsys)); 

fp->s_fmod - 0; 

fp->s_time •= time; 

bwrite(bp); 

fp->s_flock - 0; 

wakeup((caddr_t)&fp->s_flock); 

1 

if (fp->s_nfree <- 0 ii fp->s_nfree > NICFREE) { 
prdevC'Bad free count", dev) ; 
goto nospace; 

} 

bp « getblk(dev, bno); 

clrbuf(bp); 

if (fp->s_tfree) fp->s_tfree—; 
fp->s_fmod - 1; 
return(bp); 

fp->s^nfree - 0; 


nospace; 


fp->s_tfree - 0; 
delay (v. v_hz«2) ; 
prdev("no space", dev); 
u.u_error - ENOSPC; 
return(NULL); 


/* 

* place the specified disk block back on the free list of the 

* specified device, 

*/ 

free(dev- bno) 
dev_t dev; 
daddr_t bno; 

{ 

register struct filsys *fp; 
register struct buf *bp; 

fp = getfs(dev); 
fp->s_fmod =1; 
while(fp->s_flock) 

(void) sleep((caddr_t)4fp->s_flock, PINOD); 
if (badblock(fp, bno, dev)) 
return; 

if (fp->s_nfree <- 0) { 
fp->s_nfree =-1; 
fp->s_free[0] = 0; 

if (fp->s_nfree >- NICFREE) { 
fp->s_flock++; 
bp - getblk(dev, bno); 

(bp->b_un.b_fblk)“>df_nfree * fp'->s_nfree; 
bcopy((caddr_t)fp->s_free, 

(caddr_t)(bp->b_un.b_fblk)->df_free, 
sizeof(fp->s_free)); 
fp->s_nfree = 0; 
bwrite(bp); 
fp->s_flock = 0; 
wakeup((caddr_t)&fp->s_flock); 

} 

fp->s_free[fp“>s_nfree++] = bno; 

fp->s_tfree++; 

fp->s_fmod ”1; 

) 

/* 

* Check that a block number is in the range between the I list 

* and the size of the device. 

* This is used mainly to check that a 

* garbage file system has not been mounted. 

* 

* bad block on dev x/y — not in range 
*/ 

badblock(fp, bn, dev) 
register struct filsys *fp; 
daddr_t bn; 
dev_t dev; 

{ 

if (bn < fp->s_isize 1| bn >= fp->s_fsize) { 
prdev("bad block", dev); 
return(1); 

} 

return(0); 


/* 

* Allocate an unused I node on the specified device. 

* Used with file creation. 

* The algorithm keeps up to NICINOD spare I nodes in the 

* super block. When this runs out, a linear search through the 

* I list is instituted to pick up NICINOD more. 

*/ 

struct inode * 
iallocidev, mode, nlink) 
dev t dev; 
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register struct filsys *fp; 
register struct inode *ip; 
register i; 

register struct buf *bp; 
struct dinode *dp; 
ino_t ino; 
daddr_t adr; 


fp “ getfs(dev); 

loop: 

while(fp->s_ilock) 

(void) sleep((caddr_t)&fp->s_ilock, PINOD); 
if (fp->s_ninode > 0 

& & (ino ” fp-> s_inode[—fp->s_ninode])) { 
ip “ iget(dev, ino); 
if (ip — NULL) 

return(NULL); 
if (ip->i_mode — 0) { 

/* found inode: update now to avoid races */ 

ip->i_mode - mode; 

ip->i_nlink - nlink; 

ip->i_flag |- lACClIUPDIICHGiISYN; 

ip->i_uid = u.u_uid; 

ip“>i_gid “ u.u_gid; 

ip->i_si 2 e “0; 

for (i=0; i<NADDR; i++) 

ip->i_addr[i] = 0; 
if (fp->s_tinode) fp->s_tinode—; 
fp->s_fmod “ 1; 
iupdat{ip, fitime, fitime); 
return(ip); 

} 

/* 

* Inode was allocated after all. 

* Look some more. 

*/ 

iupdat(ip, &time, fitime); 
iput(ip); 
goto loop; 


fp-->s_ilock++; 

fp-'>s_ninode - NICINOD; 

ino = FsINOS(dev, fp->s_inode[0]); 

for(adr = FsITOD(dev, ino); adr < fp->s_isize; adr++) 
bp = bread(dev, adr); 
if (u.u_error) { 

brelse(bp); 

ino +“ FsINOPB(dev); 

continue; 

) 

dp » bp->b_un.b_dino; 

for(i“0; i<FsINOPB(dev); i++,ino++,dp++) { 
if (fp->s_ninode <= 0) 
break; 

if (dp->di_mode == 0) 

fp->s_inode[—fp->s_ninode] = 

) 

brelse(bp); 
if (fp->s_ninode <=• 0) 
break; 

} 

fp->s_ilock “ 0; 

wakeup((caddr_t)fifp->s_ilock); 

if (fp->s_ninode >0) { 

fp->s_inode [fp->s_ninode-l] *■ 0; 
fp->s_inode[0] - 0; 

} 

If (fp->s_nlnode !- NICINOD) { 
fp->s_ninode - NICINOD; 


goto loop; 


ino; 


fp->3_ninode - 0; 
prdevC'Out of inodes", dev) ; 
u.u_error - ENOSPC; 
fp->s_tinode - 0; 
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return; 

up “ 4u; 

uinode.i_flag++; 

uinode.i_mode - IFBLK; 

fortmp =* Amount[0]; mp < {struct mount *)v.ve_raount; mp++) 
if (mp->m_flags — MINUSE) { 

fp “ mp->m_bufp->b_un.b_filsys; 
if (fp->s_fmod—0 I t fp->s_iloc]cl=0 | i 
fp->s_flocki*0 1 I fp“>s_ronlyI”0) 
continue; 
fp->s_fmod = 0; 
fp->s_time - time; 
uinode. i_rdev => mp->m__dev; 
up->u_error = 0; 
up->U_offset - SUPERBOFF; 
up->u_count = sizeof{struct filsys); 
up->u_base - (caddr_t)fp; 

^P“>'U_segflg = 1; 

Up->u_fmode * FWRITEIFSYNC; 
writei(iuinode); 

} 

for (ip *= &inode[01; ip < {struct inode *) v. ve_inode; ip++) 
if ({ip->i_flagsiLOCK)=0 && ip“>i_count! =0 
&& (ip->i_flag&(lACClIUPD|ICHG))) { 
ip->i_flag |= ILOCK; 
ip->i_count++; 
iupdat(ip, fitime, itime); 
iput(ip); 

} 

bflush(NODEV); 

uinode.i_flag - 0; 
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/* g(#)bio.c 1.7 */ 
finclude "sys/param-h" 

♦include "sys/types.h" 

♦include "sys/rara.u.h" 

♦include "sys/sysmacros.h" 

♦include “sys/systm.h" 

♦include "sys/sysinfo.h” 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user-h” 

♦include "sys/errno.h" 

♦include "sys/buf.h" 

♦include "sys/iobuf.h" 

♦include "sys/conf.h“ 

♦include "sys/proc.h" 

♦include "sys/seg.h" 

♦include "sys/var.h” 

♦include "sys/scat.h" 

/* 

* swap 10 headers. 

*/ 

struct buf swbuf [BTSWB] ; 

/* 

* The following several routines allocate and free 

* buffers with various side effects. In general the 

* arguments to an allocate routine are a device and 

* a block number, and the value is a pointer to 

* to the buffer header; the buffer is marked "busy" 

* so that no one else can touch it. If the block was 

* already in core, no I/O need be done; if it is 

* already busy, the process waits imtil it becomes free. 

* The following routines allocate a buffer: 

* getblk 

* bread 

* breada 

* Eventually the buffer must be released, possibly with the 

* side effect of writing it out, by using one of 

* bwrite 

* bdwrite 

* bawrite 

* brelse 
*i 

/* 

* Unlink a buffer from the available list and mark it busy. 

* (internal interface) 

*/ 

♦define notavail(bp) \ 

{\ 

register s;\ 

\ 

s >= spl6() 

bp->av_back->av_forw = bp-’>av_forw; \ 
bp->av_forw->av_back = bp->av_back;\ 
bp->b_flags 1= B_BUSY;\ 
bfreelist.b_bcount—;\ 
splx(s);\ 

} 


/* 

* Pick up the device's error number and pass it to the user; 

* if there is an error but the number is 0 set a generalized 

* code. Actually the latter is always true because devices 

* don't yet return specific errors. 

*/ 

♦define geterror(bp) \ 

{\ 

if (bp->b_flags&B_ERROR)\ 

if {{u.u_error = bp->b_error) =0) \ 
u.u_error =» EIO; \ 


) 


/* 

* Read in (if necessary) the block and return a buffer pointer. 


*/ 

struct buf * 
bread(dev, blkno) 
dev_t dev; 
daddr_t blkno; 

{ 

register struct buf *bp; 

sysinfo.lread++; 
bp = getblk(dev, blkno); 
if (bp->b_flags4B_DONE) 
return(bp); 

bp->b_flags 1= B_READ; 
bp->b_bcount =■ FsBSIZE (dev) ; 

(*bdevsw[bmajor(dev)].d_strategy)(bp); 

u.u_ior++; 

sysinfo.bread++; 

iowait(bp); 

return(bp); 

} 

/* 

* Read in the block, like bread, but also start I/O on the 

* read-ahead block (which is not allocated to the caller) 

*/ 

struct buf * 

breada(dev, blkno, rablkno) 
dev_t dev; 

daddr_t blkno, rablkno; 

{ 

register struct buf *bp, *rabp; 
bp “ NULL; 

if ([incore(dev, blkno)) { 
sysinfo.lread++; 
bp getblk (dev, blkno); 

if ((bp->b_flags&B_DONE) “0) { 
bp->b_flags |= B_READ; 
bp->b_bcount *■ FsBSIZE(dev); 

(*bdevsw[bmajor(dev)].d_strategy)(bp); 

u-u_ior++; 

sysinfo.bread++; 

} 

} 

if (rablkno && bfreelist.b_bcount>l && !incore(dev, rablkno)) { 
rabp = getblk(dev, rablkno); 
if (rabp->b_flags & B_DONE) 
brelse(rabp); 

else { 

rabp->b_flags 1= B_READiB_ASYNC; 
rabp->b_bcount - FsBSIZE(dev); 

(*bdevsw[hmajor(dev)},d_strategy)(rabp); 

u.u_ior++; 

sysinfo.bread++; 

} 

) 

if (bp =- NULL) 

return(bread(dev, blkno)); 
iowait(bp); 
return(bp); 

} 

/* 

* Write the buffer, waiting for completion. 

* Then release the buffer. 

*/ 

bwrite(bp) 

register struct buf *bp; 

f 

register flag; 

sysinfo.iwrite++ ; 
flag - bp->b_flag3; 

bp->b_flags t- -(B_READ ! BDONE I B_ERROR i B_DELWRI); 
(*bdevsw£bmajor(bp->b_dev)].d_strategy)(bp); 
u.u iow++; 
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} 


sysinfo.bwrite++; 
if ((flag&B_ASYNC) 0) { 
iowait(bp); 
brelse(bp); 

} else if (flag & B__DELWRI) 

bp->b_flags 1« B_AGE; 

else 

geterror(bp); 


/* 

* Release the buffer, marking it so that if it is grabbed 

* for another purpose it will be written out before being 

* given up (e.g. when writing a partial block where it is 

* assumed that another write for the same block will soon follow). 

* This can't be done for magtape, since writes must be done 

* in the same order as requested. 

*/ 

bdwrite(bp) 

register struct buf *bp; 

{ 


sysinfo.Iwrite++; 

bp->b_flags |= B_DELWRI | B_DONE; 

bp->b_resid = 0; 

brelse(bp); 


f* 

* Release the buffer, start I/O on it, but don't wait for completion. 
*/ 

bawrite(bp) 

register struct buf *bp; 

{ 


if (bfreelist.b_bcount>4) 

1= B_ASYNC; 

bwrite(bp); 


/* 

* release the buffer, with no I/O implied. 

*/ 

brelse(bp) 

register struct buf *bp; 

( 

register struct buf **backp; 
register s; 

if (bp->b_flagsiB_WANTED) 

wakeup((caddr_t)bp); 
if (bfreelist.b_flags&B_WANTED) { 

bfreelist.b_flags 4= ~B_WANTED; 
wakeup((caddr_t)fibfreelist); 

} 

if (bp->b_flags&B_ERROR) { 

bp->b_flags 1= B_STALE|B_AGE; 

bp->b_flags &-(B_ERROR|B_DELWRI); 

bp->b_error - 0; 

} 

/* Put buffer on freelist, at the beginning if B_AGE, otherwise at the end. */ 
s “ spl6(); 

if (bp->b_flags & B_AGE) ( 

backp =“ &bfreelist.av__forw; 

(*backp)->av_back - bp; 
bp->av_forw ” *backp; 

*backp “ bp; 

bp->av_back = ibfreelist; 

) else { 

backp -» ibfreelist.av_back; 

(*backp)->av_forw - bp; 
bp->av_back - *backp; 

*backp - bp; 

bp->av^forw - &bfreelist; 


} 

bp->b_flags &»■ ~ (B_WANTED 13_BUSY | B_ASYNC | B_AGE) ; 
bfreelist.b_bcount++; 
splx(s); 


/* 

* See if the block is associated with some buffer 

* (mainly to avoid getting hung up on a wait in breada) 

*/ 

incore(dev, blkno) 
register dev_t dev; 
daddr_t blkno; 

{ 

register struct buf *bp; 
register struct buf *dp; 

blkno ” FsLTOP(dev, blkno); 
dp -= bhash(dev, blkno); 

for (bp“dp->b_forw; bp != dp; bp = bp->b_forw) 

if (bp->b_blkno—blkno && bp->b_dev=»=dev &4 (bp->b_flags&B_STALE)-=0) 
return(1); 

return(0); 


/* 

* Assign a buffer for the given block. If the appropriate 

* block is already associated, return it; otherwise search 

* for the oldest non-busy buffer and reassign it. 

*/ 

struct buf * 
getblk(dev, blkno) 
register dev_t dev; 
daddr_t blkno; 

register struct buf *bp; 
register struct buf *dp; 

blkno - FsLTOP(dev, blkno); 
loop: 

SPLO(); 

dp - bhash(dev, blkno); 
if (dp — HULL) 

panic("devtab"); 

for (bpF»dp->b_forw; bp 1= dp; bp - bp->b_forw) { 

if (bp->b_blknoI=blkno || bp->b_devi=dev || bp->b_flags&B_STALE) 
continue; 

SPL6 () ; 

if (bp->b_flags4B_BUSY) { 

bp->b_flags |- B_WANTED; 
syswait.iowait++; 

(void) sleep((caddr_t)bp, PRIBIO+2); 
syswait.iowait—; 
goto loop; 

} 

SPLO(); 
notavail(bp); 
return(bp); 

} 

SPL6() ; 

if (bfreelist. av_forw «=• fibfreelist) { 
bfreelist.b_flags |- B_WANTED; 

(void) sleep((caddr_t)&bfreelist, PRIBIO+1); 
goto loop; 

) 

SPLO(); 

bp - bfreelist.av_forw; 
tifdef OLD 

notavail(bp); 

if (bp->b_flags & B_DELWRI) { 

bp->b_flags I- B_ASYNC; 
bwrite(bp); 
goto loop; 

#else 

if (bp->b_flags & B_DELWRI) { 
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bflush(NODEV); 
goto loop; 

} 

notavail(bp); 

#endif 

bp->b_flags = B_BUSY; 
bp“>b_back->b_forw -= bp->b_forw; 
bp'’>b_forw“>b_back - bp->b_back; 
bp->b_forw ■>= dp->b_forw; 
bp->b_bacJc - dp; 
dp->b_forw->b_back - bp; 
dp->b_forw - bp; 
bp->b_dev = dev; 
bp->b_blkno = blkno; 
bp->b_bcot 2 nt “ FsBSIZE (dev); 
return(bp); 

} 

/* 

* get an empty block, 

* not assigned to any particular device 
*/ 

struct buf * 
geteblk() 

{ 

register struct buf *bp; 
register struct buf *dp; 

loop: 

SPL6() ; 

while (bfreelist.av_forw *»= fibfreelist) { 
bfreelist .b_flags |=« B_WANTED; 

(void) sleep ((caddr__t) ibfrealist, PRIBIO+1); 

} 

SPLOO ; 

dp = &bfrealist; 

bp - bfreelist.av_forw; 

notavail(bp); 

if (bp->b__flags & B_DELWRI) { 

bp->b_flags 1“ B_ASYNC; 
bwrite(bp); 
goto loop; 

} 

bp->b_flags = B_BUSY|B_AGE; 
bp->b_back->b_forw »* bp->b_forw; 
bp->b_forw“>b_back = bp->b_back; 
bp->b_forw “ dp-->b_forw; 
bp->b_back =« dp; 
dp->b_forw->b_back » bp; 
dp*->b_forw = bp; 
bp->b_dev - (dev_t)NODEV; 
bp->b_bcount - SBUFSIZE; 
return(bp); 


/* 

* Wait for I/O completion on the buffer; return errors 

* to the user. 

*/ 

iowait(bp) 

register struct buf *bp; 

{ 

syswait.iowait++; 

SPL6() ; 

while ((bp->b_flags4B_DONE)“=0) 

(void) sleep((caddr_t)bp, PRIBIO); 

SPLO(); 

syswait,iowait—; 
geterror(bp); 


/* 

* Mark I/O complete on a buffer, release it if I/O is asynchronous, 

* and wake up anyone waiting for it. 


iodone(bp) 

register struct buf *bp; 

{ 

bp->b_flags (=• B_DONE; 
if (bp->b_fiags&B_ASYNC) 
brelse(bp); 

else { 

bp->b_flags &= ’-B_WANTED; 
wakeup((caddr_t)bp); 

} 


/* 

* Zero the core associated with a buffer. 

*/ 

clrbuf(bp) 
struct buf *bp; 

{ 

clear((caddr_t)bp->b_un.b_words, (int)bp->b_bcount); 
bp->b_resid =• 0; 

} 

/* 

* swap I/O 
*/ 

swap(blkno, coreaddr, count, rdflg) 

daddr_t blkno; 

register coreaddr, count; 

{ 

static struct buf *sbp; 
register struct buf *bp; 
register int c; 

♦ifdef SWAPTRACE 

printf(“SWAP %s %d disk-0x%x core=0x%x\n", 

(rdflg—B_READ) ?“IN": “OUT", count, blkno, coreaddr); 

#endif SWAPTRACE 

syswait.swap++; 
if (sbp—NULL) 

sbp - iswbuf[0]; 
bp => sbp++; 

if (sbp > fiswbuf[NSWB-1]) 
sbp “ sswbuf[0]; 

SPL6() ; 

while (bp->b_flags&B_BUSY) { 

bp->b_flags |= B_WANTED; 

(void) sleep((caddr_t)bp, PSWP+1); 

} 

bp->b_flags - B__BUSY | B_PHYS | rdflg; 

SPLO(); 

bp->b_dev “ swapdev; 

#ifdef NONSCATLOAD 

bp->b_un.b_addr = (caddr_t)ctob(coreaddr); 
while (count >0) { 

if (count <= btoc(MAXCOUNT)) 
c “ count; 

else 

c ” btoc(MAXCOUNT); 
bp->b_bcount - ctob(c); 
bp->b_blkno - swplo+blkno; 

(*bdevsw[ (short) batiajor (swapdev) ] .d_strategy) (bp) ; 

u.u_iosw++; 

if (rdflg) { 

sysinfo.swapin++; 
sysinfo.bswapin +“ ctod(c); 

} else { 

sysinfo.swapout++; 
syslnfo.bswapout +- ctod(c); 

) 

SPL6() ; 

while ((bp->b_flags&B_DONE) —0) 

(void) sleep((caddr_t)bp, PSWP); 

SPL0() ; 

bp->b_un.b_addr +- ctob(c); 
bp->b_flags ~B__DONE; 
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if (bp->b_flags & B_ERROR) 

panic("lO err in swap"); 
count -= c; 
blkno +- ctod(c); 

} 

ielse 

♦define sindex coreaddr 

while (count >0) { 

if (sindex — SCATEND) { 

printf("swap error:swapping beyond process\n"); 
break; 

) 

c - meracontig(sindex, count); 

bp->b_un.b_addr - (caddr_t)ctob(ixtoc(sindex)); 

bp->b_bcount = ctob(c); 

bp->b_blkno = swplo+blkno; 


♦ifdef SWAPTRACE 


♦endif SWAPTRACE 


printf(« SWAP %s %d disk-0x%x sindex=-0x%x\n", 

(rdflg-=B_READ)?"IN«:"OUT", c, blkno, sindex); 

E 

(*bdevswt(short)bmajor(swapdev)].d_strategy)(bp); 

u.u_iosw++; 

if (rdflg) { 

sysinfo.swapin++; 

sysinfo.bswapin += ctod(c); 

} else { 

sysinfo.swapout++; 

sysinfo.bswapout += ctod(c); 

} 

SPL6() ; 

while ((bp“>b_flags&B_DONE) —0) 

(void) sleep((caddr_t)bp, PSWP); 

SPLOO ; 

bp->b_flags 4= ~B_DONE; 

if (bp->b_flags & B__ERROR) 

panic("lO err in swap"); 

count c; 

blkno +=• ctod(c); 

while (c— > 0 is sindex i= SCATEND) 

sindex - scatmap[sindex].sc_index; 


if (bp->b_flags&B_WANTED) 

wakeup({caddr_t)bp); 

bp->b_flags 4= ~(B_BUSY|B_WANTED|B_PHYS); 
syswait.swap—; 

♦ifndef NONSCATLOAD 

return(sindex); 

♦endif 


* make sure all write-behind blocks 

* on dev (or NODEV for all) 

* are flushed out. 

* (from umount and update) 

*i 

bflush(dev) 
dev t dev; 


register struct buf *bp; 

SPL6() ; 

for (bp - bfreelist.av_forw; bp 4bfreelist;) { 

if (bp->b_flags4B_DELWRI 44 (dev NODEVi | dev—bp->b_dev)) 

bp->b_flags |- B_ASYNC; 
notavail(bp); 
bwrite(bp); 

SPL6() ; 

bp =» bfreelist. av_forw; 

} else ( 

if (bp->av_forw) bp - bp->av_forw; 
else panic("bflush: bad free list\n"); 


SPLO(); 


} 


/* 

* Raw I/O. The arguments are 

* The strategy routine for the device 

* A buffer header, sometimes of a special type owned by the 

* device, and sometimes from the physio pool of headers. 

* The device number 

* Read/write flag 

* Essentially all the work is computing physical addresses and 

* validating them. 

*/ 

physio(strat, bp, dev, rw) 
register struct buf *bp; 
int (*strat)(); 

{ 

register struct user *up; 
register struct proc *p; 
register unsigned base; 
register unsigned limit; 
register unsigned dsstart, dsend; 
int hpf; 

up = 4u; 

p »= up->u_j)rocp; 

base - (unsigned) up->u__base; 

dsstart = v.v_ustart + ctob(stoc(ctos(up->u_tsize))); 
dsend = dsstart + ctob(up->u_dsize); 
limit - base + up->u_count - 1; 

/* 

* Check that transfer is either entirely in the 

* virtual data space or in the virtual stack space 
*/ 


if (limit < base) /* wraparound, base < 0, count <= 0 */ 

goto bad; 

if (base >= dsstart 44 limit < dsend) 
goto cont; 

if (base >- v.v_uend - ctob(up->u_ssize) 44 limit < v,v_uend) 
goto cont; 

if (rw !=“ B_READ 44 base >= v.v_ustart 44 
limit < v.v_ustart + ctob(up->u_tsize)) 
goto cont; 

if (chkphys((int)base, limit)) 
goto cont; 

bad: 

up->u_error - EFAULT; 
return; 

cont: 

if (rw) 

sysinfo.phread++; 

else 

sysinfo.phwrite++; 
syswait.physio++; 

♦ifndef NONSCATLOAD 

if ((p->p_flag4SCONTIG)—0) { 
p->p_flag 1= SSWAPIT; 
if (runout) { 

runout = 0; 

wakeup((caddr_t)4 runout); 

} 

if (runin) { 

runin - 0; 

wakeup((caddr_t)4runin); 


SPL6() ; 

while ((p->p_flag4SCONTIG)—0) 

(void) sleep((caddr_t)scatmap, PRIBIO); 


#endif 

hpf - (bp — NULL); 

SPL6() ; 
if (hpf) { 

while ((bp = pfreelist.av_forw) — NULL) { 
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/* e(#)clist.c 1.2 */ 

splx(s); 

♦include "sys/param.h" 

♦endif 

♦include "sys/types.h" 

return(-1); 

♦include "sys/tty.h" 

} 

cfreelist.c_next - bp->c_next 

getc(p) 

bp->c__nBXt = NULL; 

register struct clist *p; 

bp“>c_first - Q; bp->c_last - 


if (obp =« NULL) 

register struct cblock *bp; 

p->c_cf ” bp; 

register int c; 

else 

obp->c_next = bp; 

♦ifdef nic6800Q 
/* 

p->c cl = bp; 

t 

f 

* Note use of d6 

; 

bp“>c_data[bp->c_last++] = c; 

*l 

P”>c_cc++; 

♦ifndef lint 

♦ifdef mc68000 

register int s = 0; 

asm(‘' movw d7,sr"); 

♦endif 

♦else 

splx(s); 

asmt” mow sr,d6''); 

♦endif 

asm(" movw ♦Qx2600,sr"); 

return(0); 

♦else 

} 

register int s; 

s = spl6() ; 

struct cblock * 

♦endif 

getcf() 

if (p->c_cc >0) { 

t 

register struct cblock *bp; 

p->c_cc—; 

register struct chead *cf; 

bp =“ p->c_cf; 

c - bp->c_data [bp->c_first++] &0377; 

♦ifdef mc68000 

if (bp->c_first =*-= bp->c_last) { 

/* 

if ((p->c_cf - bp->c_next) — NULL) 

* Note use of d7 

p->c_cl - NULL; 

*/ 

bp“>c next =* cfreelist.c_next; 

♦ifndef lint 

cfreelist.c_next - bp; 

register int s - 0; 

if (cfreelist.c flag) { 

♦endif 

cfreelist.c flag - Q; 

wakeup((caddr t)icfreelist); 

asm(" movw sr,d7''); 

) 

asm(*» movw ^0x2600,sr") ; 

} 

♦else 

} else 

register int s; 

c - -1; 

s = spl6(); 

♦ifdef mc68000 

♦endif 

asraC movw d6,sr"); 

♦else 

cf *= icfreelist; 

splx(s); 

if {(bp = cf->c_next) I- NULL) { 

♦endif 

cf->c next = bp->c_next; 

return(c); 

bp->c_next - NULL; 

} 

bp->c_first = 0; 
bp-'>c last “ cf~>c size; 

putc{c, p) 

} 

register struct clist *p; 

♦ifdef mc68000 

{ 

asmC movw d7,sr''); 

register struct cblock *bp, *obp; 

♦else 

splx(s); 

♦ifdef mc68000 

♦endif 

/* 

return(bp); 

* Note use of d7 

} 

^ i 

♦ifndef lint 

putcf(bp) 

register int s = 0; 

register struct cblock *bp; 

♦endif 

{ 

register struct chead *cf; 

asra(" movw sr,d7''); 

asraC movw ^0x2600,sr"); 

♦ifdef mc68000 

♦else 

/* 

register int s; 

* Note use of d7 

s - spl6 0; 

*/ 

♦endif 

♦ifndef lint 

register int s * 0; 

if ((bp = p->c_cl) =•= NULL 1 ! bp->c last == (char) cfreelist .c size) { 

♦endif 

obp ” bp; 

if {(bp - cfreelist.c next) NULL) { 

asmC* movw sr,d7"); 

♦ifdef mc68000 

asmC* movw ♦0x2600, sr") ; 

asmC movw d7,sr*‘); 

♦else 

♦ else 

register int s; 
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s - spl6<); 

tendif 

cf “ icfreelist; 
bp->c_next = cf->c_next; 
cf->G_next *= bp; 
if (cf“>c_flag) { 

cf->c_flag •= 0; 
wakeup((caddr_t)cf); 

} 

#ifdef mc68000 

asmC movw d7,3r"); 

#else 

splx(s); 

#endif 

} 

struct cblock * 
getcb(p) 

register struct clist *p; 

{ 

register struct cblock *bp; 

*ifdef mc68000 
/* 

* Note use of d7 
*/ 

#ifndef lint 

register int s - 0; 

#endif 

asraC movw sr,d7'‘); 

asmC" movw t0x2600,sr"); 

#else 

register int s; 
s = spl6(); 

♦endif 


if ((bp = p->c_cf) I” NULL) { 

p->c_cc — bp->c_last - bp->c_first; 
if ((p->c_cf = bp->c_next) == NULL) 
p->c_cl - NULL; 

} 

#ifdef mc68000 

asmC* movw d7,sr''); 

telse 

splx(s); 

tendif 

return(bp); 

} 


putcb(bp, p) 

register struct cblock *bp; 
register struct clist *p; 

{ 

iifdef mc68000 
/* 

* Note use of d7 
*/ 

♦ifndef lint 

register int s = 0; 

tendif 


asm(” movw sr,d7"); 

asmC movw #0x2600, sr”) ; 

#else 

register int s; 
s = spl6(); 

♦endif 


if (p->c_cl -- NULL) 
p->c_cf - bp; 

else 

p->c_cl->c_next = bp; 
p->c_cl - bp; 
bp->C_next » NULL; 


p->c_cc += bp->c_last - bp“>c_first; 
#ifdef mc68000 

asm(“ movw d7,sr"); 

#el5e 

splx(s); 

fendif 

#ifdef notdef 
getcbp(p, cp, n) 
struct clist *p; 
register char *cp; 
register n; 

{ 

register struct cblock *bp; 
register char *op; 
register on; 

register char *acp = cp; 


while (n) { 

if ((bp = p“>c_cf) NULL) 
break; 

op “ &bp->c_data[bp->c_first]; 
on = bp->c_last - bp->c_first; 
if (n >= on) { 

bcopy(op, cp, on); 
cp +*= on; 
n — on; 

if {(p->c_cf » bp->c_next) = NULL) 
p“>c__cl “ NULL; 

bp->c_next = cfreelist.c_next; 
cfreelist.c_next = bp; 

} else { 

bcopy(op, cp, n); 
bp->c_first +“ n; 
cp += n; 
n = 0; 
break; 

} 

} 

n = cp -■ acp; 
p->c_cc — n; 
return(n); 

} 

#endif 

#ifdef notdef 
putcbp(p, cp, n) 
struct clist *p; 
register char *cp; 
register n; 

{ 

register struct cblock *bp, *obp; 
register char *op; 
register on; 

register char *acp = cp; 


while (n) { 

if ((bp - p->c_cl) “ NULL II bp->c_last -- cfreelist. 
obp = bp; 

if ((bp = cfreelist.c_next) “ NULL) 
break; 

cfreelist.c_next - bp->c_next; 
bp->c_next *= NULL; 
bp->c_first “0; bp->c_last - 0; 
if (obp NULL) 

p->c_cf - bp; 

else 


o‘bp“>c_next - bp; 
p->c_cl = bp; 

} 

op = Abp->c_data[bp->c_last] ; 

on - cfreelist.c_size - bp“>c_last; 

if fn >- on) ( 

bcopy(cp, op, on); 
cp += on; 


size) { 
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bp->c_last +« on; 
n — on; 

) else { 

bcopy(cp, op, n) ; 
cp += n; 

bp->c_last +- n; 

n = 0; 

break; 

} 

} 

n - cp - acp; 
p->c_cc +” n; 
return(n); 

} 

#endif 
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/* B{#)clock.c 1.1 */ 

^include "sys/param.h" 

#include "sys/config.h" 

^include "sys/types.h" 
iinclude "sys/imtiu.h*' 

^include "sys/sysinacros.h" 

^include "sys/systm-h" 

^include "sys/sysinfo.h" 

♦include "sys/callo.h" 

♦include "sys/dir-h" 

♦include •sys/signal.h" 

♦include "sys/user=h" 

♦include "sYs/proc.b" 

♦include "sys/text.h“ 

♦include "sys/psl.h” 

♦include "sys/var.h" 

♦include "sys/reg.h” 

♦ifdef UCB__NET 
♦ include "net/iTLisc.h" 

♦include "net/protosw.h" 

♦include "net/socket.h" 

♦include "net/if.h" 

♦include "net/in_systm.h" 

♦endif 

♦ifdef VIRTUAL451 
♦define args buserr 

♦define a_ps ber_sr 

♦define a_pc ber_pc 

♦define a_dev ber_dev 

♦endif 

/* 

* clock is called straight from 

* the real time clock interrupt. 

* 

* Functions: 

* reprime clock 

* implement callouts 

* maintain user/system times 

* maintain date 

* profile 

* alarm clock signals 

* jab the scheduler 
*f 

♦define PRF_ON 01 

extern prfstat; 

t ime__t t ime , Ibo 11 ; 

♦ifdef UCB_NET 
/* 

* Protoslow is like Ibolt, but for slow protocol timeouts, counting 

* up to (hz/PR_SLOWHZ), then causing a pfslowtirao(). 

* Protofast is like Ibolt, but for fast protocol timeouts, covinting 

* up to (hz/PR_FASTHZ), then causing a pffasttimoO . 

*/ 

extern int protoslow; 

extern int protofast; 

extern int ifnetslow; 

extern short netoff; 

♦endif 

clock(ap) 
struct args *ap; 

{ 

register struct callo *pl, *p2; 
register struct user *up; 
register struct proc *pp; 
register a, ps; 
static short Iticks; 
static rqlen, sqlen; 

!* 

* if panic stop clock 
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if (syswait.iowait) 

sysinfo.wait[W_I 03 ++; 
if (syswait.swap) 

sysinfo.wait[W_SWAP]++; 
if (syswait.physio) 

sysinf o. wait [Sir_PIO] ++; 

1 else 

a - CPU_IDLE; 

) else { 

a « CPU_KERNEL; 
up->u_stime++; 

} 

} 

sysinfo.cpu[a]++; 
pp - up“>ujprocp; 
if (pp->p_stat=SRUN) { 

up~>u_mem += (unsigned)(v.v_usize+pracsize(pp)); 
if (pp->p_textp) { 

a = pp->p_textp->x_ccount; 
if (a“0 i I a—1) 

up->u_mem +-= pp->p_textp-“>x_size; 

else 


up-->u_inem += 

(unsigned short)pp->p_textp->x_size / 
(short)a; 


if (pp“>p_cpu < 80) 
pp~>p_cpu++; 

lbolt++; /* time in ticks */ 

if (—Iticks <= 0) { 

if (BASEPRI(ps)) 
return; 

Iticks += v.v_hz; 

++time; 

if ((time 4 3) =— 0) /* entry to load average */ 

loadav(); 
runr\ 2 n++; 
rqlen = 0; 
sqlen = 0; 

for(pp = 4proc[03; pp < (struct proc *)v.ve_proc; pp++) 
if (pp->p_stat) { 

if (pp->p_time 127) 
pp->p_time++; 
if (pp->p_clktira) 

if (—pp->p_clktim =“ 0) 

psignal(pp, SIGALRM); 

pp->p_cpu »- 1; 

if (pp->p_pri >= (PUSER-N2ERO)) { 

PP”>P_P3:i - (pp->p_Cpu»l) + PUSER + 
pp->p_nice - NZERO; 

) 

if (pp->p_stat == SRUN) 

if (pp->p_flag 4 SLOAD) 
rqlen++; 

else 

sqlen++; 

} 

if (rqlen) { 

sysinfo. runque +<=' rqlen; 
sysinfo.runocc++; 

} 

if (sqlen) { 

sysinfo.swpque +- sqlen; 
sysinfo.swpocc++; 

) 

if (runin!-0) { 

riinin =0; 
setrun(Sproc[0]}; 

} 

♦ifdef VIRTUAL451 

if (runout 1*0) { 

runout - 0; 
setrun(4proc[01); 


#endif VIRTUAL451 


} 


} 

/* 

* timeout is called to arrange that fun(arg) is called in tim/H2 seconds. 

* An entry is sorted into the callout structure. 

* The time in each structure entry is the number of H2's more 

* than the previous entry. In this way, decrementing the 

* first entry has the effect of updating all entries. 

it 

* The panic is there because there is nothing 

* intelligent to be done if an entry won't fit. 

*/ 

timeout (fun, arg, tim) 
int (*fun)(); 
caddr_t arg; 
int tim; 

register struct callo *pl, *p2; 
register int t; 
int s; 

t = tim; 

pi - 4callout[0]; 
s = spl7(); 

while (pi-'>c_func 1= 0 44 pl->c_time <= t) { 
t -- pl->c_tirae; 
pl++; 

if (pi >= (struct callo *)v.ve_call-l) 

panic("Timeout table overflow"); 
pl->c_time -= t; 
p2 -= pi; 

while(p2->c_func 0) 

p2++; 

while(p2 >“ pi) { 

(p2+l)->c_time * p2->c_time; 

(p2+l)->c_func - p2“>c_fijnc; 

(p2+l)->c_arg ■= p2->c_arg; 

p2-; 

} 

pl->c_time - t; 
pl->c_func = fun; 
pl->c_arg = arg; 
splx(s); 

} 

tdefine PDELAY (PZERO-1) 
delay(ticks) 

{ 

extern wakeup(); 
int s; 

if (ticks<=0) 

return; 
s * spl7() ; 

timeout(wakeup, (caddr_t)u.u_procp+l, ticks); 

(void) sleep((caddr__t)u.u_procp+l, PDELAY); 
splx(s); 

} 

!* 

* From here down is load average code 
*/ 

struct lavnum { 

unsigned short high; 
unsigned short low; 

}; 

struct lavnum avenrun[3]; 

/* 

* Constants for averages over 1, 5, and 15 minutes 

* when sampling at 4 second intervals. 

* (Using 'fixed-point' with 16 binary digits to right) 

*/ 
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struct lavnum cexp[3] * { 

{ 61309, 422? }, /* {X - exp(-l/15) * 65536) , 1 - x */ 

{ 64667, 869 }, /* {X =■ exp(-l/?5) * 65536) , 1 - x */ 

{ 65245, 291 ), /* (x - exp(-l/225) * 65536) , 1 - x */ 


/* called once every four seconds */ 
loadav{) 

{ 

register struct lavnum *avg; 
register struct lavnum *rcexp; 
register unsigned int j; 
register unsigned short nrun; 
register struct proc *p; 
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/* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorised in 

* writing by Unisoft. 

* 

* co.c - "console" (ie, bitmap screen and keyboard) driver for the lisa. 

*/ 

#include "sy s/par am.h" 

♦include "sys/config.h" 

♦include "sys/types.h" 

♦include "sys/systra.h" 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/file.h" 

♦include "sys/tty.h" 

♦include "sys/termio.h" 

♦include "sys/conf.h" 

♦include "sys/sysinfo.h" 

♦include "sys/var.h" 

♦include "sys/reg.h" 

♦include "setjmp.h" 

♦include "sys/ioctl.h" 

♦include "sys/kb.h" 

♦include "sys/al_ioctl.h" 

♦ifdef SUNIX 
♦include "sys/reboot.h" 

♦endif SUNIX 
♦include "sys/ramu.h" 

♦include "sys/cops.h" 

♦include ■sys/12.h" 

int coproc(); 
extern int co_cnt; 
extern struct tty co_tty[); 
extern struct ttyptr co_ttptr[]; 

extern char brabck, tunnormal; 

extern char *brascrn; /* pointer to screen — initialised in ianinit */ 

/* calls to the putc routine are made indirectly through 

* the te_putc pointer which is used to 

* keep track of the current state for escape character 

* processing, ie, although initialized to point to 

* the normal putc, an escape character causes other 

* functions to process the next character(s) 

*/ 

extern int vt_putc(); 
int (*te_j)utc) ()=vt_putc; 

/*^ifdef SUNIX 
extern caddr__t start; 

♦endif SUNIX 
*/ 


struct device { 

char csr; 

char idum[2] 

char dbuf; 

}; 


/* ARGSUSED */ 
coopen(dev, flag) 
register dev; 

{ 

register struct tty *tp; 

if (dev >- co_cnt) i 

u.u_error - ENXIO; 
return; 


/* Command status register */ 
/* fillers */ 

/* data buffer */ 


} 

tp - co_ttptr[dev].tt_tty; 
tp->t_index = dev; 

SPL6(); 

if {(tp->t_state4(ISOPEN IWOPEN)) — 0) { 
tp->t_proc >= coproc; 
ttinit (tp) ; 

tp->t_state - WOPEN | CARR_ON; 
if (dev — CONSOLE) { 

tp->t_iflag = ICRKL I ISTRIP; 
tp“>t_oflag - OPOST I ONLCR I TAB3; 
tp->t_lflag - I3IG i ICANON i ECHO i ECHOK; 
tp->t_cflag = sspeed | CSS ! CREAD | HUPCL; 

} 

} 

SPLO(); 

(*linesw[tp->t_line].l_open)(tp); 

} 

/* ARGSUSED */ 
coclose(dev, flag) 

{ 

register struct tty *tp; 

tp == co_ttptr[dev].tt_tty; 

(*linesw[tp->t_line].l_close)(tp); 

} 

coread(dev) 

{ 

struct tty *tp; 

tp co_ttptr [dev] .tt_tty; 

(*linesw[tp->t_line].l_read)(tp); 

} 

cowrite(dev) 

{ 

struct tty *tp; 

tp «= co_ttptr [dev] .tt_tty; 

(*linesw[tp->t_line].l_write)(tp); 

} 

/* ARGSUSED */ 

coioctl(dev, cmd, arg, mode) 

{ 

int i; 

switch (cmd) { 

case AL_SBVOL: 

12_bvol «= arg & 7; 
break; 

case AL_SBPITCH: 

12_bpitch “ arg & OxlFFF; 
break; 

case AL_SBTIME: 

if (arg <- 0) 

arg = 1; 

if (arg > 10 * v.v_hz) /* limit to 10 seconds */ 

arg - 10 * v.v_hz; 

12_btime =• arg; 
break; 

case AL_SDIHTIME: 

12_dtime - arg; 

12_dtrap = Ibolt + 12_dtime; 
break; 

case AL_SDIMCONT: 

12_dimcont (~arg) & OxFF; 
break; 

case AL_SDIHRATE: 

12_crate - arg; 

break; j 

case ALSCCWTRAST: ’ 

12_deifcaD.t - (~arg) & OxFF; I 


I 



co.c 


Fri Sep 5 19:08:36 1986 


2 


12_desired * 12_defcont; 

12ramp(Q); 
break; 

case AL_SREPWAIT: 

kb_repwait - arg; 
break; 

case AL_SREPDEIAY: 

kb_repdlay = arg; 
break; 
case AL_GBVOL; 

i = 12_bvol; 

i f (copyout ((caddr__t) & i, (caddr_t) ar g. A)] 
u.u__error = EFAULT; 

break; 

case AL_GBPITCH; 

if (copyout ((caddr__t) &12_bpitch, (caddr_t) arg, 4)) 
u.u_error - EFAULT; 

break; 

case AL_GBTIME: 

if (copyout{(caddr_t)&12_btime, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 

break; 

case AL_GDIMTIME: 

if (copyout((caddr_t)&12_dtime, (caddr_t)arg, 4)) 
u.u_error =• EFAULT; 

break; 

case AL_GDIMCONT: 

i = (~12_dimcont) & OxFF; 
if (copyout((caddr_t)&i, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 

break; 

case AL_GDIMRATE: 

if (copyout((caddr_t)&12_crate, (caddr_t)arg, 4)) 
u.u_errQr » EFAULT; 

break; 

case AL_GCONTRAST: 

i = (-'12_defcont) & OxFF; 
if (copyout((caddr_t)si, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 

break; 

case AL_GREPPfAIT; 

i = kb_repwait S OxFFFF; 

if (copyout((caddr_t)si, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 

break; 

case AL_GREPDELAy; 

i “ kb_repdlay S OxFFFF; 

if (copyout((caddr_t)Si, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 

break; 

case AL__GBMADDR; 

if (copyout((caddr_t)sbmscrn, (caddr_t)arg, 4)) 
u.u_error -= EFAULT; 

break; 

case AL_REWIDEO: 

if (arg > 0) 

i = 0; 

else if (arg == 0) 
i - -1; 

else 

i = (bmbck)? 0 ; -1; 
if (bmbck !- i) { 

bmswitch(); 
bmsinv(); 

} 

bmbck - i; 
branormal - tanbck; 
break; 

*ifdef SUNTX 

case RESTART: /* jump to the start of unix */ 

reinit(); 

((int (*) ())OxCOOO) 0; 
break; 

#endif SUNIX 

default: 

(void) ttiocom(co_ttptriOj.tt_tty, cmd, arg, mode); 


} 


break; 


coproc(tp, cmd) 
register struct tty *tp; 

{ 

register struct ccblock *tbuf; 
extern ttrstrt(); 

switch (cmd) { 
case T_TIME: 

tp->t_state S- -TIMEOUT; 
goto start; 

case T_WFLUSH: 

tbuf - Stp->t_tbuf; 
tbuf->c_size -= tbuf“>c_count; 
tbuf->c_count = 0; 

/* fall through */ 
case T_RESUME: 

tp->t_state S” -TTSTOP; 
goto start; 

case T_OUTPUT: 

start: 

if (tp->t_state S (TTSTOPI TIMEOUT!BUSY)) 
break; 

tbuf = stp->t_tbuf; 

if ((tbuf->c__ptr “=“0) II (tbuf->c_count == 0)) { 
if (tbuf->c_ptr) 

tbuf->c_ptr -= tbuf“>c_size; 
if ('(CPRES S (*linesw[tp->t_line].l_output)(tp))) 
break; 

} 

(*te_j)utc) ((*tbuf->c_ptr++) S0x7f) ; 
tbuf->c_count—; 

sysinfo.xmtint++; /* this is the xrait interrupt */ 

splx(spll0); 
goto start; 

case T_SUSPEND: 

tp->t_state 1“ TTSTOP; 
break; 

case T_BLOCK; 

break; 

case T_RFLUSH: 

if (I(tp“>t_state&TBLOCK)) 
break; 

/* fall through */ 

case T_UNBLOCK: 

break; 

case T BREAK: 


cointr(dev) 

{ 

register struct ccblock *cbp; 
register int c, lent, fig; 
struct tty *tp; 
register char ctmp; 
char lbuf[3]; 

sysinfo.rcvint++; 
c “ kb_chrbuf; 
tp = co_ttptr[dev].tt_tty; 
if (tp->t_rbuf.c_ptr “ NULL) 
return; 

♦undef NULLDEBUG 
♦ifdef NULLDEBUG 
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if( c == 0x00 ) { 

sccdebug(); 
return; 

#endif 

if (tp->t_iflag & IXON) { 
ctmp - c & 0177; 
if (tp->t_state & TTSTOP) { 

if (ctmp =*= CSTART I I tp->t_iflag & IXANY) 
i*tp->t_j>roc) (tp, T_RESUME); 

} else { 

if (ctiap CSTOP) 

(*tp->t_proc){tp, T_SUSPEND); 

} 

if {ctmp = CSTART i| ctmp — CSTOP) 
return; 

} 

/* 

* Check for errors 
*/ 

lent = 1; 

fig = tp->t_iflag; 
if (flg&ISTRIP) 

c &= 0177; 

else { 

if (c = 0377 && flg&PARMRK) { 
lbuf[l] = 0377; 
lent = 2; 

1 

} 

/* 

* Stash character in r_buf 
*/ 

cbp “ &tp->t_rbuf; 
if (lent i- 1) { 

lbuf[0] = c; 
while (lent) { 

*cbp->c_ptr++ - IbufE—lent]; 
if (—cbp->c_count ==- 0) { 

cbp->c_ptr cbp->c_size; 

(*linesw[tp->t_line].l_input)(tp); 

} 

) 

if (cbp->c__size !- cbp->c_count) { 

cbp->c__ptr -== cbp->c_size - cbp->c_count; 
(*linesw[tp->t_line].l_input)(tp); 

} 

} else { 

*cbp->c_j>tr “ c; 
cbp->c_count—; 

(*linesw[tp->t_line].l_input)(tp); 

) 

/* 

* This version of putchar writes directly to the bitmap display 

* for those last-ditch situations when you just have to get stuff to the CRT. 
*/ 

coput char (c) 
register c; 

{ 

(*te_putc)(c & 0x7F); 
if (c -- '\n') 

{*te_putc) (' \r') ; 


) 
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/* 

* Configuration information 

*/ 

/* ^define DISK_0 1 */ 

♦define NBUF 30 
♦define NINODE 50 
♦define NFILE 60 
♦define NMOUNT 8 

♦define CMAPSIZ 50 /* also in reinit.c */ 

♦define SMAPSI2 50 /* also in reinit.c */ 

♦define CXMAPSIZ 50 

♦define NCALL 15 

♦define NPROC 30 

♦define NTEXT 20 

♦define NSVTEXT 20 

♦define NCLIST 100 

♦define STACKGAP 8 

♦define NSABUF 5 

♦define POWER 0 

♦define MAXUP 25 

♦define NHBUF 64 

♦define NPBUF 4 

♦define NFLOCK 200 

♦define X25LINKS 1 

♦define X25BUFS 256 

♦define X25MAPS 30 

♦define X25BYTES (16*1024) 

♦define CSIBNUH 20 
♦define VPMBSZ 8192 
♦define MESG 1 
♦define MSGMAP 100 
♦define MSGHAX 8192 
♦define MSGMNB 16384 
♦define MSGMNI 50 
♦define MSGSSZ 8 
♦define MSGTQL 40 
♦define MSGSEG 1024 
♦define SEMA 1 
♦define SEMMAP 10 
♦define SEMMNI 10 
♦define SEHMNS 60 
♦define SEMMNU 30 
♦define SEMMSL 25 
♦define SEMOPM 10 
♦define SEMUME 10 
♦define SEMVMX 32767 
♦define SEMAEM 16384 
♦define SHMEM 1 
♦define SEIMMAX (128*1024) 

♦define SHMMIN 1 
♦define SHMMNI 100 
♦define SHHBRK 16 
♦define SHHALL 512 
♦define STIHBUF (ST_0*4) 

♦define STOHBUF (ST_0*4) 

♦define STNPRNT (ST_Q»2) 

♦define STIBSZ 8192 
♦define STOBSZ 8192 


♦include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/nimu.h" 

♦include "sys/types-h'* 

♦include "sys/sysmacros.h" 

♦include "sys/conf.h" 

♦include "sys/cpuid.h" 

♦include "sys/space.h" 

♦ include "sys/io.h** 

♦include "sys/terraio.h“ 

♦include "sys/reg.h** 

♦include "sys/scc.h" 

♦include "sys/pport-h” 

♦include "sys/swapsz.h” 


extern nodev(), nulldev(); 

extern proopen0, proread(), prowrite(), prostrategy(), proprint(), proioctK); 

extern snbopenO, sncopenO, snbcloseO, snccloseO, snreadO, snwriteO, snstrategyO, snprintO, sni 

extern cvopen(), cvread(), cvwrite(), cvstrategy(), cvprint(); 

extern paopen (), pmread (), pniwrite (), pmstrategy (), paprint (), praioctl () ; 

extern coopen(), coclose(), coreadO, cowrite(), coioctlO; 

extern syopen(), syread(), sywrite(), syioctl(); 

extern mmread (), inniwrite (); 

extern scopen(), scclose(), scread(), scwrite(), scioctl(); 
extern erropen(), errclose(), errread(); 
extern proread{), prowrite(), proioctl(); 
extern ejioctlO; 

extern msopen0, mscloseO, msreadO, msioctlO; 
extern Ipopen(), Ipclose{), Ipwrite(), Ipioctl(); 
extern skopenO, skcloseO, skwriteO; 
extern rtcread(), rtcwrite(); 

extern teopen(), tecloseO, tereadO, tewriteO, teioctlO; 

♦ifdef UCB_NET 

extern int ptsopenO, ptscloseO, ptsreadO, ptswriteO; 
extern int ptcopenO, ptccloseO, ptcreadO, ptcwriteO; 
extern int ptsioctl(), ptcioctl(); 

♦endif 

struct bdevsw bdevsw[} - { 

proopen, nulldev, prostrategy, proprint, /* 0 */ 

snbopen, snbclose, snstrategy, snprint, /* 1 */ 

cvopen, nulldev, cvstrategy, cvprint, /* 2 */ 

pmopen, nulldev, pmstrategy, pmprint, /* 3 */ 

In¬ 


struct cdevsw cdevsw[] =» { 


coopen. 

coclose. 

coread. 

cowrite. 

coioctl. 

0 , 

/* 

0 */ 

syopen. 

nulldev. 

syread. 

sywrite. 

syioctl. 

Of 

/* 

1 */ 

nulldev. 

nulldev. 

mmread. 

mmwrite. 

nodev. 

Of 

/* 

2 */ 

erropen. 

errclose. 

errread. 

nodev. 

nodev. 

Of 

/* 

3 */ 

scopen. 

scclose. 

scread. 

scwrite. 

scioctl. 

0 , 

/* 

4 */ 

proopen. 

nulldev. 

proread. 

prowrite. 

proioctl. 

0 , 

/* 

5 */ 

sncopen. 

sncclose. 

snread. 

snwrite. 

snioctl. 

Or 

/* 

6 */ 

nulldev. 

nulldev. 

nodev. 

nodev. 

ejioctl. 

0 , 

/* 

7 */ 

Ipopen, 

Ipclose, 

nodev. 

Ipwrite, 

Ipioctl, 

0 , 

/* 

8 */ 

msopen. 

msclose. 

rasread. 

nodev. 

msioctl. 

0 , 

/* 

9 */ 

skopen. 

skclose. 

nodev. 

skwrite. 

nodev. 

0 , 

/* 

10 */ 

cvopen. 

nulldev. 

cvread. 

cvwrite. 

nulldev. 

0 , 

/* 

11 */ 

pmopen. 

nulldev. 

pmread. 

pmwrite. 

pmioctl. 

0 , 

/* 

12 */ 

nulldev. 

nulldev. 

rtcread. 

rtcwrite. 

nulldev. 

0 , 

/* 

13 */ 

teopen, 
♦ifdef UCB_NET 

teclose. 

teread. 

tewrite. 

teioctl. 

0, 

/* 

14 */ 

nodev. 

nodev. 

nodev. 

nodev. 

nodev. 

0, 

/* 

15 */ 

nodev. 

nodev. 

nodev. 

nodev. 

nodev. 

0, 

/* 

16 */ 

nodev. 

nodev. 

nodev. 

nodev. 

nodev. 

0, 

/* 

17 */ 

nodev. 

nodev. 

nodev. 

nodev. 

nodev. 

0, 

/* 

18 */ 

nodev. 

nodev. 

nodev. 

nodev. 

nodev. 

0, 

/* 

19 */ 

ptcopen. 

ptcclose. 

ptcread. 

ptcwrite. 

ptcioctl. 

0, 

/* 

ptc 20 

ptsopen. 

ptsclose. 

ptsread. 

ptswrite. 

ptsioctl. 

0, 

/* 

pts 21 


♦endif 

}; 




int 

bdevcnt 

= sizeof(bdevsw)/sizeof(bdevsw[0]); 

int 

cdevcnt 

- sizeof(cdevsw)/sizeof(cdevsw[0]); 

♦ifdef 

SUNIX 

/* Sony (installation) root filesystem */ 

dev_t 

rootdev 

= makedev(l. 

0); 

dev_t 

pipedev 

«= raakedevd. 

0); 

dev__t 

durapdev 

- makedev(l. 

0); 

/* nswap and swapdev are set 

in lisainit in config.c */ 

dev__t 

swapdev 

- makedev(0. 

1); 

daddr_t 

swplo - 

0; 


int nswap “ 

PRNSWAP; 


♦else SUNIX 

/* ProFile root filesystem */ 

♦define 

ROOTBASE 0 

/* (port * 16) for port-0,1,2,4,5,7, or 8 */ 

dev_t 

rootdev 

- makedev(0. 

ROOTBASE); 

dev t 

pipedev 

- raakedev(0. 

ROOTBASE); 

dev_t 

dumpdev 

« iaaJcedev(0, 

ROOTBASEI; 
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dev_t swapdev -> makedevtO, ROOTBASE + 1); 

daddr_t swplo - 0; 

int nswap - PRNSWAP; 

fendif SUNIX 


int 

(♦dump){) - nulldev; 

int 

dump_addr - 0x0000; 

int 

(*pwr clr[])0 = { 

); 

(int (*)())0 

int 

(*dev_init[])0 = 

{ 

(int (*) 0)0 


}; 


♦ifdef 

SCC_CONSOLE 

int 

scputchar(); 

int 

(*putchar) () “= scputchar, 

♦else 


int 

coputchar(); 

int 

(*putchar) () =* coputchar, 


tendif 

#ifdef UCB_NET 
^define PTC_DEV 20 
int ptc_dev =• PTC_DEV; 

#endif 

int co_cnt = 1; 
struct tty co_tty[l]; 

struct ttyptr co_ttptr[] = { 

1, &co_tty[0], /* tt_addr field not used */ 

0, 

}; 

int sc_cnt =“ NSC; 
struct tty sc_tty[NSC]; 
char sc_mQde!ti[NSC] ; 

struct ttyptr sc_ttptr[] = { 

0XFCD240, 4SC_tty[l], 

0XFCD242, &sc_tty[0], 

0, 

}; 

Struct scline sc_line[] = { 

SfSBRESET, (4000000/16), /* clock frequency b */ 

W9ARESET, (4000000/16), /* clock frequency a */ 

}; 

#if NTE 0 
int te__cnt - NTE; 
struct tty te_tty[NTE]; 
char te_dparamtNTE]; 
char tejnodem [NTE ]; 

struct ttyptr te_ttptr[NTE+1]; /* +1 for pstat */ 

♦endif 

/* 

* pointers to ttyptr structures for terminal monitoring programs 
*l 

struct ttyptr *tty_stat[] => { 
co_ttptr, 
sc_ttptr, 

♦if NTE !- 0 

te_ttptr, 

♦endif 

0 

}; 


/* 

* tty output low and high water marks 


1 

1 


*/ 

♦define TTHIGH 
♦ifdef TTLOW 
♦define M 
♦define N 
♦endif 

♦ifdef TTHIGH 
♦define M 3 

♦define N 1 

♦endif 

int tthiwat(161 - { 



0*M, 

6G*H, 

60*H, 

60 *M, 

60 *M, 

60 *H, 

60 *H, 

120 


12Q*M, 

180*M, 

180*M, 

240*H, 

240*M, 

240*M, 

100*M, 

100*M, 

}; 

int 

ttlowat[163 - i 
Q*N, 20*N, 

[ 

20*N, 

20*N, 

20*N, 

20*N, 

20*N, 

40*N, 


40*N, 

60*N, 

60*N, 

80*N, 

80*N, 

80*N, 

5Q*N, 

50*N, 




/* 

* Default terminal characteristics 
*/ 

char ttccharfNCC] = { 

CINTR, 

CQUIT, 

CERASE, 

CKILL, 

CEOF, 

0 , 

0 , 

0 


♦ifdef lint 
/* LINTLIBRARY */ 
forlint() 

{ 

Ixainit (); 
nmikey () ; 

llintr((struct args *)0); 
kbintr(); 

scintr((struct args *)0); 
pmintr((struct args *)0); 
ebintr(0); 
netintr(); 

} 

♦endif 

♦ifdef UCB_NET 
♦include <net/misc.h> 

♦include <net/ubavar.h> 

extern struct uba_driver ebdriver; 

struct uba_device ubdinit[] - { 

/* driver, unit, addr, flags*/ 

{ 4ebdriver, 0, (caddr_t)5, 0x59002908 }, /* net 89 */ 

0 


int iff_noarp - 0; 
♦endif 


/* 0 -> do ARP; not 0 -> no ARP */ 
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/* 

* This file contains 

* 1. oem modifiable configuration personality parameters 

* 2. oem modifiable system specific kernel personality code 
*i 

^include "sys/param.h” 

^include "sys/config.h” 

#include "sys/mrau.h** 

#include “sys/types.h" 

#include "sys/sysmacro s.h" 
finclude "sys/systm.h" 

#include "sys/map-h" 

#include ■sys/dir.h" 

^include "sys/signal.h“ 
finclude "sys/user.h“ 
tinclude "sys/errno.h" 

#include "sys/proc.h" 
tinclude "sys/buf.h" 
tinclude "sys/iobuf.h" 
tinclude "sys/reg.h” 
tinclude "sys/file.h" 
tinclude *sys/inode.h" 
tinclude '•sys/seg.h*' 
tinclude "sys/acct.h" 
tinclude "sys/sysinfo.h" 
tinclude "sys/var.h" 
tinclude "sys/ipc.h" 
tinclude "sys/shm.h* 
tinclude "sys/termio.h" 

tinclude *sys/conf.h" 
tinclude •sys/cops.h" 
tinclude "sys/pport.h" 
tinclude "sys/local-h** 
tinclude '•sys/12.h'* 
tinclude "sys/kb.h" 
tinclude "sys/swapsz.h" 

/*char oeramsg[] - "UniSoft Systems distribution system release 1.5**;*/ 

char oemmsgE] = "UniSoft Systems pre-distribution system <release 1.5+)”; 

int sspeed = B9600; /* default console speed */ 

int parityno - 28; /* parity interrupt vector */ 

int cmask == CMASK; /* default file creation mask */ 

int cdlimit - CDLIMIT; /* default file size limit */ 

char slot INSLOTS]; /* card ID numbers for expansion cards */ 

/* 

* Kernel initialization functions, 

* Called from main.c while at spl7 in the kernel. 

*/ 

oem7init() /* alias (formerly) "lisainit" */ 

{ 

#ifdef SUNIX 

int dev; 

extern dev_t swapdev; 
extern int nswap; 

♦endif SUNIX 

extern struct rtime rtime; 
extern int pmvect[]; 
extern int tevect[]; 

register short *sidp; /* slot ID pointer */ 

register slotid, i; 
register long *ip; 

12init(); /* setup the COPS ports */ 

/* This mess disables the verticle retrace interrupt, for now. 

*/ 

do { 

VRON « 1; 

} while {(STATUS & S_VR) i- 0); 
do { 

VROFF - 1; 

] while ((STATUS & S_VR) “ 0); 


/* Some of the initialization requires that interrupts be enabled to 

* pick up coded sequences from the keyboard cops. If interrupts were 

* masked out then the time returned by READCLOCK would fill the 

* buffer and KBENABLE, which also returns a value, would have trouble. 


SPLK); 

12copscmd(MOUSEOFF); 
12copscmd(READCLOCK); 
12copscmd (K^HABLE); 


/* ok, do it to me */ 

/* shut off mouse interrupts */ 
/* get time of day */ 

/* enable keyboard */ 

/* Sony initialization */ 


/* Wait 'til the clock data (from READCLOCK) and keyboard ID (from 
KBENABLE) have come in, and the keyboard is back in NORMALSJAIT */ 
while (kb_state); 
time = rtime.rt_tod; 

SPL7(); /* it should be at level 7 for the rest (?) */ 

/* Find out what's in each of the expansion slots. 

*/ 

for (i = 0, sidp - SLOTIDS; i < NSLOTS; i++, sidp++) { 

slotli] => OxFF; /* not supported */ 

slotid - *sidp & SLOTMASK; 
if (1slotid) { 

if (iocheck((caddr_t)(STDIO+i*0x4000+l))) { 

printf("Expansion slot %d; quad serial card\n", 
i+1) ; 

if (teinit(i) “ 0) { 

/* 

* point to interrupt vector, 

* set tecmar quad serial board inter loc, 

* and initialize hdwr 
*/ 

ip - &((long *) 0)[EXPIVECT+devtoslot(i)]; 

*ip = (long)tevect + (long) (devtoslot(i)«2) ; 


printf("Expansion slot %d; ", i+1); 
switch (slotid) { 
case ID_APLNET: 

printf("applenet cardXn"); 
break; 

case ID_PRO: 

printf("ProFile cardXn"); 
break; 
case ID_2PORT: 

printf("two port cardXn"); 
slot[i] = PRO; /* valid */ 

break; 
case ID_PRIAM: 

printf("Priam cardXn"); 

ip - &((long *) 0)[EXPIVECT+devtoslot(i)]; /* point to int vector */ 

*ip -= (long)pmvect + (long) (devtoslot (i) «2); /* set to Priam intr */ 

if (pracinit(i) — 0) /* initialize controller */ 

slot[i] - PM3; /* valid */ 

break; 

default: 

printf ("card ID 0x%xXn", slotid); 

} 

} 

scinitO; /* SCC serial initialization */ 

#ifdef UCB_NET 

netinit(); 

♦endif 

/* Now enable the verticle retrace interrupt, used for the system clock. 

*/ 

do { 

VRON - 1; 

} While ((STATUS & S_VR) I- 0); 

+ifdef SUNIX 

SPLO(); 

/* This is the first unix booted during installation so find swapdev. */ 
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if (rootdev ->= mak6dev(SNl, 0)) { 

while (chkdev(dev =■ getdevnam ())) 

printf("Unable to use that deviceXnTry again;\n"); 
printf("\n\nswapdev * 0x%x\n\n", dev); 
swapdev - dev; 

if (iaajor{dav> = PRO) nswap “ FRNSSfAP; 
else if (major(dev) — PM3) nswap = PMNSWAP; 
else if (major(dev) -= CV2) nswap - CVNSWAP; 
else panic("cannot determine size of swapdev"); 

) 

#endif SUNIX 


/* 

* Kernel initialization functions. 

* Called from main.c while at splO in the kernel. 

*/ 

oemOinit{) 

{ 

) 

/* 

* parityerror() 

* Called from trap for parity error traps via 

* interrupt level "parityno" (conf.c). 

* Should return non-zero for fatal errors. 

* Should return zero for a transient warning error. 

*/ 

parityerror() 

{ 

printf("parity error\n"); 
return(-1); 

} 

/* 

* reboot the system 

* called from reboot function 
*/ 

doboot() 

{ 

kb_state = SHUTDOWN; 

SPL7(); 
rom_mon(); 

/*NOTREACHED*/ 

} 

f* 

* OEM supplied subroutine called on process exit 
*/ 

/* ARGSUSED */ 
oeraexit(p) 

register struct proc *p; 

♦ifdef lint 

/* for lint use p */ 
p->p_flag++; 

Oendif 

1 

struct device_d *pro_da[NPPDEVS] = { /* DEV Description */ 

PPADDR, /* 0x00 parallel port */ 

(struct device_d *)(STDIO+0x2000), /* 0x10 FPC port 0 slot 1 */ 

(struct devlce_d *)(STDIO+0x2800), /* 0x20 FPC port 1 slot 1 */ 

(struct device_d *)(STDIO+0x3000), /* 0x30 FPC port 2 slot 1 III*/ 

(struct device_d *)(STDIO+0x6000), /* 0x40 FPC port 0 slot 2 */ 

(struct device_d *)(STDIO+0x6800), /* 0x50 FPC port 1 slot 2 */ 

(struct device_d *)(STDIO+0x7000), /* 0x60 FPC port 2 slot 2 III*/ 

(struct devlce_d *)(STDIO+OxAOOO), /* 0x70 FPC port 0 slot 3 */ 

(struct device_d *)(STDIO+OxABOO), /* 0x80 FPC port 1 slot 3 */ 

(struct device_d *)(STDIO+OxBOOO) /* 0x90 FPC port 2 slot 3 III*/ 

}; 

int (*pi_fnc[NPPDEVS])(); /* slots for interrupt handler addresses */ 

/* Set the interrupt handler for a given parallel port controller. 


/* SHUTDOWN (see kb.c)*/ 

/* extreme priority */ 

/* return to the RCM monitor */ 


setppint(addr, fnc) 
struct device_d *addr; 
int (*fnc)(); 

{ 

register int i; 

extern int cvint(), prointr(), Ipintr(); 


} 


for (i=0; i<NPPDEVS; i++) 

if (pro_da[i] *= addr) { /* found dev number */ 

if (pi_fnc[i]) ( /* in use */ 

if (pi_fnc[i] =- fnc) /* same handler */ 
return 0; 

if (pi_fnc[i] — prointr) 

printf("ALREADY assigned to profile\n"); 
else if (pi_fnc[i] = Ipintr) 

printf("ALREADY assigned to lp\n"); 
else if (pi_fnc[i] — cvint) 

printf("ALREADY assigned to corvus\n"); 

else 

printf("Assigned to unknown handler at 0x%x\n",pi_fnc[i]); 

break; 

} 

pi_fnc[i] “ fnc; 
return 0; 

) 

return 1; 


/* Free the interrupt handler slot for a given controller. 
*/ 

freeppin(addr) 

struct device_d *addr; 

{ 


register int i; 


for (i-0; i<NPPDEVS; i++) 

if (pro_da[i] =“ addr) { 
pi_fncli] = 0; 
return; 


/* 

* ppintr - handle interrupt from parallel port controllers 
*/ 

ppintr(ap) 
struct args *ap; 

{ 

register int i, j; 

register char a; 

register struct device_d *dp; 

int (*fnc)(), ebintrO, prointr(), cvint(), Ipintr(); 
extern char IpfIg[]; 


if((i “ ap->a_dev) >= 0) { /* special case for pp 0 */ 

if(fnc - pi_fnc[i]) ( 
fnc(i); 
return; 

} 

} 

j = i + 2; 
while (i < j) { 

dp “ pro_da[i]; 
if ((a = dp->d_ifr) & FCAl) { 
asra(" nop "); 

dp->d_ifr “ a; /* reset interrupt */ 
if (fnc “ pi_fnc[i]) { 

if (fnc Ipintr) 

Ipflgti] - 0; 
else if (fnc !,■= ebintr && 
fnc !- prointr ii 
fnc I- cvint) { 

printf("pi_fnc[%d] - ux%x invalid!1\n", 
i,fnc); 

return; 

) 
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#ifdef INTDUMP 


fendif INTDUJ5P 


ppdump(i,dp) ; 


^ifdef INTDUMP 
ppdurap (n, p) 

register struct devic6__d *p; 

{ 

printf ("pport %d; 

printf (••ifr=%x acr=%x pcr==%x ddra'=%x ddrb=%x irb^%x\n'', 

p->d_ifrsOxFF, p->d_acr4QxFF, p-->djpcr40xFF, p“>d_ddra&0xFF, 
p->d_ddrb&0xFF, p->d_irb40xFF); 

) 

#endif INTDUMP 


called from clock if there's a panic in progress 


clkstopO 

{ 

VROFF - 1; 


/* disable vertical retrace intr */ 


nmikey() 

{ 

int i; 

register short status; 

/* added 7/25/84 to provide more info than "NMI key”. 

* (taken from section 2.8 of Lisa Theory of Operations) 
*/ 

printf{‘'non-maskable interrupt; ”); 
status - STATUS; 
if (status & S_SHEHERR) 

printf("soft memory error\n"); 
else if (status & S_HHEMERR) 

printf("hard memory error\n”); 

else 

printf("power failure/keyboard reset\n"); 

^ifdef HOWFAR 

showbus(); 

#endif HOWFAR 

for (i-OxCQOOOO; i>0; i—) ; /* delay */ 


iifdef SUNIX 
/* Get swap device name 
*/ 

getdevnam () 

{ 


char *p, *gets(); 
int unit, dev; 


printf("\n\nWhere is the swap area?\n"); 

printf{"Enter; 'p' for builtin disk or a profile disk\n"); 

printf(" 'c' for Corvus disk\n"); 

printf(" 'pm' for Priam disk\n"); 

p - getsO ; 

switch (p[0]) { 

case 'p': 

dev - PRO; 
if (p[l] 'm') 

dev - PM3; 

break; 


dev “ CV2; 
break; 


default: 


} 


printf("Invalid input. Try again.\n"); 
goto retry; 

} 

printf("Where will the disk be?\n"); 
if ((dev — PRO) j| (dev CV2)) { 

printf("Enter: '0' for builtin port\n"); 

printf(" '1' for Expansion Slot 1, Bottom Port\n"); 

printf(" '2' for Expansion Slot 1, Top PortXn"); 

printf(" '4' for Expansion Slot 2, Bottom PortXn"); 

printf(" '5' for Expansion Slot 2, Top PortXn"); 

printf(" '7-' for Expansion Slot 3, Bottom PortXn"); 

printf(■ '8' for Expansion Slot 3, Top PortXn"); 

p - getsO; 

switch (p[0]) { 

case '0': 

case '1': 

case '2': 

case '4': 

case '5': 

case '7'; 

case '8': 

unit - p[0] - 'O'; 
break; 

default; 

printf("Invalid input. Try again.Xn"); 
goto retry; 

} 

} else { /* dev = PM3 */ 

printf("Enter; '0' for Slot iXn"); 

printf(" '1' for Slot 2Xn"); 

printf(" '2' for Slot 3Xn«); 

p = getsO; 

switch (p[0]) { 

case '0': 

case '1'; 

case '2'; 

unit - p[0] - 'O'; 
break; 

default: 

printf("Invalid input. Try again.Xn"); 
goto retry; 

} 

} 

return makedev(dev, (unit«4) I 1 ); 


chkdev(d) 

{ 

return(*bdevsw(bmajor(d)].d_open)(minor(d), FREAD } FWRITE); 

} 


/* 

* This version of getchar reads directly from the keyboard in order to get 

* swapdev when the parallel port is not available. It will not work once 

* the console has been formally opened. 

*/ 

char kb_getchr; 
cogetchar() 

{ 

SPLOO; 

while(kb_state) ; /* wait for kb driver to finish special cmd 

kb__getchr = 1; /* wait flag */ 

while (kb_getchr) ; /* wait for it to happen */ 

return kb_chrbuf; 


*/ 


/* Kernel get string routine. 

* Useful for getting information from the console before the system 

* comes up. The getchar routine will not work once the console has 

* been opened. 

*/ 

Int (*getchar)() - cogetchar; 
extern int (*putchar)(}; 


char getsbuf^lQQ]; 
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char * 
gets 0 
{ 

register char *p; 
register char c; 
extern short kl>_3ceycomit; 


p = getsbuf; 

while (c = (*getchar)()) { 
switch (c) { 
case '\r'; 
case '\n'; 

goto out; 
case '\b': 

if (p > getsbuf) { 

p—; 

} 

break; 
case '0': 

case 'X'&OxlF: /* line kill */ 

if (p > getsbuf) { 

p = getsbuf; 

c = '\n'; /* echo a newline */ 

} 

break; 

default; 

*p++ •= c; 

} 

(*putchar)(c); 

if (p >“ getsbuf + sizeof(getsbuf)) { 

printf("\nlnput line too long, try again ...\n"); 
p “ getsbuf; 


*p - '\0'; 

(*putchar)('\n'); 
return getsbuf; 

} 

♦endif SUNIX 
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♦include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/muu.h" 

♦include "sys/types.h" 

♦include "sys/sysmacro s.h" 

♦include "sys/systm.h" 

♦include "sys/sysinfo.h" 

♦include ■sys/callo.h" 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/ipc.h" 

♦include "sys/shm.h" 

♦include "sys/proc.h" 

♦include "sys/text.h" 

♦include "sys/psl.h" 

♦include "sys/var.h” 

♦include "sys/context.h" 

♦include "sys/map-h" 

/* ♦define HOWFAR */ 

extern struct shminfo shminfo; /* shared memory info structure */ 

struct context cxhdr; /* head of context structure */ 

/* 

* Allocate a new context freeing one if necessary 
*/ 

struct context * 
cxallocO 
{ 

register struct context *cx; 

/* 

* search for unused context 
*/ 

for (cx = cxhdr.cx_forw; cx i- ficxhdr; cx = cx->cx_forw) 
if (cx->cx_proc “0) 

return (cxiinlink (cx)); 

/* 

* return the context on top of the queue 
*/ 

cx =* cxhdr.cx_forw; 
cxrfree(cx); 
return(cxunlink(cx)); 

} 

/* 

* Find first used context and free it 
*/ 

cxfree 0 

{ 

register struct context *cx; 


for (cx - cxhdr.cx_forw; cx 
if (cx->cxjproc) { 
cxrelse(cx), 
return(0); 

} 

} 


icxhdr; cx = cx->cx_forw) { 


/* 

* Initialize the context structure linked list 
*/ 

cxinit() 

( 

register struct context *cx; 
register i; 

i « USERCX; 
cx - Acxhdr; 

cx->cx_forw - cx->cx_back - cx; 

for (cx - &context[0]; cx < &context[NUMUCONTX]; cx+r) { 
cx->cx_num = cxntocx(i++); 


cxtail(cx); 


) 

} 

/* 

* Release the context associated with 

* a given context structure and 

* move it to the head of the queue 
*/ 

cxrelse(cx) 

register struct context *cx; 

{ 

register struct context **backp; 

if (cx -«= 0) 

return; 

♦ifdef HOWFAR 

printf("Releasing %d segs for cx %d\n", cx->cx_dsize, cx->cx_num); 
♦endif 

cxrfree(cx); 

cx->cx_back->cx_^forw = cx->cx_forw; 
cx->cx_forw->cx__back = cx->cx_back; 
backp = (struct context **)&cxhdr.cx_forw; 

(*backp)->cx_back = cx; 
cx->cx_forw “ *backp; 

*backp = cx; 
cx->cx_back = Acxhdr; 

) 

/* 

* Release the context associated with 

* a given context structure 
*/ 

cxrfree(cx) 

register struct context *cx; 

{ 

register struct proc *p; 
register struct cxphys *cxp; 
register struct cxshm *cxs; 
int i; 

if ((p “ cx->cx_proc) ==■ NULL) 
return; 

if (cx->cx_dsize >0) { 

♦ifdef HOWFAR 

printf("Freeing %d data segments at %d for pid %d\n", 
cx->cx_dsize, cx->cx_daddr, p->p_j>id) ; 

♦endif 

if (cx->cx_daddr “ 0) 

printf("cxrfree error. cx_daddr » 0\n"); 
mfree(cxmap, (short)cx->cx_dsize, (short)cx->cx_daddr); 
cx->cx_dsize =* 0; 
cx->cx_daddr =- 0; 

} 

exp = 4cx->cx__phys [0]; 
for (i-0; i<v.v_j)hys; i++) { 
if (cxp->cx_j3hsize) { 

mfree(cxmap, (short) cxp->cx_j>hsize, 

(short)cxp~>cx_phaddr); 
cxp->cx_phsize - 0; 
cxp->cx_j)haddr *" 0; 

) 

cxp++; 

} 

exs - icx->cx_shm[0]; 
for (i=0; i < shminfo.shmseg; i++) { 
if (cxs->cx_shmsize) { 

mfree(exmap, (short)cxs->cx_shmsize, 

(short)cxs->cx_shmaddr); 
cxs->cx_shmsize “ 0; 
cx3->cx_shmaddr - 0; 

} 

CXS++; 

} 

cx->cx_proc — 0; 
p->p_ciantiBxt - 0; 
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} 

/* 

* Put a context buffer onto the tail of the context queue 
*/ 

cxtail(cx) 

register struct context *cx; 

{ 

register struct context **backp; 

backp = (struct context **)icxhdr.cx_back; 

(*backp)->cx_forw -= cx; 
cx->cx_back - *backp; 

*backp - cx; 
cx->cx_forw = ficxhdr; 

} 

/* 

* Release context resources associated 

* with a text segment. 

*f 

cxtxfree(xp) 

register struct text *xp; 

{ 

register struct proc *p; 

for (p = fiproctO]; p < (struct proc *)v.ve_j 5 roc; p++) 
if (p->p_textp ““ xp) 

cxrelse(p->p_context); 
if (xp“>x_cxaddr =« 0 || xp->x_size =“ 0) 
return; 

iTifree(cxitiap, (short) ctos (xp->x_size), (short)xp->x_cxaddr) ; 
xp->x_cxaddr = Q; 

} 

/* 

* unlink a context structure from the queue 
*/ 

struct context * 
cxunlink(cx) 

register struct context *cx; 

{ 

cx->cx_back->cx_fQrw =■ cx->cx_forw; 
cx->cx_forW“>cx_back = cx->cx_back; 
return(cx); 

} 

/* 

* Free all shared text segments 
*/ 

txfreeO 

{ 

register struct text *xp; 
register struct proc *p; 
int n; 

n - 0; 

for (p =■ &proc[0]; p < (struct proc *)v.ve_j)roc; p++) { 
if {(xp - p->p_textp) NULL) { 
cxrelse(p->p_context); 
if (xp->x_cxaddr && xp->x_size) { 

rafree(cxmap, (short)ctos(xp->x_size ), 
(short)xp“>x_cxaddr); 
xp->x_cxaddr “ 0; 
n++; 

} 

} 

} 

return(n); 

} 
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/*#define HOWFAR*/ 

♦define INTSON /* defined for an interrupting disk */ 

/* 

* corvus Disk System 
*/ 

♦include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/mmu-h" 

♦include "sys/types.h" 

♦include "sys/sysmacros.h" 

♦include "sys/dir.h'‘ 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/ermo.h" 

♦include "sys/utsname.h" 

♦include "sys/buf-h" 

♦include "sys/elog.h" 

♦include "sys/erec.h" 

♦include "sys/iobuf.h" 

♦include "sys/systm.h" 

♦include "sys/var.h" 

♦include "sys/altblk.h" 

♦include "sys/diskformat.h“ 

♦include "setjmp.h" 

♦include "sys/cops.h" 

♦include "sys/pport.h" 

♦include "sys/d_j>rofile.h" 

♦include "sys/cv.h" 

♦include "sys/swapsz.h" 

♦ifdef notdef /* defined in d_jjrofile.h */ 

♦define logical(x) (minor(x) & ?) I* eight logicals per phys */ 

♦define interleave(x) (minor(x) & 0x8) /* interleave bit for swapping */ 

♦define physical(x) ((minor(x) & OxFO) » 4)/* 10 physical devs */ 

♦endif 

♦define cv_addr(d) (prodata Id].pd_da) 

♦define cvwait(a) while(((a)->d_irb & ST_BUSY) “ 0) 

/* 

* the total space on the corvus h series is; 

* 306 cylinders are there but corvus reserves 2 

* 304 cylinders * 20 sectors per track * 6 heads = 

* 36480 

* 

* The first 100 blocks are reserved for the boot program and 

* are inaccessible via unix. 

*/ 

♦define HAXBOOT 100 
struct cv_sizes { 

daddr_t sz_offset; 
daddr_t sz_size; 

} cv_sizesn - { 

CVNSWAP+101, 32420, /* a; root filesystem */ 

101, CVNSWAP, /* b: swap area (3959 blocks) */ 

0, 0, /* c: unused */ 

0, 0, /* d: unused */ 

0, 0, /* e: unused */ 

0, 0, /* f: unused */ 

0, 0, /* g: unused */ 

101, 1000000 /* h: filesystem using entire disk */ 

In¬ 
struct iostat cvstat[NPPDEVS]; 

struct iobuf cvtab = tabinit(CV2,cvstat); /* active buffer header */ 

struct buf cvrbuf; 

/* 

* cvopen - chec)c for existence of controller 
*/ 

cvopen(dev) 
register dev; 

{ 

register punit; 

register struct device_d *devp; 
int cvint On- 


extern char slot [ ]; 


punit - physical(dev); 

if (punit) ( /* for expansion slot check slot number and type */ 

if (iPPOK(punit) || (slot[PPSLOT(punit)] !-PR0)) { 
u.u_error - ENXIO; 
return 1; 

} 

} 

devp - pro_da[punit]; 


if (iocheck(4devp'>d_ifr)) { /* board there ? */ 

if (cv_addr(punit) i- devp) { /* not already setup */ 

if (setppint((cv_addr(punit) = devp),cvint)) 
goto fail; 

if (cvinit(iprodata[punit])) { 
freeppin(devp); 
goto fail; 

} 

} 

} else { 
fail: 


u.u_error = ENXIO; 

cv_addr(punit) - (struct device_d *)0; 
return 1; 


* cvinit - initialize drive first time 
*/ 

cvinit (p) 

register struct prodata *p; 

{ 

register struct device_d *devp - 
register char irb; 
register char zero =0; 
int pi; 


pi = spl6(); 
if (devp PPADDR) { 

devp->d_ddrb &=* 0x5C; 
devp->d_pcr = 0x6B; 
devp->d_ddra = zero; 
devp->d_irb |-= CMDIDRW; 
devp->d_ddrb |“ 0x7C; 
devp->d_irb 4- ~DEN; 

} else { 

devp->d_j5cr = 0x6B; 
devp-*>d_ddra = zero; 
devp->d_irb = CMDIDRW; 
devp->d_ddrb = 0x7C; 


/* port B bits: 0,1,5,7 to in, 2,3,4,6 to out 
/* set controller CA2 pulse mode strobe */ 

/* set port A bits to input **/ 

/* set command = false set direction - in */ 


/* set controller CA2 pulse mode strobe */ 

/* set port A bits to input **/ 

f* set command false set direction = in 


♦ifdef INTSON 

devp“>d_ier = FIRQlFCAl; 
irb ■= devp->d_irb; 

♦ifdef lint 

pi - irb; 

♦endif lint 

p->pd_3tate - SCMD; 
♦endif INTSON 

splx(pl); 
return 0; 


cvstrategy(bp) 
register struct buf *bp; 

{ 

register punit, lunit, bn; 


punit - physical(bp->b_dev); 
lunit - logical(bp->b_dev); 

bn “ bp~>b_blkno + cv_3izes [lunit] . sz__offset; 
if (bp->b_blkno <0 |1 bn <- MAXBOOT) ( 
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#ifdef HOWFAR 


*endif HOSgFAR 


prdevC'cvstrategy: illegal blkno", l5p->b_dev); 
printf(“blkno=%d bcount-%d\n", bp->b_blkno, bp->b_bcoiiiit); 

bp->b_flags I- B_ERROR; 

iodone(bp); 

return; 


cvstat[punit].io_ops++; 
fifdef INTSON 

bp->b_resid = bn; /* resid for disksort */ 

SPL6() ; 

disksort(ficvtab, bp); 

#else INTSON 

bp->av_forw - (struct buf *)NULL; /* last of all bufs */ 
if (cvtab.b_actf — NULL) 

cvtab.b_actf = bp; /* empty - put on front */ 

else 

cvtab.b_actl->av_forw - bp; /* else put at end */ 
cvtab.b_actl = bp; 

#endif INTSON 

if (cvtab.b_active ” 0) 
cvstart(); 

#ifdef INTSON 

SPLO(); 

♦else INTSON 

while (cvtab.b_active) 
cvint (); 

♦endif INTSON 


cvstart() 

{ 

register struct buf *bp; 
register lunit, offset, bn; 
register struct device_d *addr; 


if ((bp = cvtab.b_actf) = (struct buf *)NULL) 
return; 

if (cvtab.b_active — 0) { 

bp->b_resid - bp->b_bcount; 
cvtab,b__active = 1; 

} 

lunit = logical(bp->b_dev); 

blkacty i= (1«CV2); 

offset - bp->b_bcount - bp->b_resid; 

bn “ bp->b_blkno + btod(offset); /* logical block number */ 

if (bp->b_resid < BSIZE || bn >= cv_si 2 es[lunit].sz_size) { 
next: 


♦ifdef HOWFAR 


♦endif HOWFAR 


if (bp->b_resid 1= 0) 

printf("Unix cvstart: blkno=%d resid=%d bn“%d\n", 
bp“>b_blkno, bp->b_resid, bn); 

blkacty 4= ~(1«CV2); 
cvtab.b_active =0; 
if (cvtab.b_errcnt) { 

logberr(Scvtab, 0); /* errlog non-fatal errors */ 
cvtab.b errcnt - 0; 


addr = cv_addr(physical(bp->b_dev)); 
addr->d_ifr » addr->d_ifr; 
cvtab.b_actf => bp->av_forw; 
iodone(bp); 
goto loop; 


/* reset intr */ 


if (cvrw(minor(bp->b_dev), bn * cv_sizes[lunit].sz_offset, BSIZE, 

bp->b_flags&B_READ, bp“>b_un.b_addr + offset) < 0) { 
bp->b_flags |« B_ERROR; 

logberr(ficvtab, 1); /* log fatal error */ 

goto next; 
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#endif HOWFAR 

if (addr = PPADDR) 

addr->d_ifr = addr->d_ifr; /* reset intr */ 

return; 

if ((bp « cvtab.b_3ctf) = (struct buf *)NULL) { 
fifdef HOWFAR 

printf ("cvint: b_actf — NULLW); 

tendif HOWFAR 

if (addr = PPADDR) 

addr->d_ifr - addr->d_ifr; /* reset intr */ 

return; 

} 

cvwait(addr); 
if (addr — PPADDR) 

addr->d_ifr * addr->d_ifr; /* reset intr */ 

if (status = addr“>d_ira) { 
err; 

printf("%s error: /dev/c%d%c blkno“%d\n“, 

bp->b_flags&B_READ?''read'*: "write", punit, 

' a' tlogical {bp->b_dev) , bp-*>b_blkno) ; 
cvlog(status); 
cv_count =0; 

if (++cvtab.b_errcnt > NRETRY) { 
bp->b_flags |- B_ERROR; 

logberr(&cvtab, 1); /* log fatal error */ 

blkacty 4- ~(l«c:V2); 

cvtab.b_errcnt « 0; 

cvtab.b_actf = bp->av_forw; 

cvtab.b_active - 0; 

iodone(bp); 

} 

} else if (bp->b_flags4B_READ) 

if (cvr(punit, (char *)cv_buf, cv_count) < 0) 
goto err; 

/* 

* because a single buffer can take several io operations, 

* we leave it to cvstartO to figure out when it's done 
*/ 

bp->b_resid — cv_count; 
cvstart 0; 


cvlog(status) 
register status; 

{ 

register struct buf *bp; 
register struct device_d *addr; 
register bn, punit, limit; 
struct deverreg cvreg[2]; 

bp = cvtab.b_actf; 

punit - physical(bp->b_dev); 

lunit = logical(bp->b_dev); 

cvtab.io_stp = icvstat[lunit]; 

addr = cv_addr(punit); 

cvreglO].draddr ~ (long)4(addr->d_ira); 

cvreg[0].drvalue = status; 

cvreg[0].drname = "cv status"; 

cvreg[0].drbits - "Corvus disk status code"; 

cvreg[l].draddr = (long)O; 

cvr eg [ 1 ]. drvalue «■ cv_count; 

cvr eg [ 1 ]. drname - "coimt"; 

cvregdl .drbits “ "byte count of transfer"; 

bn - bp->b_blkno + btod(bp'->b_bcount - bp->b_resid) + cv_sizes [lunit] . sz_offset; 
fmtberr(4cvtab, 

(unsigned)punit, 

(unsigned)0, /* cylinder */ 

(unsigned)0, /* trac>: */ 

(unsigned)bn, /* sector */ 

(long)(sizeof(cvreg)/sizeof(cvreg[0])), /* regent */ 

&cvreg[0],4cvreg[l]); 


cvw(unit, buff, n) 
register char *buff; 


register n; 

{ 

register char *ira; 

register struct device_d *addr - cv_addr(unit); 

ira - 4(addr“>d_ira); 

cvwait(addr); 

for ( ; n > 0; n—) { 

if ((addr->d_irb 4 ST_HTOC) == 0) 
break; 

*ira = *buff++; 

} 

for (;;) { 

cvwait(addr); 

if ((addr->d_irb 4 ST_HTOC) =— 0) 
break; 

*ira - 0; 

} 

cv_count — n; 
if (n > 0) { 
iifdef HOWFAR 

printf("cvw: %d bytes short\n", n); 

#endif HOWFAR 

cvlog(0); 
return -1; 

} 

return 0; 

} 

cvr(unit, buff, n) 
register char *buff; 
register n; 

{ 

register char *ira; 

register struct device_d *addr ■= cv_addr (unit) ; 

cvwait(addr); 

ira = 4(addr->d_ira); 

for ( ; n > 0; n—) { 

if (addr'>d_irb 4 ST_HTOC) 
break; 

*buff++ “ *ira; 

} 

cv__count n; 
if (n > 0) { 

#ifdef HOWFAR 

printf("cvr: %d bytes short\n", n); 

#endif HOWFAR 

return “1; 

} 

for (;;) { 

cvwait(addr); 

if (addr->d_irb 4 ST_HTOC) 
break; 
n “ *ira; 

} 

return 0; 

) 

/******** 

♦ifdef INTSON 
♦else INTSON 

/* wait for controller to host direction or timeout */ /* 
cvctoh(a) 

register struct device_d *a; 

{ 

register i; 

for (i - 20; i— > 0;); 
i = 100000; 
do 

while (—i > 0 44 ((a“>d_irb4ST_auSY) — 0)) 
while (i > 0 44 (a->d_irb 4 ST_HTOC)); 
if (i <- 0) ( 

printf("cvetoh: timeout\n"); 
return -1; 
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} 

return 0; 

} 

#endif INTSON 

********f 

cvreadi(dev) 
dev__t dev; 

{ 

physio(cvstrategy, ficvrbuf, dev, B_READ); 

) 

cvwrite(dev) 
dev_t dev; 

{ 

physio(cvstrategy, scvrbuf, dev, B_MRITE); 

} 

cvprint(dev, str) 
char *str; 

{ 

printf(“%s on cv drive %d, slice %d\n", str, (dev»4)&0xF, dev&7); 

} 
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^include "sys/param.h" 

^include "sys/config.h" 

^include "sys/mmu.h" 

♦include "sys/types.h« 

♦include "sys/sysroacros.h” 

♦include "sys/systnr.h" 

♦include "sys/sysinfo.h" 

♦include "sys/callo.h” 

♦include **sys/dir-h'' 

♦include "sys/signal.h" 

♦include •'sys/user .h" 

♦include "sys/proc.h" 

♦include "sys/text.h" 

♦include "sys/ipc.h" 

♦include "sys/shm.h" 

♦include "sys/psl.h" 

♦include "sys/var.h" 

♦include "sys/seg.h" 

♦include "sys/context.h” 

♦include "sys/map.h" 

♦include "sys/errno.h" 

♦include "sys/scat.h" 

typedef int mem_t; 

short segoff; /* ramu segment offset */ 

extern struct shmid_ds *shm_shmeni[]; /* ptrs to attached segments */ 

extern struct shmpt_ds shm__pte[]; /* segment attach points */ 

extern struct shminfo shminfo; /* shared memory info structure */ 

/* ♦define DUMPMM */ 

/* ♦define HOWFAR */ 

/* ♦define TRACEALL */ 

/* 

* Load the user hardware page map. 

*/ 

sureg() 

{ 

register struct user *up; 
register struct phys *ph; 
register struct shaid_ds *sp; 
register short *addr; 
register a, i, j, page; 
struct text *tp; 
struct proc *p; 

up = 4u; 

p “ up->u_procp; 
tp “ p->p_textp; 

♦ifdef HOHFAR 

printf ("sureg:p_addr=0x%x, tsiEe=%d dsi 2 e=‘%d ssize*%d\n", 

p->p_addr, up->u_j)tsi 2 e, up->u_pdsize, up->u_pssize) ; 

♦endif 

SEG1_1 - 1; 

/* SEG2_0 - 1; */ 
clearmmu(); 

addr = (short *)vtoseg(v.v_ustart); 
if (tp !- NULL) ( 

page = tp*->x_caddr + segoff; 

/* map a max of NPAGEPERSEG (256) 512-byte pages per segment */ 
for (i - up->ujptsize; i > 0; i — a) { 

a ” min(NPAGEPERSEG, (unsigned)i); 

setramu((short *)((lnt)addr | ACCSEG), page); 

setramu((short *)((int)addr | ACCLIM), 

( (up->U_xrw«-RO)?ASRO:ASRW) 1 ((256-a) & OxFF)); 
page +- a; 

addr - (short *)((long)addr + (1 « SEGSHIFT)); 

) 

addr-(short *)vtoseg(ctob(stoc(ctos(btoc(v.v_ustart)+up->u_ptsize)))); 

} else 

if (up->u_ptsize 1- 0) 

addr - (short *)((long)addr + 

ctob(stoc(ctos(up->u_ptsize>))); 

/* set up data segment */ 


} 


page - p->p_addr + v.v_usize + segoff; 

/* map a max of NPAGEPERSEG (256) 512-byte pages per segment */ 
for (i = up->u_pdsize; i > 0; i -= a) { 

a = min(NPAGEPERSEG, (unsigned)i); 

setramu((short *)((int)addr I ACCSEG), page); 

setmmu((short *){{int)addr I ACCLIK), ASRW i {{256-a) & OxFF)); 
page += a; 

addr - (short *)((long)addr + (1 « SEGSHIFT)); 

} 

/* set up stack segment */ 
addr = (short *){vtoseg(v.v uend)}; 

page +- up->u_pssize; /* stack is right after data */ 

for (i = up->u_pssize; i > 0; i — a) { 

addr - (short *)((long)addr - (1 « SEGSHIFT)); 
a - min(NPAGEPERSEG, (unsigned)i); 
page — NPAGEPERSEG; 

setramu((short *)((int)addr 1 ACCSEG), page); 

setramu((short *){(int)addr I ACCLIM), ASRffS | (a-1)); 

} 

/* set up physO */ 

for (ph == 4u.u_jphys[0]; ph < 4u.u_j)hys[v.v_j>hys]; ph++) { 
if (ph->u__phsize) { 

page - (ph->u_phpaddr » PAGESHIFT) + segoff; 
addr - (short *)vtoseg(ph->u_phladdr); 
for (i = ph->u_j)hsize; i > 0; i -= a) { 

a “ min(NPAGEPERSEG, (unsigned)i); 

f* if ((getrarau(vtoseg(addr)IACCLIM)&PROTMASK) — ASINVAL) { */ 
if ((getrarau((short *)((int)addr | ACCLIM))&PROTMASK) — ASINVAL) { 
setramu((short *)((int)addr 1 ACCSEG), page); 

setrarau((short *)((int)addr | ACCLIM), ASRW 1 ((256-a) & QxFF)); 

} 

page +- a; 

addr - (short *)((long)addr + (1 « SEGSHIFT)); 

} 

/♦dumpramld); /**** DEBUG ****/ 

) 

} 


/* set up shared memory */ 

for (i == (p “ proc) * shminfo.shmseg; /* index of first shm_shmem[] */ 
i < ((P - proc) + 1) * shminfo.shmseg; i++) { 
sp = shm_shmera[i]; 
if (sp — NULL) 

/* no more shared mem segments this process */ 
continue; 

/* shm_scat is starting physical click number */ 
page - sp->shm_scat + segoff; 

addr - (short *)vtoseg(shm_pte[i].shm_segbeg); 
for (j - btoc(sp->shra_segsz); j > 0; j a) { 
a - rain(NPAGEPERSEG, (unsigned)j); 

if ((get[mtiu( (short *)((int)addr I ACCLIM))&PROTMASK) -- ASINVAL) { 
setmmu((short *)((int)addr | ACCSEG), page); 
setmmu((short *)((int)addr | ACCLIM), 

ASRW 1 ((256-a) & OxFF)); 

) 

page +- a; 

addr - (short *)((long)addr + (1 « SEGSHIFT)); 

} 

} 


setramu(addr, data) 
register short *addr; 
register data; 

{ 

int s; 


♦ifdef TRACEALL 

♦ifdef HOWFAR 

if (data !- ASINVAL) 

if (((int)addr S ACCSEG) — ACCSEG) 

printf("setramu:addr-0x%x, data-0x%x (0x%x)\n", addr, data, data«9}; 


else 
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printf (''setramu:addr“Ox%x prot-=0x%x, length“0x%x (%d)\n'', 

addr, data & PROTMASK, data, 256 - (data 4 OxFF)); 

■tendif 

Jendif 

s = spl7(); 

SETUP_1 = 1; 

*addr “ data; 

SETUP_0 - 1; 
splx{s); 

getjr!!RU{addr) 
register short *addr; 

{ 

register data; 
int s; 

s = spl7(); 

SETX7P_1 - 1; 
data = *addr; 

SETUP_0 - 1; 
splx(s); 
data S" OxFFF; 

#ifdef TRACEALL 
#ifdef HO«FAR 

if (((int)addr £ ACCSEG) — ACCSEG) 

printf (''getnimu;addr”Ox%x, data=0x%x (0x%x)\n'', addr, data, data«9); 

else 

printf ('*getmmu:addr-Ox%x prot-0x%x, length-0x%x (%d)\n“, 

addr, data & PROTMASK, data, 256 - (data & OxFF)); 

#endif 

#endif 

return(data); 

} 

cleannmu () 

{ 

register data - OxCOO; /* ASINVAL (d7) */ 

register inc ■= 0x20000; /* address increment (d6) */ 

register s - 0; /* saved priority (d5) */ 

register short i = 32-1; /* loop counter (d4) */ 

register char *addr = (char *)0x8000; /* address ACCLIM (a5) */ 

#ifdef lint 

*addr = (char)i; 

*addr = (char)inc; 

*addr =« (char) data; 

4endif 


s -= spl7 () ; 


SETUP 1 

= 1; 


asra("loop:"); 


asm(" 

raovw 

d7,a5@«) 

asm(" 

addl 

d6,a5"); 

asra(" 

movw 

d7,a5g") 

asm(" 

addl 

d6,a5") ; 

asm(" 

movw 

d7,a5e") 

asm(" 

addl 

d6,a5") ; 

asm(" 

raovw 

d7,a5@") 

asm(" 

addl 

d6,a5"); 

asm(" 

dbra 

d4,loop" 

SETUP_0 
splx(s), 

= 1; 



} 

/* 

* In V7, Set up software prototype segmentation 

* registers to implement the 3 pseudo 

* text,data,stack segment sizes passed 

* as arguments. 

* The argiament sep specifies if the 

* text and data+stack segments are to 

* be separated. 

* The last argument determines whether the text 

* segment is read-write or read-only. 

* u.u_jptsi 2 e etc replace the proto entries on the pdpll. They 


* are used by sureg to set up the page map. 

*/ 

/* ARGSUSED */ 

estabur(nt, nd, ns, sep, xrw) 
unsigned nt, nd, ns; 

{ 

#ifdef HOWFAR 

printf ("estabur:nt=%d nd=%d ns-%d rw*%d\n'', nt, nd, ns, xrw) ; 

♦endif 

if (verureg(nt, nd, ns, xrw)) 
return(-1); 

sureg (); 
return(0); 

} 

/* 

* verify user registers can be set up 
*/ 

verureg(nt, nd, ns, xrw) 
register unsigned nt; 
unsigned nd, ns; 

register int s; 

/* 

* check for sufficient number of segment registers 
*/ 

if (ctos(nt) + ctos(nd) + ctos(ns) > ctos(btoc(v.v_uend-v.v_ustart))) 
goto bad; 


s = nd + ns + v.v_usize; 
if (nt -- 0) { 

if (s > maxmem) 

goto bad; 

} else { 


/* non shared text */ 


/* shared text */ 

if (nt + s <“ maxmem) /* text+data can fit in largest hole */ 
goto ok; 


u.u_ptsize = nt; {* essentially these pass args uo sureg »/ 

u.u_j>dsize “ nd; 

u.u_j>ssize - ns; 

u.u_xrw = xrw; 

return(0); 

bad: 

#ifdef HOWFAR 

printf("verureg failure:nt-%d nd“%d ns“%d\n*', nt, nd, ns); 
iendif 

u.u_error = ENOMEM; 
return(-1); 


♦ifdef DUHPHM 


Char *mmu_codes[] = { 
"UNPREDICT-0", 
"UNPREDICT-l", 
"UNPREDICT-2*', 
"UNDEFINED", 
"RO stack", 
"RO«, 

"RW Stack", 
«RW", 

"UNPREDICT-8", 

"lO", 

"UNPREDICT-A", 

"UNPREDICT-B", 

"INVALID", 

"UNPREDICT-D", 

"UHPREDICT-E", 

"SPIO", 


/* 0 */ 
/* 1 */ 
/* 2 */ 
/* 3 */ 
/* 4 */ 
/* 5 */ 
/* 6 */ 
/* 7 */ 
/* 8 */ 
/* 9 */ 
/* A */ 
/* B */ 
/* C */ 
/* D */ 
/* E */ 
/* F */ 


/* 


dumpmua (.system) 
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* dump the memory management registers 

* if system is non-zero, also dump system registers 
*/ 

dumprara (system) 
int system; 

{ 

printf ("p_addr-='0x%x tsize=0x%x dsize-0x%x ssi 2 e= 0 x%x\n'‘, 

u.u__procp->p_addr, u.u_j)tsi 2 e, u.u_pdsize, u.u_pssize); 
if (system) 

dumpntml (0) ; 
dumpraral (1) ; 

} 

dumpmml(space) 

{ 

register i, addr, prot, j, len; 

printf("Context %d mmu registers\n", space); 
printf("seg logical physical (clicks) permissionXn"); 
for (i - 0; i < 128; i++) ( 
if (space —» 0) 

SEG1_0 - 1; 

else 

SEG1_1 =*» 1; 

/* SEG2_0 - 1; */ 

addr = getmmu((i « SEGSHIFT) | ACCSEG); 
prot = getmmu((i « SEGSHIFT) I ACCLIM); 
if ( (prot 4 PROTMJiSK) “= ASINVAL) 
continue; 
addr -= segoff; 
len = prot & OxFF; 

if (prot & 0x100) { /* data or stack segment */ 

j "= i « SEGSHIFT; 
len = 256 - len; 

printf("0x%x 0x%x-0x%x 0x%x-0x%x (%d) %s\n", i, j, 

j+ctob(len), addr, addr+len, len, 
inmu_codes [ (prot&PROTHASK) »8]) ; 

} else { 

len++; 

j “ (i+1) « SEGSHIFT; 
addr +- NPAGEPERSEG; 

printf("0x%x 0x%x“0x%x 0x%x-0x%x (%d) %s\n", i, 

j-ctob(len), j, addr-len, addr, len, 
ramu_codes [ (prot&PROTMASK) »8]) ; 

} 

} 

} 

frendif DUMPHM 
/* 

* check the size of a process 
*/ 

chksize(nt, nd, ns) 
register unsigned nt, nd, ns; 

{ 

if (nt + nd + ns + v.v_usize < maxmem ) 
return(0); 
u.u_error - ENOMEM; 
return(1); 


} 
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/* 

* generalized seek sort for disk 
*/ 


^include 

#include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"sys/param.h" 

"sys/config»h” 
"sys/types.h" 
"sys/sysmacros.h" 
"sys/systm.h" 
"sys/dir.h" 
"sys/signal.h" 
"sys/user.h" 
"sys/ermo-h" 

"sys/utsname.h" 
"sys/buf.h” 
"sys/elog.h" 
"sys/erec.h" 
“sys/iobuf.h" 


♦define b_cylin b_resid 

disksort(dp, bp) 
register struct iobuf *dp; 
register struct buf *bp; 

{ 

register struct buf *ap; 
struct buf *tp; 


ap - dp->b_actf; 
if(ap — NULL) { 

dp->b_actf =■ bp; 
dp“>b_actl =■ bp; 
bp->av_fQrw - NULL; 
return; 

} 

tp = NULL; 

for(; ap 1= NULL; ap - ap->av_forw) { 

if ((bp->b_flags&B_READ) && (ap->b_flags&B_READ) = 0) { 
if (tp =- NULL) 
tp - ap; 

break; 

} 

if ((bp->b_flags&B_READ) = 0 && (ap->b_flags&B_READ)) 
continue; 

if(ap->b_cylin <= bp->b_cylin) 

if{tp =— NULL I I ap“>b_cylin >= tp->b__cylin) 
tp = ap; 

} 

if(tp =- NULL) 

tp =■ dp->b_actl; 
bp->av_forw - tp->av_forw; 
tp~>av_forw -= bp; 
if(tp -= dp->b_actl) 

dp->b_actl ” bp; 
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/* g(#)err.c 1.1 */ 

♦include “sys/param.h" 

♦include "sys/types.h" 

♦include "sys/buf.h" 

♦include '’sys/dir.h" 

♦include “sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/file.h" 

♦include "sys/utsname.h" 

♦include **sys/elog.h** 

♦include **sys/erec.h" 

static short logging; 

erropen(dev,fig) 

{ 

if(logging) { 

u.u_error = EBITSY; 
return; 

) 

if((flg&FWRITE) || dev != 0) { 
u.u_error = ENXIO; 
return; 

} 

if(suser()) { 

logstart (); 
logging++; 

} 

) 

/* ARGSUSED */ 
errclose(dev,fig) 

{ 

logging «= 0; 

} 

/* ARGSUSED */ 
errread(dev) 

{ 

register struct errhdr *eup; 
register n; 

struct errhdr *geterec(); 

if(logging =- 0) 
return; 

eup = geterec(); 

n = min((unsigned)eup->e_len, u.u_count); 
if (copyout((caddr_t)eup, u.u_base, n)) 
u.u_error = EFAULT; 

else 

u.u_count — n; 
freeslot(eup); 


} 
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♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"sys/param.h" 

"sys/types.h" 

"sys/sysmacros.h" 

"sys/systm.h" 

■sys/buf.h« 

*sys/conf.h" 

"sys/map.h" 

"sys/utsname.h« 
■sys/elog.h" 
"sys/erec.h" 
“sys/err.h" 
"sys/iobuf,h" 
"sys/var.h" 


typedef int mem_t; 


while(*errp“>e_org NULL) 

(void) sleep((caddr_t)4errp->e_org,PZERO+l); 
ep = *errp“>e_org; 

*errp->e_org++ = NULL; 

if (errp->e_org >- &errp->e_j)trs [errp->e_nslot]) 
errp“>e_org = errp->e_j)trs; 
splx(sps); 
return(ep); 


puterec(ep, type) 
register struct errhdr *ep; 

{ 

register sps; 

register struct err *errp; 


int blkacty; 

errinit{) 

{ 

register struct err *errp; 

errp = ierr; 
if(errp->e_nslot) { 

mapinit(errp->e_map, (errp->e_nslot+3)/2); 
mfree(errp->e_map, (mem_t)errp->e_nslot, (mem_t)l); 

} 

errp“>e_org - errp->e_ptrs; 
errp->e_nxt = errp->e_j)trs; 

} 

struct errhdr * 
geteslot(size) 

{ 

register ns, *p; 
register struct errhdr *ep; 
int n, sps; 

ns - (size+sizeof(struct errhdr)+sizeof(struct errslot)-!) 

/sizeof(struct errslot); 
sps - spl?(); 

n = malloc (err. e_iiiap, (mem_t )ns); 
splx(sps); 
if(n — 0) 

return(NULL); 

ep ” (struct errhdr *)(&err.e_slot[—n]); 
ns *“ sizeof(struct errslot)/sizeof(int); 
p " (int *)ep; 
do { 

*p++ - 0; 

} while(—ns); 

ep->e_len =» size + sizeof (struct errhdr); 
return(++ep); 

) 

freeslot(ep) 

register struct errhdr *ep; 

{ 

register ns, sps; 

ns -» (ep->e_len+sizeof(struct errslot)-1)/sizeof(struct errslot); 
sps « spl7(); 

rafree(err.e_map, (mem_t)ns, 

(raem_t)((((struct errslot *)ep)-err.e_slot)+l)) ; 
splx(sps); 

} 

struct errhdr * 
geterecO 

register sps; 

register struct errhdr *ep; 
register struct err *errp; 


errp =■ ierr; 

(—ep)->e_type = type; 
ep->e_time •= time; 
sps ■= spl7 () ; 

*errp->e_nxt++ - ep; 

if (errp->e_nxt >= &errp->e_j)trs [errp->e_nslot]) 
errp->e_nxt = errp->e_ptrs; 
splx(sps); 

wakeup((caddr_t)ierrp->e_org); 

} 

logstart 0 

{ 

register sps; 

register struct estart *ep; 
register struct bdevsw *bdp; 
register struct err *errp; 
extern nodev(); 

errp - &err; 

sps - spl7(); 

for(errp->e_org = 4errp->e_ptrs[errp->e_nslot-l]; 

errp->e_org >= errp->e_ptrs; errp->e_org—) 
if(*errp->e_org i“= NULL) { 

freeslot(*errp->e_org); 

*errp->e_org == NULL; 

} 

errp->e_org * errp->e_ptrs; 
errp->e_nxt = errp->e_ptrs; 

ep = (struct estart *)geteslot(sizeof(struct estart)); 
splx(sps); 
if(ep = NULL) 
return; 

ep->e_name = utsname; 

for(bdp = &bdevsw[bdevcnt“l]; bdp >= bdevsw; bdp—) 
if(bdp->d_strategy nodev) 

ep“>e_bconf 1= 1 « (&bdevsw[0]-bdp); 
ep->e_bconf = blkacty; 
puterec((struct errhdr *)ep, E_GOTS); 

} 

logtchg(nt) 
time_t nt; 

{ 

register struct etirachg *ep; 

if((ep “ (struct etimchg *)geteslot(sizeof(struct etimchg))) 1- NULL) { 
ep->e_ntime - nt; 

puterec((struct errhdr *)ep,E_TCHG); 

} 

} 

logstray(addr) 
physadr addr; 

{ 

register struct estray *ep; 


errp - ierr; if((ep (struct eatray *)geteslot(sizeof(struct estray))) NULL) ( 

sps « spl7(); ep->e^saddr = addr; 
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ep“>e_sbacty - blkacty; 

puterec{(struct errhdr *)ep, E_STRAy); 


logparity(addr) 
register paddr_t addr; 


register struct eparity *ep; 

if((ep = (struct eparity *)geteslot(sizeof(struct eparity))) •= NULL) { 
ep->e_parreg -» addr; 
puterec((struct errhdr *)ep,E_PRTY); 


fmtberrO is used by block device drivers to build up a valid 
eblock structure to be sent to the error log. 

dp the address of the io queue item, 

unit the Physical Device error report field 

the Logical Device field is the minor device number 
cyl the cylinder number 

trk the track number 

sector the sector number 

regent the number of following register structures 

regs is the address of an array of structures each of which 

contain the elements described in struct deverreg. 


/* VARARGS7 */ 

fmtberr(dp, unit, cyl, trk, sector, regent, regs) 

register struct iobuf *dp; 

unsigned unit; 

unsigned cyl; 

unsigned trk; 

unsigned sector; 

long regent; 

struct deverreg *regs; 

{ 

register struct eblock *ep; 
register struct buf *bp; 
register struct deverreg **dr; 
register char *strl; 
register char *pp; 
register short arge; 
register short nn; 

struct br { /* just used to generate addr after eblock */ 

struct eblock eb; 
char cregstl]; 

}; 

struct iostat *iosp; 
extern char *longcopy(); 

if(dp->io_erec i= NULL) { 

dp->io_erec->e_rtry++; 
return; 

) 

/* count the length of the values and strings */ 
nn - 0; 

arge - regent; 
dr ■= &regs; 
while (arge—) { 

nn +- sizeof((*dr)->draddr); 
nn +- sizeof((*dr)->drvalue); 

nn +- strlen((*dr)->drnarae) + 1; /* + null */ 

nn +- strlen({*dr)->drbits) + 1; /* + null */ 

nn +“ (nn S 1); /* round to even number of bytes */ 


iosp * dp~>io_stp; 

/* want sizeof eblock to the next long address */ 
if((ep - (struct eblock *) 

geteslot(sizeof(struct eblock) + nn)) — NULL) ( 
iosp->io^uniog++; 


return; 


nn - major(dp->b_dev); 
bp “ dp->b_actf; 

ep->e_dev *= makedev(nn, (bp“NULL) ?minor (dp~>b_dev) :minor (bp->b_dev)) ; 

ep->e_bacty = blkacty; 

ep->e_stats. io__ops * iosp->io_ops; 

ep->e_stats.io_misc ^ iosp->io_misc; 

ep->e_stats,io_unlog - iosp->io_unlog; 

ep->e_pos.unit - unit; 

ep->e_pos. cyl ==> cyl; 

ep->e_pos.trk = trk; 

ep->e_pos- sector = sector; 

if (bp !- NULL) ( 

ep->e_bflags - (bp->b_flags4B_REM)) ? E_READ : E_WRITE; 
if(bp->b_flags i B_PHYS) 

ep->e_bflags |- E_PHYS; 
if(bp->b_flags & B_HAP) 

ep->e_bflags |- E_MAP; 
ep->e_bnum = bp->b_bl]cno; 
ep->e_bytes = bp->b_bcount; 
ep->e_memadd - paddr(bp); 

} 

else 

ep->e_bflags = E_NOIO; 
ep->e_nreg - regent; 
pp - &(((struct br *)ep)->cregs[0]); 
dr - &regs; 

while(—regent >- 0) { 

/* copy out the number values */ 

pp - longcopy((char *)4((*dr)“>draddr),pp); 

pp = longcopy((char *)4((*dr)->drvalue),pp); 

/* copy out the strings themselves */ 
strl -= (*dr)->drnarae; 
while (*strl) { 

*pp++ - *strl++; 

) 

/* copy the terminating null too */ 

*pp++ - '\0'; 

strl = (*dr)->drbits; 
while (*strl) { 

*p^++ - *strl++; 

} 

*pp++ * '\0'; 
dr++; 

} 

dp->io_erec = ep; 

} 

logberr(dp,error) 
register struct iobuf *dp; 

{ 

register struct eblock *ep; 

if((ep = dp->io_erec) “ NULL) 
return; 
if(error) 

ep->e_bflags ]- E_ERROR; 
puterec((struct errhdr *)ep,E_BLK); 
dp->io_erec = NULL; 

} 

/* may not be on long address boundary when copied to b2, 
avoiding any alignment problems on some machines? */ 
char * 

longcopy(bl,b2) 
register char *bl,*b2; 

( 

register int ii; 

for (ii-=0; ii < sizeof (long); ii++) { 

*b2++ » *bl++; 

} 

return(b2); 

} 
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/* e(%)fio.c 1.4 */ 

^include "sys/param.h" 

#include "sys/types.h" 

^include "sys/sysraacros.h'* 

#include "sys/systm.h" 

^include "sys/dir.h" 

^include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h” 

♦include "sys/filsys.h" 

♦include "sys/file.h” 

♦include "sys/conf.h" 

♦include •sys/inode.h" 

♦include "sys/mount.h" 

♦include "sys/var.h" 

♦include "sys/acct.h" 

♦include “sys/sysinfo.h" 

♦ifdef UCB_NET 
♦include "net/misc.h" 

♦include "net/socketvar.h" 

♦endif 

/* 

* Convert a user supplied file descriptor into a pointer 

* to a file structure. 

* Only task is to check range of the descriptor. 

*/ 

struct file * 
getf(f) 

register int f; 

{ 

register struct file *fp; 

if (0 <- f 44 f < NOFILE) { 
fp “ u.u_ofile[f]; 
if <fp I- NULL) 

♦ifdef UCB_NET 

/* Mainly for net reset */ 
if (fp->f_count ==■ 0) { 
u.u_error - ENETDOWN; 
return (NULL); 

} 

else 

♦endif 

return(fp); 

) 

u.u_error = EBADF; 
return(NULL); 

} 

/* 

* Internal form of close. 

* Decrement reference count on file structure. 

* Also make sure the pipe protocol does not constipate. 

* Decrement reference count on the inode following 

* removal to the referencing file structure. 

* On the last close switch out to the device handler for 

* special files. Note that the handler is called 

* on every open but only the last close. 

*/ 

closef(fp) 

register struct file *fp; 

{ 

register struct inode *ip; 
int flag, fmt; 
dev_t dev; 

register int (*cfunc)(); 

if (fp — NULL) 
return; 

flag - fp->f_flag; 

♦ifdef UCB_NET 

if ((flag 4 FSOCKET) — 0) 


♦endif 


unlock (fp->f__inode); 


file locking hook */ 


if ((unsigned)fp->f_count > 1) { 

♦ifdef UCB_NET 

fp->f_flag 4= -FISUSER; 

♦endif 

fp->f_count—; 
return; 

} 

♦ifdef UCB_NET 

if (flag 4 FSOCKET) { 

int nouser = ((flag 4 FISUSER) “ 0); 

u.u_error - 0; /* XXX */ 

fp“>f_flag 4= “FISUSER; 

soclose((struct socket *)fp->f_socket, nouser); 
if (nouser =* 0 44 u.u_error) 
return; 

fp->f_socket - 0; 
fP“>f__count = 0; 
fp->f_next - ffreelist; 
ffreelist - fp; 

/* 

* the next line was in the 11 code. Dont quite understand it, 

* but it cant hurt... (billn) 

*/ 

u.u_error =0; /* so u.u_ofile always gets O'd */ 

return; 

} 

♦endif 

ip “ fp->f_inode; 
plock(ip); 

dev “= (dev_t)ip-‘>i_rdev; 
fmt - ip->i_mode4IFMT; 
fp->f_count =■ 0; 
fp->f_next “ ffreelist; 
ffreelist - fp; 
switch(fmt) { 

case IFCHR: 

cfunc = cdevsw[(short)major(dev)].d_clase; 
break; 

case IFBLK; 

cfunc = bdevsw[bmajor(dev)].d_close; 
break; 


case IFIFO: 

closep(ip, flag); 

default; 

iput(ip) ; 
return; 

} 

for (fp * file; fp < (struct file *)v.ve_file; fp++) { 
register struct inode *tip; 


♦ifdef 

♦endif 


UCB_NET 

if (fp->f_flag 4 FSOCKET) 
continue; 


if 


} 

) 

if (fmt — 


(fp“>f__count) ( 

tip = fp“>f_inode; 
if {tip->i_rdev -«■ dev 44 
(tip->i_raode4lFMT) “ fmt) 
goto out; 


IFBLK) { 


register struct mount *mp; 


for (rap = mount; rap < (struct mount *)v.ve_raount; mp++) 
if (n^>->ra_flags — HINUSE 44 mp->m_dev =“ dev) 
goto out; 

bflush(dev); 

(*cfunc)(minor(dev), flag); 
binval(dev); 


} else { 
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out: 




prele(ip); 

(*cfunc){minor(dev), flag); 


iput(ip); 


/* 

* openi called to allow handler of special files to initialize and 

* validate before actual 10. 

*/ 

openi(ip, flag) 
register struct inode *ip; 

{ 

dev_t dev; 

register unsigned int raaj; 

dev = (dev_t)ip->i_rdev; 
switch (ip->i_niode& IFMT) { 

case IFCHR: 

maj - major(dev); 
if (maj >- cdevcnt) 
goto bad; 

if (u.u_ttYP = NULL) 

u.u_ttYd ” dev; 

(*cdevsw[(short)maj].d_open)(minor(dev), flag); 
break; 


case IFBLK: 

maj - hmajor(dev); 
if (maj >- bdevcnt) 
goto bad; 

(*bdevsw[maj].d_open)(minor(dev), flag); 
break; 


case IFIFO: 

openpdp, flag); 
break; 

} 

return; 


u.u_error “ ENXIO; 


/* 

* Check mode permission on inode pointer. 

* Mode is READ, fJRITE or EXEC. 

* In the case of WRITE, the read-only status of the file 

* system is checked. Also in WRITE, prototype text 

* segments cannot be written. 

* The mode is shifted to select the owner/group/other fields. 

* The super user is granted all permissions. 

*/ 

access(ip, mode) 
register struct inode *ip; 

{ 

register struct user *up; 
register ra; 

up - fiu; 
m “ mode; 

if (m = IWRITE) ( 

if (getfs(ip->i_dev)->s_ronly) { 
up->u_error =» EROFS; 
return(1); 

} 

if (ip->i_flagSITEXT) 
xrele(ip); 

if (ip->i_flag & ITEXT) { 

up->u_error - ETXTBSY; 
return(1); 


return(0); 

if (up->u_uid i= ip->i_uid) { 
m »” 3; 

if (up->u_gid 1- ip->i_gid) 
m »= 3; 

} 

if ((ip->i_modetm) != 0) 
return(0); 

up->u_error = EACCES; 
return(1); 


I* 

* Look up a pathname and test if the resultant inode is owned by the 

* current user. If not, try for super-user. 

* If permission is granted, return inode pointer. 

*/ 

struct inode * 
owner() 

{ 

register struct inode *ip; 

ip - namei(uchar, 0); 
if (ip ==“ NULL) 

return(NULL); 

if (u.u_uid =• ip->i_uid || suserO) 

if (getfs(ip->i_dev)->s_ronly) 
u.u__error = EROFS; 

if (!u.u_error) 

return(ip); 
iput(ip); 
return(NULL); 

} 

/* 

* Test if the current user is the super user. 

*/ 

suser 0 

{ 

if (u.u_uid = 0) { 

u.u_acflag |= ASU; 
return(1); 

} 

u.u_error - EPERM; 
return(0); 


/* 

* Allocate a user file descriptor, 
ufalloc(i) 

register i; ; 

{ 

register struct user *up; | 

up = 4u; 

for(; i<NOFILE; i++) 

if (up->u_ofile[i] — NULL) ( 
up->u_rvall •= i; 
up->u_pofile[i] - 0; 
return(i); 

) 

up->u_error - EMFILE; 
return(-1); 

} 

/* 

* Allocate a user file descriptor and a file structure. 

* Initialize the descriptor to point at the file structure. 

* no file — if there are no available file structures. 

i 

struct file * > 

fallpc(ip, flag) I 
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struct inode *ip; 

{ 

register struct file *fp; 
register i; 

i = ufalloc(O); 
if (i < 0) 

return(NULL); 

if ((fp=ffreelist) =- NULL) { 
printf("no file\n"); 
syserr.fileovf++; 
u.u_error ”• ENFILE; 
return(NULL); 

} 

ffreelist - fp->f_next; 
u.u_ofile[i] =• fp; 
fp-> f__count++; 
fp->f_inode = ip; 
fp->f_flag = flag; 
fp-‘>f_offset - 0; 
return(fp); 


struct file *ffreelist; 
finit() 

{ 

register struct file *fp; 
register short i; 

ffreelist = fp * Sfile(0]; 
i - v.v_file -1-1; 
do { 

fp->f_next = fp+1; 
fp++; 

) while (—i != -1); 

} 
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/* data and code stubs for loading witout network */ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"sys/param.h" 

"sys/config.h" 

"sys/types.h" 

"sys/inmu.h" 

" sys / sy sntacr os. h** 
"sys/dir.h" 
"sys/proc.h" 
"sys/seg.h" 

•sys/signal.h" 
■sys/errno.h" 
"sys/user.h" 
"sys/systm.h” 

** sys/inode, h** 
"sys/ino.h" 
"sys/file.h" 
"sys/conf.h” 

"net/mi sc. h“ 

"net/protosw.h" 
"net/socket.h" 
"net/socketvar.h" 
"sys/stat.h" 
"sys/ioctl.h" 
"net/ubavar.h" 

" sys/map. h" 
■net/if.h" 

"net/in.h" 

■net/in_systm.h" 
"net/ip.h" 
"net/ip_var.h'* 
■sys/var.h" 


/* data */ 

struct protosw protosw[l]; 

char netstak[3000]; 

char * svstak; 

int ifnetslow; 

int protofast; 

int protoslow; 

short netoff; 

int netisr; 

extern int ptc_dev; 

extern int selwait; 

extern u_short ip_id; 

extern struct ipq ipq; 

extern struct ipstat ipstat; 

extern struct ifqueue rawintrq; 

extern struct uba_device ubdinit[]; 

extern struct protosw *protoswLAST; 

♦ifdef INET 

extern struct ifqueue ipintrq; 
♦endif 


/* routines */ 
ssocket() 

{ 

♦ifdef lint 

ifnet++; 

ifnetslow++; 

protofast++; 

protoslow++; 

ptc_dev++; 

selwait++; 

ip_id++; 

ipq.ipq_ttl++; 

*protoswLAST++; 

ubdinit[0].ui_unit++ ; 

ipintrq.lfq_len++; 

rawintrq.ifq_len++; 

protosw[0].pr_type++; 

ipstat.ips_toosmall++; 

♦endif 

u.uerror - ENETDOWN; 

} 

netintr () 


{ 

netisr « 0; 

} 

/*ARGSUSED*/ 

soclose(so, exiting) struct socket *so; int exiting; 

{ 

u,u_error - ENETDOWN; 

} 

/*ARGSUSED*/ 

soreceive(so, asa) struct socket *so; struct sockaddr *asa; 

{ 

return(0); 

} 

/*ARGSUSED*/ 

sosend(so, asa) struct socket *so; struct sockaddr *asa; 

{ 

return(0); 

} 

/*ARGSUSED*/ 

sostat(so, sb) struct socket *so; struct stat *sb; 

{ 

return(0); 

} 

/*ARGSUSED*/ 

soioctKso, cmd, cmdp) struct socket *so; int cmd; caddr_t cmdp 
{ 

u.u_error == ENETDOWN; 

} 

sconnect() 

{ 

u.u_error = ENETDOWN; 

} 

ssendO 

{ 

u.u_error - ENETDOWN; 

} 

ssockad() 

{ 

u.u__error - ENETDOWN; 

saccept() 

{ 

u.u_error - ENETDOWN; 

} 

netreset() 

{ 

} 

sethostname() 

{ 

u.u_error “ ENETDOWN; 

} 

gethostnarae{) 

{ 

u.u_error = ENETDOWN; 

} 

select() 

{ 

u.u_error = ENETDOWN; 

) 

sreceive 0 

{ 

u.u_error -= ENETDOWN; 

} 

/*ARGSUSED*/ 

ptswrite(dev) dev_t dev; 

{ 

u.u_error = ENETDOWN; 

} 

/"ARGSUSED*/ 

ptcwrite(dev) dev_t dev; 

( 

U.U_error - ENETDOWN; 

} 

/*ARGSUSED*/ 

ptsioctl(dev, cmd, addr, flag) caddrt addr; devt dev; 

( 
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u.u_error - ENETDOWN; 

} 

/*ARGSUSED*/ 

ptcioctl(dev, cmd, addr, flag) caddr_t addr; dev_t dev; 

{ 

Ti.u_error = ENETD05JN; 

} 

/*ARGSUSED*/ 

ptsopen(dev, flag) dev__t dev; 

{ 

u.u_error = ENETDOWN; 

} 

/*ARGSUSED*/ 

ptcopen(dev, flag) dev_t dev; int flag; 

( 

u.ii_error = ENETDOWN; 

} 

/*ARGSUSED*/ 
ptsread(dev) dev_t dev; 

{ 

u.u_error - ENETDOWN; 

/^ARGSUSED*/ 
ptcread(dev) dev_t dev; 

{ 

u.u_error = ENETDOWN; 

} 

/*ARGSUSED*/ 

ptsclose(dev) dev_t dev; 

{ 

u.u_error - ENETDOWN; 

/*ARGSUSED*/ 

ptcclose(dev) dev_t dev; 

u.u_error = ENETDOWN; 

netinit() 

{ 

} 

#ifdef _NOTDEF 

/* reference fnetlocal.c for inserting null interrupt associated stuff */ 
FAKEO 
{ 

fnetlocal(); 

} 

fendif NOTDEF 
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/* local defs for no network */ 

tinclnde "sys/param.h" 

^include "sys/types.h" 

^include "sys/sysmacros.h” 
finclude "sys/yar,h” 

^include "ermo.h" 


♦include 

♦include 

♦include 

♦include 

♦include 


"net/misc.h" 
"net/mbuf.h" 
"net/protosw.h" 
"net/socket -h" 
"net/ubavar.h" 


/* causes make to complain so this module gets included. "Called'* from fnet.c */ 
fnetlocal(){} 


/* ..driver structure */ 
struct uba_driver ebdriver; 

/* interrupt routine */ 
ebintr O{} 
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(bcmp{ (caddr_t) ((al)-’>sa_data), (caddr_t) {(a2)->sa_data), 


♦include "sys/param.h" 

for (ifp “ ifnet; ifp; ifp - ifp->if_next) { 

♦include "sys/config.h" 

if (ifp->if_addr.sa_family i=- addr->sa_ 

♦include "sys/errno.h" 

continue; 

♦include "sys/types.h" 

if (equal(4ifp->if_addr, addr)) 

♦include "sys/systia.h'* 

break; 

♦include "net/misc.h" 

if ((ifp->if_flags & IFF_BROADCAST) && 

♦include "net/socket.h" 

equal(&ifp->if_broadaddr, addr)) 

♦include "net/mbuf.h" 

♦include "net/protosw.h" 

break; 

} 

♦include "net/if.h" 

♦include "net/af.h" 

return (ifp); 

int ifqmaxlen - IFQ_MAXLEN; 

/* 


* Find an interface on a specific network. If many, < 

/* 

* is first found. 

* Network interface utility routines. 

*/ 

* 

struct ifnet * 

* Routines with if_ifwith* names take sockaddr *'s as 

if_ifwithnet(addr) 

* parameters. Other routines take value parameters, 

* e.g. if ifwithnet takes the network number. 

register struct sockaddr *addr; 

{ 

*/ 

register struct ifnet *ifp; 
register u_int af = addr->sa_familY; 

ifinit () 

register int (*netmatch)(); 

1 

register struct ifnet *ifp; 

if (af >- AF_MAX) 


return (0); 

for (ifp = ifnet; ifp; ifp - ifp->if_next) 

netmatch - afswitch[af].af_netmatch; 

if (ifp“>if_init) { 

for (ifp = ifnet; ifp; ifp “ ifp“>if__next) { 

(*ifp->if_init)(ifp“>if_unit); 

if (af >” ifp->if_addr.sa_family) 

if (ifp->if_snd.ifq;_maxlen =- 0) 

continue; 

ifp->if snd.ifqjnaxlen = ifqmaxlen; 

if ((*netmatch)(addr, &ifp->if_addr)) 

} 

break; 

if slowtimoO; 

} 

} 

return (ifp); 

♦if vax 

{* 

/* 

* Call each interface on a Unibus reset. 

* As above, but parameter is network number. 

*/ 

*/ 

ifubareset(uban) 

struct ifnet * 

int uban; 

if_ifonnetof(net) 

{ 

register int net; 

register struct ifnet *ifp; 

{ 

register struct ifnet *ifp; 

for (ifp = ifnet; ifp; ifp - ifp->if_next) 


if (ifp->if_reset) 

for (ifp “ ifnet; ifp; ifp = ifp->if_next) 

(*ifp->if reset)(uban); 

if (ifp->if_net = net) 

} 

break; 

♦endif 

return (ifp); 

} 

/* 

* Attach an interface to the 

/* 

* list of "active" interfaces. 

* Find an interface using a specific address family 

*/ 

*/ 

if_attach(ifp) 

struct ifnet * 

struct ifnet *ifp; 

if_ifwithaf(af) 

{ 

register int af; 

register struct ifnet **p - &ifnet; 

{ 

register struct ifnet *ifp; 

while (*p) 


p - t((*p)~>if_next); 

for (ifp ifnet; ifp; ifp - ifp->if_next) 

*p - ifp; 

if (ifp->if__addr. sa_family = af) 

} 

break; 

/* 

* Locate an interface based on a complete address. 

return (ifp); 

} 

*/ 

♦ifdef notdef 

/*ARGSUSED*/ 

/♦ 

struct ifnet * 

* Hark an interface down and notify protocols of 

if_ifwithaddr(addr) 

* the transition. 

struct sockaddr *addr; 

* NOTE: must be called at spinet or eqivalent. 


register struct ifnet *ifp; 
♦define equal(al, a2) \ 


if_down(ifp) 

register struct ifnet *ifp; 


14) 
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ifp->if_flags -IFF_UP; 

pfctlinput(PRC_IFDOWN, {caddr_t)&ifp->if_addr); 

) 

#endif 

/* 

* Handle interface watchdog timer routines. Called 

* from softclock, we decrement timers (if set) and 

* call the appropriate interface routine on expiration. 

*/ 

if_slowtimo() 

register struct ifnet *ifp; 

for (ifp = ifnet; ifp; ifp = ifp->if_next) { 

if (ifp->if_timer === 0 | | —ifp->if_timer) 
continue; 

if {ifp->if_watchdog) 

(*ifp->if_watchdog) (ifp-'>if_unit) ; 

} 

/* billn — clock calls us in old... 
timeout(if_slowtimo, (caddr_t)0, hz / IFNET_SLOWHZ); 
*/ 
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/* 3com etherbox driver */ 


^include "sys/param.h" 
finclude "sys/types.h" 
iinclude "sys/sysnacros.h” 
tinclude "sys/var.h" 
iinclude "errno.h" 

^include "sys/config.h" 

♦include "net/misc.h" 
♦include "net/mbuf,h" 
♦include "net/protosw.h” 
♦include "net/socket.h" 

♦include "net/ubavar.h" 
♦include "net/if.h" 
♦include "net/route.h" 
♦include "net/in.h" 
♦include "net/in_systm.h" 
♦include "net/ip.h" 
♦include "net/ip_var.h" 
♦include "net/if ether.h" 


♦define EBPUP_PUPTYPE 0x0400 /* PUP protocol */ 

♦define EBPUP_IPTYPE 0x0800 /* IP protocol */ 

/* 

* The EHPUP_NTRAILER packet types starting at EBPUP_TRAIL have 

* (type-EBPUP__TRAIL)*512 bytes of data followed 

* by a PUP type (as given above) and then the (variable-length) header. 
*/ 

♦define EBPUP_TRAIL 0x1000 /* Trailer PUP */ 

♦define EBPUP_NTRAILER 16 

!* 

* 3Coin Ethernet controller registers. 


*/ 

♦define 

EB_ 

_ACTADDR0 

0 

/* 

actual address byte 

0 

*/ 

♦define 

eb” 

]actaddri 

1 

/* 

actual address byte 

0 

*/ 

♦define 


]aCTADDR2 

2 

/* 

actual address byte 

0 

*/ 

♦define 

EB 

]aCTADDR3 

3 

/* 

actual address byte 

0 

*/ 

♦define 

EB 

ACTADDR4 

4 

/* 

actual address byte 

0 

*/ 

♦define 

eb" 

]aCTADDR5 

5 

/* 

actual address byte 

0 

*f 

♦define 

EB~ 

]rcvcmd 

6 

/* 

receive command */ 



♦define 

eb" 

]xcsr 

7 

/* 

transmit csr */ 



♦define 

eb^ 

]xbp_hi 

8 

/* 

transmit buffer pointer high byte */ 

♦define 

eb" 

]XBP_L0 

9 

/* 

transmit buffer pointer low byte */ 

♦define 

eb^ 

"bbpclear 

10 

/* 

buffer pointer clear(w) */ 

♦define 

eb] 

]PROM 

10 

/* 

address prom (r) */ 



♦define 

eb] 

]auxcsr 

11 

/* 

auxiliary coramand/status */ 

♦define 

EB 

]C0LLCNTR 

12 

/* 

collision coxinter */ 



♦define 

eb] 

]XMTBUF 

13 

/* 

transmit buffer */ 



♦define 

eb] 

]rcvbufa 

14 

/* 

receive buffer a */ 



♦define 

eb] 

]rcvbufb 

15 

/* 

receive buffer b */ 




/* 

* Transmit cmd reg bits 
*/ 

♦define EB_EIEOF 0x8 

♦define EB_EI16COLL 4 

♦define EB_EICOLL 2 

♦define EB_EIUNDER 1 

i* 

* Transmit status reg bits 
*/ 

♦define EB_XREADY 0x8 

♦tlefitie EB_COLL16 4 

♦define EB_COLL 2 

♦define EB_UNDERFLOW 1 

/* 

* Receive command reg bits 
*/ 

♦define EB_MULTI OxC /* match station, multi, broadcast */ 


/* ready for new frame */ 

/* 16 collisions detected on last xr.it *"/ 
/* collision occurred */ 

/* force underflow */ 


/* enable ints on end of frame */ 
/* enable ints on 16 collisions */ 
/* enable ints on collisions */ 

/* enable ints on underflow */ 


♦define EB_STABROAD 0x80 /* match station, broadcast */ 

♦define EB_PROMIS 0x40 /* match all packets */ 

♦define EB_ANYGOOD 0x20 /* enable detection of any good frame */ 

♦define EB_ANY 0x10 /* enable detection of any frame */ 

♦define EB_SHORT 0x8 /* enable decection of short frames */ 

♦define E3_DRIBBIiE 4 /* enable dectection of dribble error */ 

♦define EB_CRC 2 /* enable dectection of CRC error */ 

♦define EB_OVFLO 1 /* enable detection of overflow error */ 

♦define EB_RCVNORM (EB_STABROAD!EB_ANYGOODIEB_DRIBBLE|EB_CRC|EB_OVFLO|EB_SHORT) 

/* 


* Receive 

* / 

status reg 

bits 




♦define 

eb_ 

_STALE 

0x80 

/* 

invalid packet here 

*/ 

♦define 

eb] 

]SHORTERR 

0x40 

/* 

short frame */ 


♦define 

eb] 

"driberr 

0x20 

/* 

dribble error */ 


♦define 

eb] 

]CRCERR 

0x10 

/* 

cre error */ 


♦define 

EB 

_ovflerr 

0x8 

/* 

overflow error */ 


♦define 

eb] 

_RC:VERR 

0xf8 

/* 

error mask */ 


♦define 

eb] 

]rbuf 

0x7 

/* 

buffer pointer mask 

*/ 


/* 

* Auxiliary command reg bits 
*/ 

♦define EB_EDLCRES 0x80 /* reset EDLC chip */ 

♦define EB_SYSEI 0x40 /* enable system interrupts */ 

♦define EB_RBBSff 0x20 /* talk to receive buffer b */ 

♦define EB_RBASW 0x10 /* talk to receive buffer a */ 

♦define EB_XBUFSW 0x8 /* talk to transmit buffer */ 

♦define EB_XEOFDIS 2 /* create underflow for testing */ 

♦define EB_POWINTR 1 /* clear power-on interrupt */ 

/* 

* Auxiliary status reg bits 
*/ 

♦define EB_XCVRUP 0x80 /* the integral transceiver is enabled */ 

♦define EB_BBASW 4 /* receive buf b before a switch */ 

♦define EB_IMASK 0x70 /* interesting bits for rev. int. routine */ 

♦define EBRDOFF 2 /* packet offset in read buffer */ 

♦define EBMAXTDOFF (2048-512) /* max packet offset (min size) */ 

♦define NEB 1 

/* 

* 3Cora Ethernet Controller interface 
*/ 

♦define EBMTU 1500 

int nulldevO, ebattachO, ebintrO, ebpollO; 
struct uba_device *ebinfo[NEB]; 

struct uba_driver ebdriver = { 

nulldev, ebattach, (u_short * )0, ebinfo 

); 

♦define EBUNIT(x) minor(x) 

int ebinit(), eboutput(),ebwatch (); 

struct mbuf *ebget(); 

int ebwr_reg(), ebrd_reg(); 

extern struct ifnet loif; 

/* 

* Ethernet software status per interface. 

* Each interface is referenced by a network interface structure, 

* es_if, which the routing code uses to locate the interface. 

* This structure contains the output queue for the interface, its address, 
*/ 

struct eb_softc ( 

strjuct arpeqra es^ac; 


/* coiamon Ethernet structures */ 
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♦define es_if es_ac.ac_if /* network-visible interface */ 

♦define es_enaddr es_ac.ac_enaddr /* hardware Ethernet address */ 

short es_oactive; /* is output active? */ 

} eb_softc[NEB]; 

/* temp receive buffer */ 
char ebrbuf[EBMTU]; 

/* for polling */ 
short ebok “0; 

/* set low 3 bytes to, eg, DEC laanuf. number for us to pretend to be DEC *! 
long eb_masq =0; 

/* 

* Interface exists: make available by filling in network interface 

* record. System will initialize the interface when it is ready 

* to accept packets. 

*/ 

ebattach(md) 

struct uba_device *md; 

{ 

struct eb_softc *es - ieb_softc[md->ui_unit] ; 
register struct ifnet *ifp - ies->es_if,* 
register pport - (int)md->ui_addr; 
struct sockaddr_in *sin; 

ifp->if__unit = md->ui_unit; 
ifp->if_name = "eb"; 
ifp->if_mtu EBMTU; 

ifp->if_net - md->ui_flags & OxFFOOOOOO; 

if ('appleinit(pport)) 
return; 
ebreset(pport); 

/* 

* Read the ethernet address from the box. 

*/ 

ebwr_r eg (pport, EB_BBPCIiEAR, 0); /* reset bus-buffer pointer */ 

ebrd_S6tup(pport, EB_PRQM); /* setup for read from prom */ 

ebrd_data(pport, es->es_enaddr, S) ; 

/* hack to change the manufacturer */ 
if (eb_masq) { 

char *mp; 

mp -(char *)&eb_raasq; 
mp++; 

bcopy(rap, es->es__enaddr, 3); 

} 

printf("Ethernet address - "); 

{ 

char * p - &es->es_enaddr[0]; 
int i, j - 0; 
char buf[14]; 

for (i - 0; i < 6; i ++) { 

buf[j++] = "0123456789ABCDEF"[((*p » 4)&0xf)]; 
buf[j++] - "0123456789ABCDEF«[((*p++)&0xf)]; 

} 

buf[j++] - '\n'; 
buf[j] » 0; 
printf(buf); 

} 

sin - (struct sockaddr_in *)&es->es_if.if_addr; 
sin->sin_faraily - AF_INET; 

/* 

sin->sin_addr - arpmyaddr((struct arpcom *)0); 

*l 

/* this is a way to set addresses for now (without an ioctlO) */ 
sin->sin_addr.s_addr - (u_long)md->ui_flags; 
ebsetaddr(ifp, sin); 

ifp->if_lnit - ebinit; 
ifp->if_output - eboutput; 
ifp->if_watchdog - ebwatch; 


if_attach(ifp); 


ebwatch() 

{} 

/* 

* Initialization of interface; clear recorded pending 

* operations. 

*/ 

sbinit(unit) 

int unit; 

{ 

struct eb_softc *es - fieb_softc[unit]; 
register struct ifnet *ifp - &es->es_if; 
register struct sockaddr_in *sin; 
register pport; 
int i, s; 
char ebuf[6]; 

sin = (struct sockaddr_in *)&ifp->if_addr; 

if (sin->sin_addr.s_addr — 0) /* address still unknown */ 

return; 

if ((es->es_if.if_flags & IFF_RUNNING) — 0) ( 
pport - (int) ebinfo[unit]->ui_addr; 
s - splimpO ; 

/* reset EDLC chip by toggeling reset bit */ 
ebwr_reg(pport, EB_AUXCSR, EB_EDLCRES); 
ebwr_reg(pport, EB_AUXCSR, 0); 

/* Initialize the address RAM */ 

ebwr_reg (pport, EB_BK»CIiEAR, 0); /* reset bus-buffer pointer */ 

ebrd_setup(pport, EB_PRQM) ; 
ebrd_data(pport, ebuf, 6); 
for (i - 0; i < 6; i++) 

ebwr_reg(pport, EB_ACTADDR0+i, ebuf[i]); 

/* Hang receive buffers and start any pending writes. */ 
ebwr_reg (pport, EB_RCVCMD, EB_RCVNORM); /* normal bits */ 

ebwr_reg(pport, EB_AUXCSR, (EB_RBAS»|EB_RBBSWIEB_SYSEI)); 
es->es_oactive - 0; 

es->es_if.if_flags t" IFF_UP|IFF_RUNNING; 
if (es->es_if.if_snd.ifq_head) 
ebstart(unit); 
ebok - pport; . 
ebpoll(pport); 
splx(s); 

} 

if_rtinit(4es->es_if, RTF_UP); 
arpattach(4es->es_ac); 
arpwhohas(4es->es_ac, 4sin->sin_addr); 


/* 

* Start or restart output on interface. 

* If interface is already active, then this is a retransmit 

* after a collision, and just restuff registers. 

* If interface is not already active, get another datagram 

* to send off of the interface queue, and map it to the interface 

* before starting the output. 

*/ 

ebstart(dev) 

register dev_t dev; 

{ 

register int unit - EBUNIT(dev); 

register struct eb_softc *es - 4eb_softc[unit]; 

register int pport; 

register struct rabuf *m; 

register unsigned char csr; 

register x - spl6(); 

pport - (int)ebinfo[unit}->ui_addr; 
if (es->es_oactive) 

goto restart; 
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IF_DEQUEUE(&6s->es_if,if_snd, m); 
if (m “= 0) { 

eS“>es__oactive = 0; 

splx(x); 

return; 

} 

ebput(pport, m); 

ebwr_reg(pport, EB_XCSR, (EB_EIEOF|EB_EI16COLL)); 
csr - ebrd_reg(pport, EB_AUXCSR) & EB_IMASK; 
ebwr_reg<pport, EB_AUXCSR, csr | (EB_SYSEI|EB_XBUFSW)); 

restart; 

splx(x); 

es->es_oactive = 1; 

} 

int bbuf; 
int abuf; 
int bbabuf; 
int abbbuf; 
int nopkt; 

/* 

* Ethernet interface interrupt. If received packet examine 

* packet to determine type. If can't determine length 

* from type, then have to drop packet. Othewise decapsulate 

* packet based on type and pass to type specific higher-level 

* input routine. 

*/ 

/* ARGSUSED */ 
ebintr(pport) 

{ 

register struct eb_softc *es; 
register int unit; 
register bits * 0; 
register unsigned char csr, xcsr; 
extern short netoff; 

if (netoff) 

return; 

for (unit - 0; unit < NEB; unit++) { 
es “ &eb_softc[unit]; 
csr = ebrd_reg(pport, EB_AUXCSR); 

again: 

switch (csr & (EB_RBASW|EB_RBBSW|EB_BBASW)) { 

case EB_RBASP?: 

case EB_RBASW|EB_BBASW: 

/* RBBSW 0, receive B packet */ 
bbuf++; 

ebread(es, pport, EB_RCVBUFB); 
bits I- (EB_RBBSW|EB_SySEI); 
break; 

case EB_RBBSW: 

case EB_RBBSW|EB_BBASW: 

/* RBASW =0, receive A packet */ 
abuf++; 

ebread(es, pport, EB_RCVBUFA); 
bits 1= (EB_RBASff|EB_SYSEI); 
break; 

case EB_BBASW: 

/* RBASW — 0, RBBSW -- 0, BBASW, receive B, then A */ 
bbabuf++; 

ebread(es, pport, EB_RCVBUFB); 
ebread(es, pport, EB_RCVBUFA); 
bits I- (EB_RBBSW|EB_RBASW|EB_SYSEI); 
break; 

case 0: 

/* RBASW -« 0, RBBSW — 0, BBASW 0, receive A, then B */ 
abbbuf++; 

ebread(es, pport, EB_RCVBUFA); 
ebread(es, j^rt, EB RCVBUFB) ; 
bits !- (EB_RBBSW|EB_RBASW|EB_SYSEI); 
break; 


cont: 

} 


case EB_RaASWjEB_RBBSW: 

case EB_RBASW|EB_RBBSW|EB__BBASW; 

/* no input packets */ 
nopkt++; 

bits 1= (EB_RB3SWiEB_RBASWiES_3YSEI); 
break; 

default: 

panic("ebintr: impossible value"); 

/* NOT REACHED */ 

) 

xcsr = ebrd_reg(pport, EB_AUXCSR); 
if (xcsr I- csr) { 
csr => xcsr; 
goto again; 

} 

ebwr_reg(pport, EB_AUXCSR, (int)((csr|bits)&EB_IMASK)); 

if (es->es_oactive) { 

if ((csr & EB_XBUFSW) -= 0) { 

es->es_if.if_opackets++; 
es->es_oactive = 0; 
csr “ ebrd_reg(pport, EB_XCSR); 
if (csriOxff — Oxff) 

csr - ebrd_reg(pport, EB_XCSR); 
if (csriOxff Oxff) { 

printf("eb%d xmit status reg. botchXn", 
mit) ; 
goto cont; 

) 

if (csr & EB_COLL) 

/* clear counter */ 

6bwr_reg(pport, EB_COLLCNTR, 0); 
if (csr & EB_COLL16) { 

printf("eb%d: 16 collisions; resetting...\n" 
, unit); 
ebreset(pport); 
ebinit(unit); 

} 

if (es->es_if.if_snd.ifq_head) 
ebstart(unit); 

} 

} 

ebportreset(pport); /* clear pport */ 


ebread(es, pport, buf) 

register struct eb_softc *es; 
register int pport; 
register int buf; 

{ 

register struct ether_header *eb; 
register struct mbuf *m; 
register int len, off, eboff; 
register unsigned char bytel, byte2; 
short resid; 

register struct ifqueue *inq; 
short x; 

es->es_if.if_ipackets++; 

ebwr_reg(pport, EB_BBPCLEAR, 0); /* clear bus buffer pointer */ 

bytel =» ebrd_r eg (pport, buf); /* first byte of buffer */ 

if (bytel & EB_RCVERR) { 

printf("ebrcv error %x\n", bytel&Oxff); 

es->es_if.if_ierrors++; 

return; 

} 

byte2 = ebrd_reg(pport, buf); /* second byte of buffer */ 

eboff » ( ((bytel&EB_RBUF)«8) |byte2) - EBRDOFF; 

/* get data */ 
ebrd_5etup(pport, buf); 
e^brd^data (pport, ebrbuf, eboff); 
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/* 

* Get input data length. 

* Get pointer to ethernet header (in input buffer). 

* Deal with trailer protocol; if type is PUP trailer 

* get true type from first 16-bit word past data. 

* Reelaraber that type was trailer by setting off. 

*/ 

len = eboff - sizeof (struct ether_header); 
eb = (struct ether_header *)ebrbuf; 

♦define ebdataaddr(eb, off, type) ((type)(((caddr_t)((eb)+l)+(off)))) 

if (eb->ether_type >- EBPUP_TRAIL && 

eb->ether_type < EBPUP_TRAIL+EBPUP_NTRAILER) ( 
off “ (eb->ether_tYpe - EBPUP_TRAIL) * 512; 
if (off >= EBMTU) 

return; /* sanity */ 

eb->ether_type = *ebdataaddr(eb, off, u_short *); 
resid = *(ebdataaddr(eb, off+2, u_short *)); 
if (off + resid > len) 

return; /* sanity */ 

len - off + resid; 

} else 

off = 0; 
if (len == 0) 

return; 

/* 

* Put packet into inbufs. Off is nonzero if packet 

* has trailing header; ebget will then force this header 

* information to be at the front, but we still have to drop 

* the type and length which are at the front of any trailer data. 
*/ 

m = ebget(ebrbuf, len, off); 
if (m == 0) 

return; 
if (off) { 

m->m_off +- 2 * sizeof (u_short); 
ra->ra_len -= 2 * sizeof (u_short); 

} 

X -= spl6 () ; 

switch (eb->ether_type) { 

♦ifdef INET 

case EBPUP_IPTYPE: 

schednetisr(NETISR_IP); 
inq “ fiipintrq; 
break; 

case ETHERPUP_ARPTYPE; 

arpinput(4es->es_ac, m); 

splx(x); 

return; 

♦endif 

default: 

ra_freem(m); 
splx(x); 
return; 

} 

if (IF_QFULL(inq)) ( 

IF_DROP(inq); 
splx(x); 
ra_freem(m); 
return; 

) 

IF_ENQUEUE(inq, m); 
splx(x); 


/* 

* Ethernet output routine. 

* Encapsulate a packet of type family for the local net. 

* Use trailer local net encapsulation if enough data in first 

* packet leaves a multiple of 512 bytes of data in remainder. 


* If destination is this address or broadcast, send packet to 

* loop device to kludge aroiind the fact that 3com interfaces can't 

* talk to themselves. 

*/ 

eboutput(ifp, mO, dst) 

register struct ifnet *ifp; 
register struct mbuf *mQ; 
register struct sockaddr *dst; 

{ 

int type, s, error; 
u_char edst[6]; 
struct in addr idst; 

register struct eb_softc *es - &eb_softctifp->if_unit]; 
register struct mbuf *m = mO; 
register struct ether_header *eb; 
register int i; 

struct mbuf *mcopY •= (struct mbuf *) 0; /* Null */ 

s = spinet(); 

switch (dst->sa_family) { 

#ifdef INET 

case AF_INET: 

idst = ((struct sockaddr_in *)dst)->sin_addr; 
if (Jarpresolve(&es->es_ac, m, &idst, edst)) 

return (0); /* if not yet resolved */ 

if (in_lnaof(idst) — INADDR_ANY) 

mcopy “ ra_copy(m, 0, (int)M_COPYMjL); 
type = EBPUP_IPTYPE; 
goto gottype; 

♦endif 

case AF_UNSPEC; 

eb = (struct ether_header *)dst->sa_data; 

bcopy((caddr_t)eb->ether_dhost, (caddr_t)edst, sizeof (edst)); 
type - eb->ether_tYpe; 
goto gottype; 

default; 

printf(''eb%d: can't handle af%d\n'', ifp->if_unit, 
dst->3a_family) ; 
error - EAFNOSUPPORT; 
goto bad; 

) 

gottype: 

/* 

* Add local net header. If no space in first mbuf, 

* allocate another. 

*/ 

if (m->m_off > MMAXOFF I I 

HMINOFF + sizeof (struct ether_header) > m->m_off) { 
m - m_get(M_DONTWAIT); 
if (m — 0) { 

error = ENOBUFS; 
goto bad; 

} 

m->m_next - raO; 
ra->m_off = MMINOFF; 

m->m_len ~ sizeof (struct ether_header); 

} else { 

ra->m_off —' sizeof (struct ether_header); 
ra->m_len +» sizeof (struct ether_header); 

} 

eb - mtod(m, struct ether_header *); 

bcopy((caddr_t)edst, (caddr_t)eb->ether_dhost, sizeof (edst)); 
eb->ether_type » htons((u_short)type); 

bcopy((caddr_t)es->es_enaddr, (caddr_t)eb->ether_shost, 6); 

/* 

* Queue message on interface, and start output if interface 

* not yet active. 

*/ 

s - splimp(); 

if (IFQFULL(£ifp->if_snd)) { 

IF^DRPP(*ifp->if^snd); 
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error - ENOBUFS; 
goto qfull; 

} 

IF_ENQUEUE(&ifp->if_snd, m); 
if (es->es_oactive == 0) 

sbstart(ifp“>if unit); 

splx(s); 
gotlocal: 

return(nicopy ? looutput(iloif, mcopy, dst) ; 0); 

qfull; 

mQ = ra; 

bad: 

m_freera(mO); 
splx(s); 
return(error); 

} 

/* 

* Routine to copy from mbuf chain to transmitter 

* buffer in Multibus ebmory. 

*/ 

ebput(pport, ra) 

register int pportf- 
register struct mbuf *m; 

{ 

register struct mbuf *mp; 
register short off; 
register flag - 0; 
register unsigned len; 
register u_char *p; 

for (off - 2048, mp - m; mp; mp » mp->m_next) 
off -= rap->m_len; 

if (off > EBMAXTDOFF) /* enforce minimum packet size */ 

off =» EBMAXTDOFF; 

if (off i 01) { 
off—; 
flag++; 

} 

/* load xmit buffer pointer */ 
ebwr_reg(pport, EB_XBP_LO, off&Oxff); 
ebwr_reg (pport, EB_XBP_HI, ((of f»8) &7)) ; 
ebwr_setup(pport, EB_XMTBUF); 
for (mp - m; mp; mp * mp->m_next) { 
len - rap->m_len; 
if (len = 0) 

continue; 

p = mtod(mp,u_char*); 
ebwr_data(pport, p, (short)len); 

} 

if (flag) 

ebwr_data(pport, "", 1); 

/* re-load xmit buffer pointer */ 
ebwr_reg(pport, EB_XBP_LO, off&Oxff); 
ebwr_reg(pport, EB_XBP_HI, ((off»8) 47)) ; 

m_freem(m); 

} 

/* 

* Routine to copy from memory into mbufs. 

*/ 

struct mbuf * 

ebget(ebrbuf, totlen^ offOJ 

register u_char *ebrbuf; 
register int totlen, offO; 

{ 

register struct mbuf *m; 
struct mbuf *top - 0, **rap - stop; 
register int off - offO, len; 
register u_^char *cp; 
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tdefine THISISMAGIC 
♦ifdef THISISMAGIC 

/* reset 6522. */ 

dp->d_ddra - INPUT; 
dp->d_irb =* 0x18; 
dp->d_ddrb - Oxbc; 
dp->d_irb = RC; 
dp->d_pcr •= Oxb; 

dp->d_ier - FIRQIFCAI; /* enable interrupts (I guess) */ 

#endif THISISMAGIC 

ebwr_reg(pport, EB_AUXCSR, 1); /* clear power-on interrupt */ 

ebportreset(pport); 

/* setup a register to write to it */ 
ebwr_setup(pport, regno) 
int pport, regno; 

{ 

register struct device_d *dp = pro_da[pport]; 

dp->d_irb = WC; 
dp->d_ddra - OUTPUT; 
dp->d_ira = regno; 
dp->d_irb - WD; 

} 

/* setup a register to read from it */ 
ebrd_setup(pport, regno) 
int pport, regno; 

{ 

register struct device_d *dp = pro_da[pport]; 

dp->d_irb = WC; 
dp->d__ddra - OUTPUT; 
dp->d_ira - regno; 
dp->d_irb - RD; 
dp->d_ddra - INPUT; 

} 

/* write data to box. must have done a 6bwr_setup<) first */ 
ebwr_data(pport, p, nbytes) 
int pport; 

register short nbytes; 
register char *p; 

{ 

register struct device_d *dp = pro_da[pport]; 

if (nbytes ) 
do { 

dp->d_ira = *p++; 

} while (—nbytes); 


/* read data from box. must have done a ebrd_setup() first */ 
ebrd_data(pport, p, nbytes) 
int pport; 

register short nbytes; 
register char *p; 

{ 

register struct device_d *dp - pro_da[pport]; 

if (nbytes ) 
do { 

*p++ = dp->d_ira; 

} while (—nbytes); 

} 

/* write a register */ 
ebwr_reg(pport, regno, byte) 
int pport, regno, byte; 

register struct device_d *dp - pro_da[pport]; 
dp->d_irb - WC; 


dp->d_ddra - OUTPUT; 
dp->d_ira = regno; 
dp->d_irb - WD; 
dp->d_ira - byte; 

} 

/* read a register */ 
ebrd_reg(pport, regno) 
int pport, regno; 

{ 

register struct device_d *dp = pro_da[pport]; 

dp->d_irb == WC; 
dp->d_ddra “ OUTPUT; 
dp->d_ira = regno; 
dp->d_irb = RD; 
dp->d_ddra - INPUT; 
return (dp->d_ira & Oxff); 

} 

/* ebportreset - reset port to normal state after xmit command */ 
ebportreset(pport) 
int pport; 

register struct device_d *dp - pro_da[pport]; 

dp->d_irb - RC; 
dp->d_ddra - INPUT; 

} 

appleinit(i) 

{ 

register struct device_d *devp; 
int ebintr(); 
extern char slot [ ]; 

if (ipPOK(i) II (slot(PPSLOT(i)] PRO)) {/* check slot # and type */ 
printf(“ethernet init: port %d, ", i); 
if (slot[PPSLOT(i)] = PM3) 

printf("Priam card\n"); 

else 

printf("card ID 0x%x\n", slot[PPSLOT(i)]); 
goto fail; 

} 

devp = pro_da[i]; 

if (iocheck(&deyp->d_ifr)) { /* board there ? */ 

{ asm(" nop "); } 

if (prodata[i].pd_da != devp) { /* not already setup */ 
if (setppint((prodata[i].pd_da = devp),ebintr)) 
goto fail; 

} 

return 1; 

} else 

fail: 

printf("Can't find port for etherbox %d\n", i); 
return 0; 

} 

♦ifdef doneinppintr 

/* applereset — reset apple interrupt hware */ 
applereset(pport) 

{ 

register struct device_d *dp - pro_da[pport]; 
dp->d_ifr - dp->d_ifr; /* reset interrupt trap */ 

) 

♦endif 

/* sigh */ 

short polleb - 1; 

/* ...as opposed to pollcat... */ 
ebpoll(pport) 

{ 

extern time t Ibolt? 


if (polleb) ( 
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char ebuf[61; 
int i; 

/* 

ebintr<pport); 

*/ 

ebreset(pport); 

/* reset EDLC chip by toggeling reset bit */ 
ebwr_reg(pport, EB_AUXCSR, EB_EDLCRES); 
ebwr_reg(pport, EB_AUXCSR, 0); 

/* Initialize the address RAM */ 

ebwr_reg(pport, EB_BK'CLEAR, 0); /* reset bus-buffer pointer */ 

ebrd_setup(pport, EB_PROM); 
ebrd_data(pport, ebuf, 6); 
for (i = 0; i < 6; i++) 

ebwr_reg(pport, EB_ACTADDR0+i, ebuf[i]); 

/* Hang receive buffers and start any pending writes. */ 
ebwr_reg (pport, EB_ECVCMD, EB_RCVN0RM); /* normal bits */ 
ebwr_reg (pport, EB_AUXCSR, (EB_RBASW | EB__RBBSW j EB_SYSEI)) ; 
timeout(ebpoll, pport, v.v_hz*10); 

) 

ebsetaddr(ifp, sin) 

register struct ifnet *ifp; 
register struct sockaddr^in *sin; 

{ 


ifp->if_addr = *(struct sockaddr *)sin; 
ifp->if_net =*■ in_netof (sin->sin_addr); 
ifp->if_host [0 ] «= in_lnaof (sin->sin_addr); 
sin ” (struct sockaddr_in *)&ifp->if_broadaddr; 
sin->sin_faniily = AF_INET; 

sin->sin_addr “ if_makeaddr(ifp->if_net, INADDR_ANY); 
ifp->if_flags 1“ IFF_BRQADCAST; 
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/* if_ec.c 4.22 82/07/21 */ 

finclude "ec.h” 

/* 

* 3Com Ethernet Controller interface 
*/ 

♦include "sys/param.h” 

♦include "sys/config.h" 

♦include "sys/errno.h" 

♦include "sys/types.h" 

♦include "sys/systm.h" 

♦include **net/rabuf .h" 

♦include "sys/buf.h" 

♦include "net/protosw,h" 

♦include "net/socket.h” 

♦include "net/ubavar.h" 

♦include "net/ecreg.h" 

♦include "net/in.h" 

♦include "net/in_systm.h" 

♦include "net/if.h" 

♦include "net/if_ec.h" 

♦include "net/if_iiba.h" 

♦include "net/ip.h" 

♦include "net/ip_var.h" 

♦include "net/pup.h" 

♦include "net/route.h" 

♦include "ermo.h" 

♦define ECMTU 1500 
♦define ECHEM 0000000 

int ecprobeO, ecattachO, ecrintO, ecxint<), eccollideO; 
struct uba_device *ecinfotNEC]; 
u_short ecstd[] “{ 0 In¬ 
struct uba_driver ecdriver = 

{ ecprobe, 0, ecattach, 0, ecstd, "ec", ecinfo }; 
u_char ec_iltop[3] = { 0x02, 0x07, 0x01 }; 

♦define ECUNlT(x) minor(x) 

int ecinit(),ecoutput(),ecreset(); 

struct mbuf *ecgetOn- 

extern struct ifnet loif; 

/* 

* Ethernet software status per interface. 

* 

* Each interface is referenced by a network interface structure, 

* es_if, which the routing code uses to locate the interface. 

* This structure contains the output queue for the interface, its address, ... 

* 9fe also have, for each interface, a TJBA interface structure, which 

* contains information about the UNIBUS resources held by the interface: 

* map registers, buffered data paths, etc. Information is cached in this 

* structure for use by the if_uba.c routines in running the interface 

* efficiently. 

*/ 

struct ec_softc { 

struct ifnet es_if; /* network-visible interface */ 

struct ifuba es_ifuba; /* UNIBUS resources */ 

short es_mask; /* mask for current output delay */ 

short es_oactive; /* is output active? */ 

caddr_t es_buftl6]; /* virtual addresses of buffers */ 

u_char es_enaddr[6]; /* board's ethernet address */ 

} ec_softc[NEC]; 

/* 

* Do output DMA to determine interface presence and 

* interrupt vector. DMA is too short to disturb other hosts. 

V 

ecprobe(reg) 

caddr_t reg; 

register int br, cvec; /* rll, rlO value-result */ 

register struct ecdevice *addr = (struct ecdevice *)reg; 


register caddr_t ecbuf “ (caddr_t) 4umem[nurauba][ECMEM]; 


♦ifdef lint 

br - 0; cvec - br; br = cvec; 
ecrint(0); ecxint(0); eccollide(0); 


* Make sure memory is turned on 
*/ 

addr->ec__rcr - EC_AROM; 

/* 

* Disable map registers for ec unibus space, 

* but don't allocate yet. 

*/ 

ubamem(ni 2 muba, ECMEM, 32*2, 0) ; 

/* 

* Check for existence of buffers on Unibus. 

*/ 

if (badaddr((caddr_t} ecbuf, 2)) { 
badl: 

printf("ec: buffer mem not found\n"); 

bad2: 

ubamem{numuba, 0, 0, 0); /* reenable map (780 only) */ 

addr->ec_rcr - EC_MDISAB; /* disable memory */ 

return (0); 

} 

♦if VAX780 

if (cpu — VAX_780 £& xiba_hd[numuba] .uh_uba->uba_sr) { 

uba_hd[numuba] .uh_uba->uba_sr =* uba_hd[numuba] .uh_uba->uba_sr; 
goto badl; 

} 


* Tell the system that the board has memory here, so it won't 

* attempt to allocate the addresses later- 
*/ 

if (ubamem(numuba, ECMEM, 32*2, 1) -= 0) { 

printf("ecprobe: cannot reserve uba addresses\n"); 
goto bad2; 


* Make a one byte packet in what should be buffer ♦0. 

* Submit it for sending. This whould cause an xmit interrupt. 

* The xmit interrupt vector is 8 bytes after the receive vector, 

* so adjust for this before returning. 

*/ 

*(u_short *)ecbuf - (u_short) 03777; 
ecbuf[03777] = '\0'; 
addr->ec_xcr = EC_XINTEN|EC_XWBN; 

DELAY(100000); 

addr->ec_xcr -= EC_XCLR; 

if (cvec > 0 cvec 1- 0x200) { 

if (cvec & 04) { /* collision interrupt */ 

cvec -= 04; 

br += 1; /* rev is xmit + 1 */ 

} else { /* xmit interrupt */ 

cvec — 010; 

br += 2; /* rev is xmit + 2 */ 

} 


return (1); 


/* 

* Interface exists: make available by filling in network interface 

* record. System will initialize the interface when it is ready 

* to accept packets. 

*/ 

ecattach(ui) 

struct uba__device *ui; 

{ 

struct ec_3oftc *e9 - fiec_softc[ui->ui_unit]; 
register struct ifnet *ifp - ies->es_if; 

register struct ecdevice *addr - (struct ecdevice *)ui->ui_addr; 
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struct sockaddr_in *sin; 
int i, j; 
u_char *cp; 

ifp->if_unit - ui->ui_unit; 
ifp->if_name - "ec"; 
ifp->if_mtu ” ECMTU; 
ifp->if_net = ui->ui_flags; 

/* 

* Read the ethernet address off the board, one nibble at a time. 

*/ 

addr->ec_xcr - EC_UECIiR; 
addr->ec_rcr = EC_AROM; 
cp * es->es_enaddr; 

♦define NEXTBIT addr->ec_rcr - EC_AROM|EC_ASTEP; addr->ec_rcr = EC_AROM 
for (i=*0; i<6; i++) { 

*cp = 0; 

for (j=0; j<-4; j+“4) { 

*cp ((addr->ec_rcr » 8) & Oxf) « j; 

NEXTBIT; NEXTBIT; NEXTBIT; NEXTBIT; 

} 

cp++; 

} 

♦ifdef notdef 

printf ("ec%d: addr=%x:%x:%x;%x:%x:%x\n'', ui->ui_unit, 
es->es_enaddr[0 J fiOxff, 6s->es_enaddr[1]& Oxff, 
es“>es_enaddr[2J &0xff, es->es_enaddr[3]&0xff, 
es“>es_enaddr[41&Qxff, es->es_enaddr[5]&0xff); 

♦endif 

ifp->if_host [0] - ((es->es_enaddr [3]&0xff)«16) I 

((es->es_enaddr 14] 40xff)«8) | (es->es_enaddr [5] iOxff) ; 
sin - (struct sockaddr_in *)&es“>es_if.if_addr; 
sin->sin_family = AF_INET; 

sin->sin_addr - if_makeaddr(ifp->if_net, ifp“>if_host[0]); 

sin = (struct sockaddr_in *)Sifp->if_broadaddr; 
sin->sin_family - AF_INET; 

sin->sin_addr = if_makeaddr(ifp->if_net, INADDR_ANY); 
ifp->if_flags = IFF_BROADCAST; 

ifp->if_init = ecinit; 
ifp->if_output = ecoutput; 
ifp->if_ubareset =*= ecreset; 
for (i“0; i<16; i++) 

es->es_buf [i] « 4i3mem[ui->ui_ubanum] [ECMEM+2048*i]; 
if_attach(ifp); 

} 

/* 

* Reset of interface after UNIBUS reset, 

* If interface is on specified uba, reset its state. 

*/ 

ecreset(unit, uban) 

int unit, uban; 

{ 

register struct uba_device *ui; 

if (unit >«= NEC I I (ui - ecinfo [unit]) =• 0 i | ui->ui_alive =- 0 | | 
ui->ui_ubanum != uban) 
return; 

printf(" ec%d'', unit); 

ubaraera(uban, ECMEM, 32*2, 0); /* map register disable (no alloc) 

ecinit(unit); 


/* 

* Initialization of interface; clear recorded pending 

* operations, and reinitialize UHIBUS usage. 

*/ 

ecinit(unit) 

int unit; 

{ 

struct ec_softc *es » &ec_softclunit]; 
struct ecdevice *addr; 
int i, s; 


/* 

* Hang receive buffers and start any pending writes. 

* Writing into the rcr also makes sure the memory 

* is turned on. 

*/ 

addr « (struct ecdevice *)ecinfo[unit]“>ui_addr; 
s - splimpO ; 

for (i-ECRHBF; i>-ECRLBF; i--) 

addr“>ec_rcr - EC_READ|i; 
es-->es_oactive ” 0; 
es->es_mask = ~0; 
es->es_if.if_flags 1= IFF_UP; 
if (es->es_if.if_snd.ifq_head) 
ecstart(unit); 

splx(s); 

if_rtinit(4es->es_if, RTF_UP); 


/* 

* Start or restart output on interface. 

* If interface is already active, then this is a retransmit 

* after a collision, and just restuff registers. 

* If interface is not already active, get another datagram 

* to send off of the interface queue, and map it to the interface 

* before starting the output. 

*/ 

ecstart(dev) 

dev_t dev; 

{ 

int unit -= ECUNIT(dev), dest; 

struct ec_softc *es = &ec_softc[unit]; 

struct ecdevice *addr; 

struct robuf *m; 

caddr_t ecbuf; 

if (es->es_oactive) 

goto restart; 

IF_DEQUEUE(&es^>es_if.if_snd, m); 
if (m = 0) { 

es->es_oactive - 0; 
return; 

} 

ecput(es->es_buf[ECTBF], m); 

restart: 

addr - (struct ecdevice *) ecinfo[iinit]->ui_addr; 
addr->ec_xcr = EC_HRITE[ECTBF; 
es-'>es oactive “ 1; 


/* 

* Ethernet interface transmitter interrupt. 

* Start another output if more data to send. 

*/ 

ecxint(unit) 

int unit; 

{ 

register struct ec_softc *es “ &ec_softc[unit]; 
register struct ecdevice *addr - 

(struct ecdevice *)ecinfo[unit]->ui_addr; 

if (es->es_oactive = 0) 
return; 

if ((addr->ec_xcr&EC_XDONE) —OH (addr->ec_xcriEC_XBN) 1= 
printf (''ec%d; stray xmit interrupt, xcr»%b\n'', unit, 
addr->ec_xcr, EC_XBITS); 
es“>e5_oactlve - 0; 
addr->ec__xcr ■» EC_XCLR; 
return; 

) 

es->es_if.if_opackets++; 
es->es_oactive - 0; 
es->es_mask - ~0; 
addr->ec xcr = EC XCLR; 


ECTBF) ( 
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) 


if (es-'>es_if.if_snd.ifq_head) 
ecstart(unit); 


/* 

* Collision on ethernet interface. Do exponential 

* backoff, and retransmit. If have backed off all 

* the way print warning diagnostic, and drop packet. 
*/ 

eccollide(unit) 

int unit; 

( 

struct ec_softc *es = &ec_softc[mit]; 


} 


es->es_if.if_collision3++; 
if (es->es_oactive) 

ecdocoll(unit); 


ecdocoll(unit) 

int unit; 


register struct ec_softc *es = 6ec_softcIunit]; 
register struct ecdevice *addr = 

(struct ecdevice *)ecinfo[unit]->ui_addr; 
register i; 
int delay; 


/* 

* Es_raask is a 16 bit number with n low zero bits, with 

* n the number of backoffs. When es_niask is 0 we have 

* backed off 16 times, and give up. 

*/ 

if (es->es_mask = 0) { 

es->es_if.if_oerrors++; 

printf (''ec%d: send error\n”, unit) ; 

/* 

* Reset interface, then requeue rev buffers. 

* Some incoming packets may be lost, but that 

* can't be helped. 

*/ 

addr->ec_xcr = EC_UECLR; 
for (i=ECRHBF; i>-ECRLBF; i—) 

addr->ec_rcr = EC_READli; 

/* 

* Reset and transmit next packet (if any). 

*/ 

es->es_oactive - 0; 
es->es_mask = ~0; 
if (es“>es_if.if_snd.ifq__head) 
ecstart(unit); 

return; 

/* 

* Do exponential backoff. Compute delay based on low bits 

* of the interval timer. Then delay for that number of 

* slot times. A slot time is 51.2 microseconds (rounded to 51). 

* This does not take into account the time already used to 

* process the interrupt. 

*/ 

es-‘>es_mask «- 1; 

delay - mfpr(ICR) 4~ es->es_raask; 

DELAY(delay * 51); 

/* 

* Clear the controller's collision flag, thus enabling retransmit. 
*/ 

addr->ec xcr - EC CLEAR; 


/* 

* Ethernet interface receiver interrupt. 

* If input error just drop packet. 

* Otherwise purge input buffered data path and examine 

* packet to determine type. If can't determine length 

* from type, then have to drop packet. Othewise decapsulate 

* packet based on type and pass to type specific higher-level 


input routine. 



ecread(unit) 

int unit; 

{ 

register struct ec_softc *es =* &ec_softc[unit] ; 

struct ecdevice *addr = (struct ecdevice *)ecinfo[unit]->ui_addr; 
register struct ec_header *ec; 
struct mbuf *m; 

int len, off, resid, ecoff, buf; 
register struct ifqueue *inq; 
caddr t ecbuf; 


es->es_if.if_ipackets++; 
buf - addr->ec_rcr & EC_RBN; 
if (buf < ECRLBF 1 I buf > ECRHBF) 
panic("ecrint"); 
ecbuf = es->es_buf[buf]; 
ecoff ” *(short *)ecbuf; 
if (ecoff <- ECRDOFF I I ecoff > 2046) { 
es->es__if. if_ierrors++; 

+ifdef notdef 

if (es“>es_if.if_ierrors % 100 == 0) 


tendif 


printf ("ec%d: +=« 100 input errors\n". 


goto setup; 


} 


unit); 


/* 

* Get input data length. 

* Get pointer to ethernet header (in input buffer). 

* Deal with trailer protocol: if type is PUP trailer 

* get true type from first 16-bit word past data. 

* Remember that type was trailer by setting off. 

*/ 

len - ecoff - ECRDOFF - sizeof (struct ec_header); 
ec - (struct ec_header *)(ecbuf + ECRDOFF); 

♦define ecdataaddr(ec, off, type) ((type)(((caddr_t)((ec)+l)+(off)))) 

if (ec->ec_type >- ECPUP_TRAIL 4& 

ec->ec_type < ECPUP_TRAIL+ECPUP_NTRAILER) { 
off = (ec->ec_type - ECPUP_TRAIL) * 512; 
if (off >= ECMTU) 

goto setup; /* sanity */ 

ec->ec_type - *ecdataaddr(ec, off, u_short *); 
resid = *(ecdataaddr(ec, off+2, u_short *)); 
if (off + resid > len) 

goto setup; /* sanity */ 

len ■= off + resid; 

} else 

off ” 0; 
if (len — 0) 

goto setup; 


/* 

* Pull packet off interface. Off is nonzero if packet 

* has trailing header; eeget will then force this header 

* information to be at the front, but we still have to drop 

* the type and length which are at the front of any trailer data. 
*/ 

m = eeget (ecbuf, len, off) ; 
if (m — 0) 

goto setup; 
if (off) { 

m->m_off +■« 2 * sizeof (u_short); 
m->m_len — 2 * sizeof (u_9hort); 

} 

switch (ec->ec_typ€) { 
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tifdef INET 

case ECPUP_IPTYPE: 

schednetisr(NETISR_IP); 
inq = fiipintrq; 
break? 

Jendif 

default: 

m_freem(m); 
goto setup; 

} 

if (IF_QFULL(inq)) { 

IF_DROP(inq); 
m_freem(m) ; 
goto setup; 

} 

IF_ENQUEUE(inq, m) ; 

setup: 

/* 

* Reset for next packet. 

*/ 

addr->ec_rcr = EC_READlEC_RCLR|buf; 

} 

/* 

* Ethernet output routine. 

* Encapsulate a packet of type family for the local net. 

* Use trailer local net encapsulation if enough data in first 

* packet leaves a multiple of 512 bytes of data in remainder. 

* If destination is this address or broadcast, send packet to 

* loop device to kludge around the fact that 3com interfaces can't 

* talk to themselves. 

*/ 

ecoutput(ifp, mO, dst) 

struct ifnet *ifp; 
struct robuf *m0; 
struct sockaddr *dst; 

{ 

int type, dest, s, error; 

register struct ec_softc *es = &ec_softc[ifp->if_unit]; 
register struct mbuf *m - mO; 
register struct ec_header *ec; 
register int off, i; 

struct mbuf *mcopy = (struct mbuf *) 0; /* Null */ 

switch (dst->sa_family) ( 

fifdef INET 

case AF_INET: 

dest = ((struct sockaddr_in *)dst)“>sin_addr.s_addr; 
if ((dest Oxff) == 0) 

mcopy - m_copy(m, 0, M_COPYALL); 
else if (dest — ((struct sockaddr_in *)ses->es_if,if_addr)-> 
sin_addr.s_addr) { 
mcopy ” m; 
goto gotlocal; 

} 

off = ntohs((u_short)mtod(m, struct ip *)->ip_len) - m->m_len; 
if (off > 0 44 (off 4 oxlff) = 0 44 

ra->m_off >- MMINOFF + 2 * sizeof (u_short)) { 
type - ECPUP_TRAIL + {off»9) ; 
m->ra_off — 2 * sizeof (u_short); 
ra->m_len +« 2 * sizeof (u_short); 

*mtod(m, u_short *) = ECPUP_IPTYPE; 

*(mtod(m, u_short *) + 1) - m->m_len; 
goto gottrailertype; 

> 

type - ECPUP_IPTYPE; 
off - 0; 
goto gottype; 

♦endif 

default: 

printf("ec%d: can't handle af%d\n", ifp->if_unit. 


dst->sa_family); 
error = EAFNOSUPPORT; 
goto bad; 

} 

gottrailertype: 
f* 

* Packet to be sent as trailer: move first packet 

* (control information) to end of chain. 

*/ 

while (m->m_next) 

Tn =<: Tn—>Tn next; 
m“>m_next - mO; 
m = m0->m_next; 
m0->m_next =* 0; 
mO - m; 


* Add local net header. If no space in first mbuf, 

* allocate another. 

*/ 

if (m->m_off > MHAXOFF I I 

MMINOFF + sizeof (struct ec_header) > m“>m_off) { 
m - m_get(M_DONTWAIT); 
if (m =- 0) { 

error = ENOBUFS; 
goto bad; 

} 

m->m_next = mO; 
m->m_off - MMINOFF; 

m->m_len » sizeof (struct ec_header); 

} else { 

m“>m_off sizeof (struct ec_header); 
m->m_len += sizeof (struct ec_header); 

} 

ec = mtod(m, struct ec_header *); 
for (i-0; i<6; i++) 

ec-->ec_shost [ i ] = es->es_enaddr [ i ] ; 
if ((dest 4~ Oxff) = 0) 

/* broadcast address */ 
for (i=0; i<6; i++) 

ec->ec dhost[i] =» Oxff; 


if (dest 4 0x8000) { 

ec->ec_dhost[0] 
ec->ec_dhost[1) 
ec->ec_dho st[2] 

} else { 

ec->ec_dhost [ 0] 
ec->ec_dhost [1] 
ec->ec_dhost [ 2] 


ec_iltop[0]; 
ec_iltop[l]; 
ec_iltop[2]; 

es->es_enaddr[0]; 
es->es_enaddr[1] ; 
es->es_enaddr[2]; 


ec->ec_dhost [3] = (dest»8) 4 0x7f; 
ec->ec_dhost [4] = (dest»16) 4 Oxff; 
ec->ec dhost[5] - (dest»24) 4 Oxff; 


ec->ec_type 


/* 

* Queue message on interface, and start output if interface 

* not yet active. 

*/ 

s - splimpO ; 

if (IF_QFULL(4ifp->if_snd)) { 

IF_DROP(4ifp->if_snd); 
error - ENOBUFS; 
goto qfull; 

} 

IF_ENQUEUE(4ifp->if_snd, m); 
if (es->es_oactive ■=“ 0) 

ecstart(ifp->if_unit); 

splx(s); 


gotlocal: 

return(mcopy 2 looutput(4lpif, mcopy, dst) : 0); 
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qfull: 


register int words; 
u_char *mcp; 

mO “ m; 
splx(s); 


MGET(m, 0); 

bad: 


if (m “ 0) 

iti_freem(mO); 


goto bad; 

return(error); 


if (off) { 

} 


len =» totlen - off; 

/* 


cp - ecbuf + ECRDOFF + sizeof (struct ec_header) 

) else 

* Routine to copy from mbuf chain to transmitter 


len = totlen; 

* buffer in UNIBUS memory. 


if (len >= CLBYTES) { 

*/ 


struct mbuf *p; 

ecput(ecbuf, m) 

u_char *ecbuf; 


MCLGET(p, 1); 

struct mbuf *m; 


if (p 1“ 0) { 

i 


m->m len = len = CLBYTES; 

register struct mbuf *mp; 


m->m_off “ (int)p - (int)m; 

register int off; 


} else ( 

u_char *bp; 


m->m_len = len = HIN(MLEN, len); 

for (off “ 2048, mp - m; mp; mp = mp->m_next) 


m->m off = MMINOFF; 

} 

off mp“>ra_len; 


} else { 

*(u_short *)ecbuf “ off; 


m->m_len * len = MIN(MLEN, len); 

bp “ (u_char *)(ecbuf + off); 


m->ra off = MMINOFF; 

for (mp = m; mp; mp - mp->m_next) { 


} 

register unsigned len ”= mp“>m_len; 


mcp = mtod(m, u_char *); 

u_char *mcp; 


if (words =■ (len » 1)) { 

if (len ~ 0) 

continue; 


register u_short *to, *from; 

to * (u_short *)mcp; 

mcp ” mtod(mp, u_char *); 


from = (u_short *)cp; 

if ((unsigned)bp S 01) { 


do 

*bp++ = *mcp++; 


*to++ =" *from++; 

len—; 


while (—words > 0); 

} 


mcp - {u_char *)to; 

if (off « (len » 1)) ( 


cp = (u char *)from; 

register u short *to, *from; 


} 

to == (u_short *)bp; 


if (len & 01) 

*mcp++ == *cp++; 

from = (u_short *)mcp; 


*Tjip = ju; 

do 


mp - &m->m next; 

*to++ — *from++; 


if (off = 0) 1 

while (—off > 0); 


totlen -= len; 

bp = (u_char *)to. 


continue; 

mcp “ (u char *)from; 


} 

} 


off +“ len; 

if (len s 01) 


if (off —= totlen) { 

*bp++ * *mcp++; 


cp - ecbuf + ECRDOFF + sizeof (struct ec_header) 

} 


off = 0; 

fifdef notdef 


totlen - offO; 

if (bp - ecbuf 1= 2048) 


} 

printfC'ec: bad ecput, diff-%d\n'', bp-ecbuf) ; 


} 

tendif 


return (top); 

m freem(m); 

bad: 


} 


m_freem(top); 

/* 

} 

return (0); 

* Routine to copy from UNIBUS memory into mbufs. 

* Similar in spirit to if_rubaget. 

* Warning: This makes the fairly safe assumption that 




* mbufs have even lengths. 

*/ 

struct mbuf * 

ecget(ecbuf, totlen, offO) 
u_char *ecbuf; 
int totlen, offO; 

{ 

register struct rabuf *m; 
struct mbuf *top - 0, **mp " Stop; 
register int off - offO, len; 
u_char *cp; 

cp - ecbuf + ECRDOFF + sizeof (struct ec_header); 
while (totlen > 0) { 


off 
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i* if_ether.c 6.2 83/08/28 */ 

i* 

* Ethernet address resolution protocol. 

*/ 

♦include "sys/param.h” 

♦include "sys/types.h" 

♦ include "sys/systni.h" 

♦include "sys/var.h" 

♦include "net/misc.h" 

♦include "net/mbuf.h" 

♦include "net/socket.h" 

♦include "sys/errno.h" 

♦include "net/if.h" 

♦include "net/in.h" 

♦include "net/if ether.h" 


/* 

* Internet to ethernet address resolution table. 

*/ 

struct arptab { 

struct in_addr at_iaddr; /* internet address */ 

u__char at_enaddr [6]; /* ethernet address */ 

struct mbuf *at_hold; /* last packet until resolved/timeout */ 

u_char at_timer; /* minutes since last reference */ 

u_char at_flags; /* flags */ 

}; 

/* at_flags field values */ 

♦define ATF_INUSE 1 /* entry in use */ 

♦define ATF_COM 2 /* completed entry (enaddr valid) */ 

♦define ARPTAB_BSIZ 5 /* bucket size */ 

♦define ARPTAB__NB 19 /* number of buckets */ 

♦define ARPTAB_SIZE (ARPTAB_BSI2 * ARPTAB_NB) 

struct arptab arptab[ARPTAB_SIZE]; 

♦define ARPTAB_HASH(a) \ 

{(short) {(((a) » 16) '' (a)) & 0x7fff) % ARPTAB_N3) 

♦define ARPTAB_LOOK(at,addr) { \ 
register n; \ 

at = iarptab[ARPTAB_HASH(addr) * ARPTAB_BSIZ]; \ 
for (n = 0 ; n < ARPTAB_BSIZ ; n++,at++) \ 
if (at->at_iaddr. s_addr =«== addr) \ 
break; \ 

if (n >-= ARPTAB_BSIZ) \ 
at = 0; ) 

struct arpcom *arpcom; /* chain of active ether interfaces */ 

int arpt_age; /* aging timer */ 

/* timer values */ 

♦define ARPT_AGE (60*1) /* aging timer, 1 min. */ 

♦define ARPT_KILLC 20 /* kill completed entry in 20 mins. */ 

♦define ARPT_KILLI 3 /* kill incomplete entry in 3 minutes */ 

u_char etherbroadcastaddr[6] - { Oxff, Oxff, Oxff, Oxff, Oxff, Oxff ); 
extern struct ifnet loif; 

/* 

* Local addresses in the range oldmap to infinity are 

* mapped according to the old mapping scheme. That is, 

* mapping of Internet to Ethernet addresses is performed 

* by taking the high three bytes of the network interface's 

* address and the low three bytes of the local address part. 

* This only allows boards from the same manufacturer to 

* communicate unless the on-board address is overridden 

* (not possible in many manufacture's hardware). 

* 

* MB: setting oldmap to zero completely disables ARP 

* (i.e. identical to setting IFF^NOARP with an ioctl). 

*/ 

int oldmap = Oxffffff; 


/* 

* Attach an ethernet interface to the list "arpcom" where 

* arptimerO can find it. If first time 

* initialization, start arptimerO. 


arpattach(ac) 

register struct arpcom 


register struct arpcom 


*ac; 

*acp; 


} 


for (acp “ arpcom; acp 1- (str 
if (acp ac) 
return; 

ac->ac_ac - arpcom; 
arpcom = ac; 
if (arpcom->ac_ac -= 0) 
arptimer(); 


:t arpcom *)Q; acp =» acp->ac_ac) 
/* if already on list */ 


/* very first time */ 


/* 

* Timeout routine, ^^e arp_tab entries once a minute. 
*/ 

arptimer() 

{ 

register struct arptab *at; 
register i; 


timeout (arptimer, (caddr__t) 0, v. v_hz); 
♦ifdef notdef 

if (++arpt_sanity > ARPT_SANITY) { 
register struct arpcom *ac; 


♦endif 


} 


/* 

* Randomize sanity timer based on my host address. 

* Ask who has my own address; if someone else replies, 

* then they are impersonating me. 

*/ 

arpt_sanity ** arpcom->ac_enaddr[5] & 0x3f; 

for (ac =• arpcom; ac I- (struct arpcom *)-!; ac - ac->ac_ac) 
arpwhohas(ac, fi((struct sockaddr_in *) 

4ac->ac_if.if_addr)->sin_addr); 


if (++arpt_age > ARPT_AGE) { 
arpt_age = 0; 
at ■= «arptab[0]; 

for (i - 0; i < ARPTAB_SIZE; i++, at++) { 
if (at->at_flags *=- 0) 
continue; 

if (++at->at_timer < ((at->at_flagsiATF_COM) ? 
ARPT_KILLC : ARPT_KILLI)) 
continue; 

/* timer has expired, clear entry */ 
arptfree(at); 

} 

} 


/* 

* Broadcast an ARP packet, asking who has addr on interface ac. 
*/ 

arpwhohas(ac, addr) 

register struct arpcom *ac; 
struct in_addr *addr; 

{ 

register struct mbuf *m; 
register struct ether_header *eh; 
register struct ether_arp *ea; 
struct sockaddr sa; 


if ((m - m_get(H_DONTWAIT)) «- NULL) 
return; 

m->m_len - sizeof *ea + sizeof *eh; 
m->m_off - MMAXOFF - ra->m_len; 
ea - mtod(m, struct ether^arp *); 
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eh - (struct ether_header *)sa.sa_data; 
bzero({caddr_t)ea, sizeof (*ea)); 

bcopy((caddr_t)etherbroadcastaddr, (caddr_t)eh->ether_dhost, 
sizeof (etherbroadcastaddr)); 

eh“>ether_typ€ - ETHERPUP_ARPTYPE; /* if_output will swap */ 

ea->arp_hrd = htons(ARPHRD_ETHER); 
ea->arp_pro “ htons(ETHERPUP_IPTYPEJ; 

ea-->arp_hln - sizeof ea-->arp_sha; /* hardware address length */ 

ea->arp_j)ln = sizeof ea->arp_spa; /* protocol address length */ 

ea->arp_op = htons(ARPOP^REQUEST); 
bcopy((caddr_t)ac->ac_enaddr, (caddr_t)ea->arp_sha, 
sizeof (ea->arp_sha )); 

bcopy((caddr_tJ&((struct sockaddr_in *)sac->ac_if.if_addr)“>sin_addr, 
(caddr_t)ea->arp_spa, sizeof (ea->arp_spa)); 
bcopy ((caddr_t)addr, {caddr__t) ea-->arp_tpa, sizeof (ea->arp_tpa)); 
sa.sa_family = AF_UNSPEC; 

(void) (*ac->ac_if.if_output)(&ac“>ac_if, m, isa); 


/* 

* Resolve an IP address into an ethernet address. If success, 

* desten is filled in and 1 is returned. If there is no entry 

* in arptab, set one up and broadcast a request 

* for the IP address; return 0. Hold onto this mbuf and 

* resend it once the address is finally resolved, 

* 

* We do some (conservative) locking here at splimp, since 

* arptab is also altered from input interrupt service (ecintr/ilintr 

* calls arpinput when ETHERPUP_ARPTYPE packets come in). 

*/ 

arpresolve(ac, m, destip, desten) 

register struct arpcom *ac; 
struct mbuf *m; 

register struct in_addr *destip; 
register u_char *desten; 

{ 

register struct arptab *at; 
register struct ifnet *ifp; 
struct sockaddr_in sin; 
int s, Ina; 

Ina =» in_lnaof {*destip) ; 

if (Ina “ INADDR_ANY) { /* broadcast address */ 

bcopy((caddr_t)etherbroadcastaddr, (caddr_t)desten, 
sizeof (etherbroadcastaddr)); 
return {1); 

) 

ifp = &ac->ac_if; 

/* if for us, then use software loopback driver */ 
if (destip->s_addr =*= 

((struct sockaddr_in *)&ifp“>if_addr)-> sin_addr.s_addr) { 
sin.sin_family - AF_INET; 
sin.sin_addr - *destip; 

return (looutput(&loif, m, (struct sockaddr *)&sin)); 

} 

/* billn: temp... 

if ((ifp->if_flags & IFF_NOARP) |1 Ina >= oldmap) { 

*/ 

{ 

extern iff_noarp; 
if (iff_noarp) { 

bcopy ((caddr_t)ac'->ac_enaddr, (caddr_t)desten, 3); 

desten[3] - (Ina » 16) £ 0x7f; 

desten[4] - (Ina » 8) £ Oxff; 

desten[5] - Ina £ Oxff; 

return (1); 

} 

} 

s - splimp0; 

ARPTAB_IjOOK (at, destip->s_addr) ; 
if (at “ 0) { /* not found */ 

at ” arptnew(destip); 
at->at_hold - m; 
arpwhohas(ac, destip); 
splx{3); 
return (0); 


} 

at->at_timer -0; /* restart the timer */ 

if (at->at_flags £ ATF_COM) { /* entry IS complete */ 

bcopy((caddr_t)at->at_enaddr, (caddr_t)desten, 6); 
splx(s); 
return (1); 

} 

/* 

* There is an arptab entry, but no ethernet address 

* response yet. Replace the held mbuf with this 

* latest one. 

*/ 

if (at->at_hold) 

m_freem(at->at_hold); 
at->at_hold “ m; 

arpwhohas(ac, destip); /* ask again */ 

splx(s); 
return (0); 


/* 

* Find my own IP address. It will either be waiting for us in 

* monitor RAM, or can be obtained via broadcast to the file/boot 

* server (not necessarily using the ARP packet format). 


* Unimplemented at present, return 0 and assiuae that the host 

* will set his own IP address via the SIOCSIFADDR ioctl- 
*/ 

/*ARGSUSED*/ 

Struct in_addr 
arpmyaddr(ac) 

register struct arpcom *ac; 

{ 


static struct in addr addr; 


*ifdef lint 

ac - ac; 

iendif 

addr.s_addr = 0; 
return (addr); 

} 


/* 

* Called from ecintr/ilintr when ether packet type ETHERPUP_ARP 

* is received. Algorithm is exactly that given in RFC 826, 

* In addition, a sanity check is performed on the sender 

* protocol address, to catch impersonators. 

*/ 

arpinput(ac, m) 

register struct arpcom *ac; 
struct mbuf *m; 

{ 

register struct ether_arp *ea; 
struct ether_header *eh; 

register struct arptab *at = 0; /* same as ’’merge*' flag */ 

struct sockaddr_in sin; 

struct sockaddr sa; 

struct mbuf *mhold; 

struct in_addr isaddr,itaddr,myaddr; 

if (m->m_len < sizeof *ea) ( 
goto out; 

} 

myaddr - ((struct sockaddr_in *)£ac->ac_if.if_addr)”>sin_addr; 
ea - ratod(m, struct ether_arp *); 
if (ntohs(ea->arp_j)ro) !“ ETHERPUP^IPTYPE) { 
goto out; 

) 

isaddr.s_addr = {(struct ln_addr *)ea->arp_spa)->s_addr; 
itaddr.s_addr - ((struct in_addr *)ea->arp_tpa)->s_addr; 
if (ibcn^((caddr_t)ea->arp_sha, (caddr_t)ac“>ac_enaddr, 
sizeof (ac->ac_enaddr))) { 

goto out; /* it's from me, ignore it, */ 

} 

if (isaddr.s_addr — myaddr.s_addr) { 

printf("duplicate IP address'* sent from ethernet address: "); 
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printf("%x %x %x %x %x %x\n", ea“>arp_sha[0], ea->arp_sha[1], 
ea->arp_sha [ 2 ], ea-’>arp_sha [ 3 ], 
ea->arp_sha[4], ea->arp_sha[5]); 
if (ntahs(ea->arp_op) -= ARPOP_REQUEST) 
goto reply; 
aoto out; 

ARPTAB_LOOK(at, isaddr.s_addr); 
if (at) { 

bcopy((caddr_t)ea->arp_sha, (caddr_t)at->at_enaddr, 
sizeof (ea->arp_sha)); 
at“>at_flags |= ATF_COM; 
if (at->at__hold) { 

mhold = at->at_hold; 
at->at_hold - 0; 
sin. sin_family = AF_INET; 
sin.sin_addr = isaddr; 

(*ac->ac_if.if_output)(4ac->ac_if, 
mhold, (struct sockaddr *)4sin); 

y 

} 

if (itaddr. s_addr '•» myaddr .s_addr) { 

goto out; /* if I am not the target */ 

} 

if (at === 0) { I* ensure we have a table entry 

at = arptnew(Sisaddr); 

bcopy ((caddr_t) ea‘->arp_sha, (caddr_t) at->at_enaddr, 
sizeof (ea->arp_sha)); 
at->at_flags I- ATF_CQH; 

} 

if (ntohs(ea->arp_op) ARPOP_REQUEST) { 
goto out; 

} 

reply: 

bcopy((caddr_t)ea-> arp_sha, (caddr_t)ea->arp_tha, 
sizeof (ea“>arp_sha)); 

bcopy((caddr_t)ea->arp_spa, (caddr_t)ea->arp_tpa, 
sizeof (ea->arp_spa)); 

bcopy((caddr_t)ac->ac_enaddr, (caddr_t)ea->arp_sha, 
sizeof (ea->arp_sha)); 

bcopy((caddr_t)fimyaddr, (caddr_t)ea“>arp_spa, 
sizeof (ea->arp_spa)}; 
ea->arp_op = htons(ARPOP_REPLY); 
eh = (struct ether_header *)sa.sa_data; 
bcopy((caddr_t)ea->arp_tha, (caddr_t)eh->ether_dhost, 
sizeof (eh->ether_dhost)); 
eh->ether_type - ETHERPUP_ARPTYPE; 
sa.sa_family = AF_UNSPEC; 

(*ac->ac_if,if_output)(4ac->ac_if, m, 4sa); 
return; 

out; 

m_f reem (m) ; 
return; 


/* 

* Free an arptab entry. 

*/ 

arptfree(at) 

register struct arptab *at; 

{ 


int s “ splimp(); 


if (at->at_hold) 

m_freem(at->at_hold); 
at->at_hold = 0; 

at->at_timer - at->at_flags « 0; 
at->at_iaddr. s_addr -= 0 ; 
splx(9); 


/* 

* Enter a new address in arptab, pushing out the oldest entry 

* from the bucket if there is no room. 

*/ 

struct arptab * 


arptnew(addr) 

struct in_addr *addr; 

{ 

register n; 
int oldest = 0; 

register struct arptab *at, *ato; 

ato = at =“ 4arptabtARPTAB_HASH(addr->s_addr) 
for (n - 0 ; n < ARPTAB_BSIZ ; n++,at++) { 
if (at->at_flags — 0) 

goto out; /* found an 

if (at“>at_tinier > oldest) { 

oldest = at“>at_timer; 
ato ” at; 

} 

} 

at = ato; 
arptfree(at); 

out: 

at“>at_iaddr - *addr; 
at->at_flags = ATF_INUSE; 
return (at); 

) 


* ARPTAB_BSIZ] 
empty entry */ 
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/* if_il.c 4.11 82/08/25 */ 

finclude "il.h” 

/* 

* Interlan Ethernet Coinmunications Controller interface 
*/ 

^include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/ermo.h" 

♦include "sys/types.h" 

♦include "sys/systm.h" 

♦include "net/mbuf.h" 

♦include "sys/buf.h“ 

♦include "net/protosw.h" 

♦include "net/socket.h" 

♦include "net/ubavar.h" 

♦include "net/ilreg.h" 

♦include "net/in.h" 

♦include "net/in_sys.h" 

♦include "net/if.h" 

♦include •net/if_il.h" 

♦include "net/if_uba.h" 

♦include "net/ip.h" 

♦include "net/ip_var.h" 

♦include "net/pup.h" 

♦include "net/route.h" 

♦include "errno.h" 

♦define ILMTU 1500 /* Maximum data size for Ethernet packet */ 

♦define ILHIN (60-14) /* Minimum data size for Ethernet packet */ 

int ilprobe(), ilattach(), ilrint(), ilcint(); 
struct uba_device *ilinfo[NIL]; 
u_short ilstd[] = { 0 }; 
struct uba_driver ildriver *= 

{ ilprobe, 0, ilattach, 0, ilstd, "il", ilinfo }; 

♦define ILUNIT(x) minor(x) 

int ilinit(),iloutput(),ilreset(),ilwatch(); 

u_char il_ectop[3] - { 0x02, 0x60, 0x8c }; 

u_char ilbroadcastaddr[6] = { Oxff, Oxff, Oxff, Oxff, Oxff, Oxff ); 

/* 

* Ethernet software status per interface. 

* 

* Each interface is referenced by a network interface structure, 

* is_if, which the routing code uses to locate the interface. 

* This structure contains the output queue for the interface, its address, ... 

* We also have, for each interface, a UBA interface structure, which 

* contains information about the UNIBUS resources held by the interface: 

* map registers, buffered data paths, etc. Information is cached in this 

* structure for use by the if_xiba.c routines in running the interface 

* efficiently. 

*/ 

struct il_softc { 

struct ifnet is_if; /* network-visible interface */ 

struct ifuba is_ifuba; /* UNIBUS resources */ 

int is_flags; 

♦define lLF_OACTIVE 0x1 /* output is active */ 

♦define ILF_RCVPENDING 0x2 /* start rev in ilcint */ 

♦define ILF_STATPENDING 0x4 /* stat cmd pending */ 

short is_lastcmd; /* can't read csr, so must save it */ 

short is_scaninterval; /* interval of stat collection */ 

♦define ILWATCHINTERVAL 60 /* once every 60 seconds */ 

struct il_stats is_stats; /* holds on-board statistics */ 

struct il_stats is_sum; /* summation over time */ 

long is_ubaddr; /* mapping registers of is_stats */ 

} il_aoftcCHILI ; 

ilprobe(reg) 

caddr_t reg; 

( 

register int br, cvec; /* rll, rlO value-result */ 

register struct ildevice *addr - (struct ildevice *)reg; 
register i; 


♦ifdef lint 

br = 0; cvec - br; br * cvec; 
ilrint(0); ilcint(0); ilwatch(0); 

♦endif 

addr->il_csr - ILC_OFFLINE|IL_CIE; 

DELAY(100000); 

i = addr->il_csr; /* clear CDONE */ 

if (cvec > 0 cvec !— 0x200) 

cvec 4; 

return (1); 

} 

/* 

* Interface exists: make available by filling in network interface 

* record. System will initialize the interface when it is ready 

* to accept packets. A STATUS command is done to get the ethernet 

* address and other interesting data. 

*l 

ilattach(ui) 

struct uba_device *ui; 

{ 

register struct il_softc *is - &il_softc[ui->ui__unit] ; 
register struct ifnet *ifp = &is->is_if; 

register struct ildevice *addr = (struct ildevice *)ui->ui_addr; 
struct sockaddr_in *sin; 

ifp->if_unit = ui->ui_unit; 
ifp->if_name - "il"; 
ifp->if_ratu = ILMTU; 
ifp->if_net = htonl(ui->ui_flags); 

/* 

* Reset the board and map the statistics 

* buffer onto the Unibus. 

*/ 

addr->il_csr = ILC_RESET; 

while ((addr->il_csr&IL_CDONE) — 0) 

if (addr->il_csr£IL_STATUS) 

printf("il%d: reset failed, csr=%b\n", ui->ui_unit, 
addr->il_csr, IL_BITS); 

is->is_ubaddr “ iiballoc(ui->ui_ubanum, &is->is_stats, 
sizeof (struct il_stats), 0); 
addr->il_bar = is->is_ubaddr & Oxffff; 
addr->il_bcr = sizeof (struct il_stats); 
addr->il_csr - ((is->is_ubaddr » 2) & IL_EUA)IILC_STAT; 
while ((addr->il_csr&IL_CDONE) 0) 

if (addr->il_csr&IL_STATUS) 

printf("il%d: status failed, csr=%b\n", ui->ui_unit, 
addr->il__csr, IL_BITS) ; 
iibarelse (ui->ui_ubanum, &is->is_ubaddr); 

printf("il%d: addr-%x:%x:%x:%x:%x:%x module=%s firmware-%s\n", 
ui->ui_unit, 

is->is_stats.ils_addr[0]fiOxff, is->is_stats.ils_addr[1]iOxff, 
is->is_stats-ils_addr[2]iOxff, is->is_stats.ils_addr[3]&0xff, 
is->is_stats.ils_addr[4]fiOxff, is->is_stats.ils_addr[5]&0xff, 
is->is_stats.ils_module, is->is_stats.ils_firmware); 
ifp->if_host[0] - 

((long) (is->is_stats.ils_addr[3]i0xff)«16) 1 0x800000 | 

((is->is_stats.ils_addr [4]«0xff)«8) | 

(is->is_stats.ils_addr[5]*0xff); 
sin “ (struct sockaddr_in *)&ifp->if_addr; 
sin->sin_family - AF_INET; 

sin->sin_addr - if_makeaddr(ifp->if_net, ifp->if_host[0]); 

sin “ (struct sockaddr_in *)4ifp->if_broadaddr; 
sin->sin_family - AF_INET; 

sin->sin_addr - if_makeaddr(ifp->if_net, INADDR_ANY); 
ifp->if_flags - IFF_BRQADCAST; 

ifp->if_init - ilinit; 
ifp->if__output - iloutput; 
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ifp->if_ubareset = ilreset; 
ifp->if_watchdog - ilwatcdi; 
is->is_scaniiiterval - ILWATCHINTERVAL; 
ifp->if_timer - is->is_scaninterval; 
is-‘>is_ifuba.ifu_flags = UBA_CANTWAIT; 
notdef 

is->is_ifiiba.ifu_flags |= UBA_NEEDBDP; 
if_attach(ifp); 


Reset of interface after UNIBUS reset. 

If interface is on specified uba, reset its state. 


ilreset (unit, uJaan) 

int unit, uban; 

{ 

register struct uba_device *ui; 


if (unit >“ NIL II (ui “ ilinfo[unit]) 
ui->ui_ubanuin != uban) 
return; 

printfC* il%d'', unit) ; 
ilinit(unit); 


ui->ui_alive — Oil 


* Initialization of interface; clear recorded pending 

* operations, and reinitialize UNIBUS usage. 

*/ 

ilinit(unit) 

int unit; 

{ 

register struct il_softc *is - &il_softc[unit]; 
register struct uba_device *ui = ilinfo[unit]; 
register struct ildevice *addr; 
int s; 

if (if_ubainit (6is->is_ifuba, ui->ui_ubanum, 

sizeof (struct il_rheader), (int)btoc(ILMTU)) = 0) { 
printf ('*il%d: can't initialize\n", unit) ; 
is->is_if.if_flags &= ~IFF_UP; 
return; 

} 

is->is_ubaddr -= uballoc(ui-'>ui_iibaniua, &is“>is_stats, 
sizeof (struct il_stats), 0); 
addr =» (struct ildevice *)ui->ui_addr; 


* Turn off source address insertion (it's faster this way), 

* and set board online. 

*l 

s - splimp (); 

addr->il_csr - ILC_CISA; 

while ((addr->il_csr & IL_CDONE) “ 0) 

addr->il_csr - ILC_ONLIira; 

while ((addr->il_csr & IL_CDONE) = 0) 


* Hang receive buffer and start any pending 

* writes by faking a transmit complete. 

* Receive bcr is not a rauliple of 4 so buffer 

* chaining can't happen. 

*/ 

addr->il_bar - is->is_ifuba.ifu_r.ifrw_info & Oxffff; 
addr->il_bcr - sizeof(struct il_rheader) + ILMTU + 6; 
addr->il__csr - 

((is->is_ifuba.ifu_r.ifrw_info » 2) & IL_EUA) jILC_RCV1IL_RIE; 
while ((addr->ll_csr & IL_CDONE) =- 0) 

is->is_flags - ILF_OACTIVE; 
is~>is_if.if_flags l- TFF_UP; 
is->is_lastc3nd - 0; 
ilcint(unit); 


) 


splx(s); 

if_rtinit(4is->is_if, RTF_UF); 


/* 

* Start output on interface. 

* Get another datagram to send off of the interface queue, 

* and map it to the interface before starting the output. 

*/ 

ilstart(dev) 

dev_t dev; 

{ 

int unit - iLUNIT(dev), dest, len; 

struct uba_device *ui =• ilinfo [unit ] ; 

register struct il_softc *is = &il_softc[unit]; 

register struct ildevice *addr; 

struct mbuf *m; 

short csr; 

IF_DEQUEUE (&is->is_if.if_snd, m) ; 
addr “ (struct ildevice *)ui->ui_addr; 
if (m — 0) { 

if ((is->is_flags & ILF_STATPENDING) — 0) 
return; 

addr->il_bar = is->is_ubaddr & Oxffff; 
addr->il_bcr = sizeof (struct il_stats); 

csr - ((is->is_ubaddr » 2) & IL_EUA)IILC_STAT[IL_RIE1IL_CIE; 

is->is_flags &-ILF_STATPENDING; 

goto startcmd; 

} 

len - if_wubaput (4is"’>is_ifuba, m); 

/* 

* Ensure minimum packet length. 

* This makes the safe assijmtion that there are no virtual holes 

* after the data. 

* For security, it might be wise to zero out the added bytes, 

* but we're mainly interested in speed at the moment- 
*/ 

if (len - sizeof (struct il_xheader) < imiN) 

len =* ILHIN + sizeof (struct il_xheader); 
if (is“>is_ifuba.ifu_fiags 4 UBA_NEEUBDP) 

UBAPURGE(is->is_ifuba.ifu_uba, is->is_ifuba.ifu_w.ifrw_bdp); 
addr->il_bar - is-'>is_ifuba.ifu_w.ifrw_info & Oxffff; 
addr->il_bcr - len; 
csr = 

((is->is_ifuba.ifu_w.ifrw_info » 2) 4 IL_EUA)IILC_XHIT|IL_CIE1IL_RIE; 

startcmd; 

is->is_lastcmd = csr 4 IL_CMD; 
addr->il_csr - csr; 
is->is_flags |- ILF_OACTIVE; 

} 

/* 

* Command done interrupt. 

*/ 

ilcint(unit) 

int unit; 

{ 

register struct il_softc *is - 4il_softc[unit]; 
struct uba_device *ui = ilinfo[unit]; 

register struct ildevice *addr - (struct ildevice *)ui“>ui_addr; 
short csr; 

MAPSAVE(); 

if ((is->is_flags 4 IIiF_OACTIVE) >=- 0) { 

printf("il%d: stray xmit interrupt, csr-%b\n", unit, 
addr->il_csr, IL_BITS); 
goto out; 

} 

csr - addr->il_csr; 

/* 

* Hang receive buffer if it couldn't 

* be done earlier (in ilrint). 
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if (is->is_flags & ILF_RCVPENDING) { 

addr~>il_bar - is->is_ifuba.ifu_r.ifrw__info & Oxffff; 
addr->il_bcr -= sizeof (struct ii_rheader) + ILMTU + 6; 
addr->il__csr =* 

((is->is_ifuba.ifu_r.ifrw_info » 2) & IL_EUA) | ILC_RC:v| IL_RIE; 
while {{addr->il_csr 6 IL_CDONE) 0) 

is->is_flags 4= ~ILF_RCVPENDING; 

} 

is->is_flags 4^-ILF_OACTIVE; 

csr 4= IL_STATUS; 
switch (is->is__lastc3ad} { 


case ILC_XMIT: 

is->is_if.if_opackets++; 
if (csr > ILERR_RETRIES) 

is“>is_if.if_oerrors++; 

break; 

case ILC_STAT: 

if (csr = ILERR_SUCCESS) 
iltotal(is); 

break; 

} 

if (is->is_ifuba.ifu__xtofree) { 

m_freem(is->is_ifuba.ifu_xtofree); 
is->is_ifuba.ifu_xtofree = 0; 

} 


out: 


} 


ilstart(unit); 
MAPRESTO ; 


/* 

* Ethernet interface receiver interrupt. 

* If input error just drop packet. 

* Otherwise purge input buffered data path and examine 

* packet to determine type. If can't determine length 

* from type, then have to drop packet. Othewise decapsulate 

* packet based on type and pass to type specific higher-level 

* input routine. 

*/ 

ilrint(unit) 

int unit; 


register struct il_softc *is - 4il_softc[unit]; 

struct ildevice *addr - (struct ildevice *)ilinfo[unit]->ui_addr; 

register struct il_rheader *il; 

struct rabuf *m; 

int len, off, resid; 

register struct ifgueue *inq; 


MAPSAVE(); 

is->is_if.if_ipackets++; 
if (is->is_ifuba.ifu_flags 4 UBA_NEEDBDP) 

UBAPURGE(is->is_ifuba.ifu_uba, is->is_ifuba.ifu_r.ifrw_bdp); 

#if Ipdpll 

il - (struct il_rheader *){is->is_ifuba.ifu_r.ifrw_addr); 

felse 

*aka5 - is->is_ifuba.ifu_r.ifrw_click; 
il =■ (struct il_rheader *)MBX; 

♦endif 

len “ il->ilr_length - sizeof(struct il_rheader); 

if ((il->ilr_status4(ILFSTAT_A|ILFSTAT_C)) M len < 46 I I len > ILMTU) { 
is->is_if.if_ierrors++; 

tifdef notdef 

if (is->is_if.if_ierrors % 100 == 0) 

printf (”il%d: +- 100 input errors\n*', unit) ; 

#endif 

goto setup; 

) 


/* 

* Deal with trailer protocol: if type is PUP trailer 

* get true type from first 16-bit word past data. 

* Remember that type was traile;r by setting off. 


*/ 

♦define ildataaddr(il, off, type) ((type)(((caddr_t)((il)+1)+(off)))) 

if (il->ilr_type >* ILPUP_TRAIL 44 

il->ilr_type < ILPUP_TRAIL+ILPUP_NTRAILER) { 
off - (il->ilr_type - ILPUP_TRAIL) * 512; 
if (off >= ILMTU) 

goto setup; /* sanity */ 

il->ilr_type - *ildataaddr(il, off, u_short *); 
resid = *(ildataaddr(il, off+2, u_short *)); 
if (off + resid > len) 

goto setup; /* sanity */ 

ieji s off + resid; 

) else 

off = 0; 
if (len — 0) 

goto setup; 

i* 

* Pull packet off interface- Off is nonzero if packet 

* has trailing header; ilget will then force this header 

* information to be at the front, but we still have to drop 

* the type and length which are at the front of any trailer data. 

*/ 

m - if_rubaget(4is->is_ifuba, len, off); 
if (m — 0) 

goto setup; 
if (off) { 

m->m_off += 2 * sizeof (u_short); 
m->m_len -= 2 * sizeof (u_short); 

} 

switch (il->ilr_type) { 

♦ifdef INET 

case ILPUP_IPTYPE; 

schednetisr(NETISR_IP); 
inq = 4ipintrq; 
break; 

♦endif 

default: 

m_f reera (m) ; 
goto setup; 

} 

if (IF_QFULL(inq)) { 

IF_DROP(inq); 
m_freem(m); 
goto setup; 

} 

IF_ENQUEUE(inq, m); 

setup: 

/* 

* Reset for next packet if possible. 

* If waiting for transmit command completion, set flag 

* and wait until command completes. 

*/ 

if (is->is_flags 4 ILF_OACTIVE) { 

is->is_flags 1= ILF_RCVPENDING; 
goto out; 

} 

addr->il_bar « is->is_ifuba.ifu_r.ifrw_info 4 Oxffff; 
addr->il_bcr -> sizeof (struct il_rheader) + ILMTU + 6; 
addr->il_csr » 

((is->is_ifuba.ifu__r.ifrw_info » 2) 4 IL_EUA) | ILC_RCV| IL_RIE; 
while ((addr->il_csr 4 IL_CDONE) — 0) 

out: 

MAPREST(); 


/* 

* Ethernet output routine. 

* Encapsulate a packet of type family for the local net. 

* Use trailer local net encapsulation if enough data in first 

* packet leaves a multiple of 512 bytes of data in remainder. 
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iloutput(ifp, mO, dst) 

struct ifnet *ifp; 
struct mbuf *m0; 
struct sockaddr *dst; 
f 

int type, s, error; 
long dest; 

register struct il__softc *is - 4il_softc[ifp->if__unit] ; 
register struct mbuf *ni = mO; 
register struct il_xheader *il; 
register int off; 

switch (dst“>sa_family) { 

fifdef INET 

case AF_INET: 

dest = ((struct sockaddr_in *)dst)->sin_addr.s_addr; 

off - ntohs( (u_short)iatod(m, struct ip *)“>ip_len) - m->m_len; 

if (off > 0 (off & Oxlff) =«■ 0 

ia->ni_aff >= MMINOFF + 2 * sizeof (u_short)) { 
type = ILPUP_TRAIL + (off»9) ; 
ra->ra_off — 2 * sizeof (u_short); 
m-->m_len += 2 * sizeof (u_short); 

*mtod(ra, u_short *) = ILPUP_IPTYPE; 

*(rated(m, u_short *) +1) = m->m_len; 
goto gottrailertype; 

} 

type = ILPUP_IPTYPE; 
off = 0; 
goto gottype; 

tendif 

default: 

printf(*'il%d: can't handle af%d\n*, ifp->if_unit, 
dst->sa_family) ; 
error = EAFNOSUPPORT; 
goto bad; 

} 

gottrailertype: 

/* 

* Packet to be sent as trailer: move first packet 

* (control information) to end of chain. 

*/ 

while (ra->ra_next) 

m •= m->m_next; 
m->m_next — mO; 
m “ raO->ra_next; 
m0->m_next *0; 
mO - m; 

gottype: 

/* 

* Add local net header. If no space in first mbuf, 

* allocate another. 

*/ 

if (m->ra_off > MMAXOFF |1 

MMINOFF + sizeof (Struct il_xhead€r) > m“>m_off) { 
m “ m_get(M_DONTWAIT); 
if (ra -- 0) ( 

error = ENOBUFS; 
goto bad; 

) 

m->m_next - raO; 
m->ra_off - MMINOFF; 

m->ra_len - sizeof (struct il_xheader); 

} else { 

ra->ra_off — sizeof (struct il_xheader); 
m->m_len +» sizeof (struct il_xheader); 

il - ratod(m, struct il_xheader *); 
if (in_lnaof (dest) »=- 0) 

bcopy(ilbroadcastaddr, il->ilx_dhost, 6); 

u_char *to - ntohl(dest) & 0x800000 2 

is“>is__stats. ils^addr : il^ectop; 


else ( 
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/* if_loop.c 4.13 */ 

/* 

* Loopback interface driver for protocol testing and timing. 

*/ 

^include "sys/param.h" 

^include "sys/config.h'* 

♦include "sys/errno.h" 

♦include "sys/types.h" 

♦include “sys/systra.h" 

♦include "net/misc.h" 

♦include "net/rabuf.h" 

♦include "net/socket.h" 

♦include "net/in.h" 

♦include "net/in_systm.h" 

♦include "net/if.h" 

♦include "net/ip.h" 

♦include "net/ip_var.h" 

♦include "net/route.h" 

♦include "errno.h" 

♦define LONET Qx7fOOQQOO 
♦define LOMTU (1024+512) 

struct ifnet loif; 
int looutput(); 

loattach() 

{ 

register struct ifnet *ifp - iloif; 
register struct sockaddr_in *sin; 

ifp->if__name = "lo"; 

ifp->if_mtu “ LOMTU; 

ifp->if_net = htonl((u_long)LONET); 

sin = (struct sockaddr_in *)&ifp->if_addr; 

sin->sin__family = AF_INET; 

/* 

sin->sin_addr = if_makeaddr ((u_long) ifp->if__net, (u__long)0); 
*/ 

sin->sin_addr •= if_makeaddr ((u_long) ifp->if_net, (u_long)l); 

ifp“>if_flags = IFF_UP; 

ifp->if_output = looutput; 

if_attach(ifp); 

if _rtinit(ifp, RTF_UP); 

} 

looutput(ifp, raO, dst) 

register struct ifnet *ifp; 
register struct rabuf *m0; 
register struct sockaddr *dst; 

{ 

register int s - splimp(); 
register struct ifqueue *ifq; 

ifp->if_opacket s++; 
switch (dst->sa_faniily) { 

♦ifdef INET 

case AF_INET: 

ifq - fcipintrq; 
if (IF_QFULL(ifq)) { 

IF_DROP(ifq); 
m_freem(m0); 
splx(s); 

return (ENOBUFS); 

) 

TF_ENQUEUE(ifq, mO); 
schednetisr(NETISR_IP); 
break; 

♦endif 

default: 

splx(s); 

printf(*'lo%d; can't handle af%d\n", ifp->if_unit, 
dst->sa__family) ; 


1 


m_freem(m0); 

return (EAFNOSUPPORT); 

} 

ifp->if_ipackets++; 
splx(s); 
return (0); 
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/* 

* structure of an Ethernet header. 


iinclude "net/misc.h" 

^include "sys/param.h" 
tinclude *'sys/config.h“ 

^include "sys/errno.h" 
finclude "sys/types.h" 

#include "sys/systm.h" 

#include "net/mbuf.h" 
tinclude "sys/buf.h" 
tinclude "net/protosw.h“ 
tinclude "net/socket.h" 
tinclude "sys/config.h" 
tinclude "sys/inmu.h** 
tinclude "sys/sysroacros.h" 
tinclude "net/ubavar.h" 
tinclude "errno.h" 

tinclude "net/if.h" 
tinclude "net/route.h" 
tinclude "net/in.h" 
tinclude "net/in_systin.h" 
tinclude "net/ip.h" 
tinclude "net/ip_var.h" 
tinclude "net/pup.h" 
tinclude •net/if_ether.h" 

/* 

* 3Com Ethernet controller registers. 

*/ 

struct medevice { 

u_short me_csr; /* control and status */ 

u_short me_back; /* backoff value */ 

u__char me_padl [0x400-2*2] ; 

u_char me_arom[6]; /* address ROM */ 

u_char me_pad2 [ 0x2 0Q-6] ; 

u_char me_arara[6]; /* address RAM */ 

u_char me_pad3[0x2 00-6]; 

u_char me_tbuf[2048]; /* transmit buffer */ 

u_char me_abuf[2048]; /* rmeeive buffer A */ 

u_char me_bbuf[2048]; /* receive buffer B */ 

1 ; 

/* 

* Control and status bits 
*/ 

tdefine ME_BBSW 0x8000 /* buffer B belongs to ether */ 

tdefine ME_ABSllf 0x4000 /* buffer A belongs to ether */ 

tdefine ME_TBSW 0x2000 /* transmit buffer belongs to ether */ 

tdefine ME_JAM 0x1000 /* Ethernet jammed (collision) */ 

tdefine ME_AMSW 0x0800 /* address RAH belongs to ether */ 

tdefine ME__RBBA 0x0400 /* buffer B older than A */ 

tdefine ME_RESET 0x0100 /* reset controller */ 

tdefine ME_BINT 0x0080 /* buffer B interrupt enable */ 

tdefine ME_AINT 0x0040 /* buffer A interrupt enable */ 

tdefine ME_TINT 0x0020 /* transmitter interrupt enable */ 

tdefine ME_JINT 0x0010 /* jam interrupt enable */ 

tdefine ME_PAMASK 0x000f /* PA field */ 

/* with old VAX 4.1a, keep range errors, since vax sends too-small packets. */ 
tdefine ME_PA_OLDVAX 0x0008 /* receive mine+broadcast-(fcs+frame)*/ 

tdefine HE_PA 0x0002 /* all- fcs and frame errors */ 

!* 

* Receive status bits 
*/ 

tdefine ME_FCSERR 0x8000 /* FCS error */ 

tdefine ME_BRQADCAST 0x4000 /* packet was broadcast packet */ 

tdefine »ffi_RGERR 0x2000 /* range error */ 

tdefine ME_ADDRMATCH 0x1000 /* address match */ 

tdefine ME^FRERR 0x0800 /* framing error */ 


tdefine ME DOFF 


0x07ff 


/* first free byte */ 


tdefine MERDOFF 2 

tifdef notdef 

tdefine MEMAXTDOFF (2048-60) 

tendif 

tdefine MEMAXTDOFF (2048-512) 

tdefine NME 1 
/* 

* 3Com Ethernet Controller interface 
*/ 

tdefine MEMTU 1500 

int nulldev(), meattach(), meintr{); 
struct uba_device *meinfo[NHE]; 


struct uba_driver medriver - { 

nulldev, meattach, (u_short * )0, meinfo 

}; 

tdefine MEUNIT(x) minor(x) 

int meinit(),meoutput(),mewatch(); 

struct mbuf *meget(); 

extern struct ifnet loif; 

tifdef HAS8259 
tdefine ME_EOI 2 
int meeoi = HE_EOI; 
tendif 

/* 

* Ethernet software status per interface. 

* 

* Each interface is referenced by a network interface structure, 

* es_if, which the routing code uses to locate the interface. 

* This structure contains the output queue for the interface, its address, ... 
*/ 

struct me_softc { 

struct arpcom es_ac; /* common Ethernet structures */ 

^define es_if es_ac.ac_if /* network-visible interface */ 

tdefine es_enaddr es_ac.ac_enaddr /* hardware Ethernet address */ 

short es_mask; /* mask for current output delay */ 

short es_oactive; /* is output active? */ 

} me_softc[NME]; 

/* 

* Interface exists: make available by filling in network interface 

* record. System will initialize the interface when it is ready 

* to accept packets. 

*f 

meattach(md) 

struct uba_device *rad; 

{ 

struct me_softc *es * &me_softc[md->ui_unit]; 
register struct ifnet *ifp - &es->es_if; 
register struct medevice *addr; 
struct sockaddr_in *sin; 
int i; 

u_char *cp, *ap; 
char *memap(); 

/* map controller into kernel space for Unisoft. memap is in config.c */ 
addr - (struct medevice *) memap((int)md->ui_addr, btoc(8192)); 

/* replace the value of ui_addr for everyone else. */ 
md->ui_addr - (caddr_t)addr; 

lfp->if_unit - md->ui_unlt; 
ifp->if_name - '•me"; 
ifp->if_mtu “ MEMTU; 


/* packet offset in read buffer */ 
/* max packet offset (min size) */ 
/* max packet offset (min size) */ 
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ifp->if_net - ind->ui_flags & OxffOOOOOO; 
if (* iocheclc ((caddr_t) addr)) { 

printf (''**\nCoiild not find me%d; am not initializing network device...**\n“, 
ifp->if_unit); 

return; 

} 


* Initialize the address RAM 
*/ 

cp - es->es_enaddr; 
ap ** addr->me_aram; 
for (i - 0; i < 6; i++) 

*ap++ “ *cp++; 
addr->me_csr |- ME_AMSW; 


addr->me_csr 1= HE_RESET; /* reset the board */ 

medelay(l); /* wait for it to reset (1 sec) */ 

/* 


/* 

* Hang receive buffers and start any pending writes. 
*/ 


* Read the ethsrnet address off the board, one byte at a time. 

*/ 

cp =- es->es_enaddr; 

ap - addr->me_arom; 

/* check for mem. board mistakenly mapped to same addr. as me */ 

if ((*ap - 'gM 'g') { 
printf ( 

''\n**Able to write the rom on me%d; probable memory addressing confilct.**\nNot initializing interface.\n\n", 
return; 

} 

for (i = 0; i < 6; i++) } 

*cp++ = *ap++; 

printf("Ethernet address = /* 


addr->me_csr != ME_ABSW|ME_AINT!ME_BBSW!ME_BINT 
j ME_PA_OLDVAX; 
es~>es_oactive =0; 
es->es_mask - ~0; 

es->es_if.if_flags |= IFF_UP|IFF_RUNNING; 
if (es->es_if.if_snd.ifq_head) 
mestart(unit); 

splx(s); 
ifp^“>if_unit) ; 

if_rtinit(&es->es_if, RTF_UP); 

arpattach(ies“>es_ac); 

arpwhohas(&es->es_ac, &sin->sin_addr); 


char * p “ 4es->es_enaddr[0]; 
int i, j =» 0; 
char buf[14]; 

for (i = 0; i < 6; i ++) { 

buf[j++j = "0123456789ABCDEF«[((*p » 4)&0xf)]; 
buf[j++] - "0123456789ABCDEF''[ ((*p++)40xf) ]; 

} 

buf[j++] - '\n'; 
buf[j] = 0; 
printf(buf); 

} 

sin = (struct sockaddr_in *)4es->es_if.if_addr; 
sin->sin_family = AF_INET; 


* Start or restart output on interface. 

* If interface is already active, then this is a retransmit 

* after a collision, and just restuff registers. 

* If interface is not already active, get another datagram 

* to send off of the interface queue, and map it to the interface 

* before starting the output. 

*/ 

mestart(dev) 

register dev_t dev; 

{ 

register int unit = HEUNIT(dev); 
register struct rae_softc *es 4rae_softc[unitl; 
register struct medevice *addr; 
register struct mbuf *m; 


addr «= (struct medevice *)meinfotunit]“>ui_addr; 

/* this is a way to set addresses for now (without an ioctlO) */ if (es->es_oactive) 

sin->sin_addr.s_addr = (u_long)md->ui_flags; goto restart; 

mesetaddr(ifp, sin); 


ifp'->if_init - meinit; 
ifp->if_output = meoutput; 
ifp->if_watchdog = mewatch; 
if_attach(ifp); 


IF_DEQUEUE (4es^>es_if. if__snd, m) ; 
if (m — 0) { 

es->es_oactive » 0; 
return; 

} 


} 

mewatch() 


meput (addr->rae_tbuf, m); 

addr->me_csr |= ME_TBSW|ME_TINT|ME_JINT; 


restart: 


/* 

* Initialization of interface; clear recorded pending 

* operations. 

*/ 

meinit(unit) 

int unit; 

( 

struct me_softc *es = 4me_softc[unit]; 
register struct ifnet *lfp = 4es->es_if; 
register struct sockaddr_in *sin; 
struct medevice *addr; 
int i, s; 
u_char *cp, *ap; 

sin - (struct sockaddr_in *)4ifp->if_addr; 

if (sin->sin_addr.s_addr — 0) /* address still unknown */ 

return; 

if ((es“>e3_if.if_flags 4 IFF_RUHNING) “ 0) { 

addr - (struct medevice *)meinfo[unit]->ui_addr; 
s - splimp(); 

/* 


es->es__oactive - 1; 

} 

/* 

* Ethernet interface interrupt. 

* If received packet examine 

* packet to determine type. If can't determine length 

* from type, then have to drop packet. Othewise decapsulate 

* packet based on type and pass to type specific higher-level 

* input routine. 

*/ 

meintr() 

{ 

register struct me_softc *es; 
register struct medevice *addr; 
register int unit; 
extern short netoff; 

register unsigned short meenables = 0; 

if (netoff) 

return; 

(void) spinet(); 
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for (unit = 0; unit < NME; unit++) { 
es - 4ine_softc[unit]; 

addr - (struct medevice *)meinfoIunit]’->ui_addr; 
switch (addr->me_csr & (ME_ABSW|ME_BBSW|ME_RBBA)) { 
case ME_ABSW: 
case ME_ABSW1ME_RBSA: 

/* BBSW ==0, receive B packet */ 
addr->rae_csr 4= ~ME_BINT; 
nieread(es, addr“>iae_bbuf) ; 
addr->me_csr 1= ME_BBSW|ME_BINT; 
break; 

case HE_BBSW: 

case ME_BBSW|ME_RBBA: 

/* ABSW -“0, rmeeive A packet */ 
addr->me_csr 4- ~ME_AINT; 
meread(es, addr->me_abuf); 
addr->me_csr 1- ME_ABSW|ME__AINT; 
break; 

case ME_RBBA: 

/* ABSW = 0, BBSW = 0, RBBA, receive B, then A */ 

addr->me_csr 4- ~(ME_AINT|ME_BINT); 

meread(es, addr->me_hbuf); 

addr->me_csr |- ME_BBSW|ME_BINT; 

meread (es, addr“>itte_abuf); 

addr->me_csr != ME_ABSW|ME_AINT; 

break; 

case 0: 

/* ABSW =“ 0, BBSW -= 0, RBBA 0, receive A, then B */ 

addr->me_csr 4= ~(ME_AINT|ME_BINT); 

meread(es, addr->me_abuf) ; 

addr->me_csr 1= ME_ABSW|ME_AINT; 

meread(es, addr->me_bbuf); 

addr->me_csr |- HE_BBSW|ME_BINT; 

break; 

case ME_ABSW|ME_BBSW: 

case ME_ABSW|HE_BBSW1ME_RBBA: 

/* no input packets */ 

addr->me_csr 4^-(ME_AINT | ME_BINT) ; 

addr->me_csr 1= HE_AINT|ME_BINT; 
break; 

default; 

panic(“meintr: impossible value"); 

/* NOT REACHED */ 

} 

} /* end of "for unit" */ 

for (unit - 0; unit < NME; unit++) { 
es = 4me_softc[unit]; 

addr = (struct medevice *)meinfo[unit]->ui_addr; 

if (es->es_oactive =” 0) 
continue; 

if (addr->m6_csr 4 ME_JAM) { 

/* 

* Collision on ethernet interface. Do exponential 

* backoff, and retransmit. If have backed off all 

* the way print warning diagnostic, and drop packet. 

*/ 

es->e3_if.if_collisions++; 
medocoll(unit); 
continue; 

) 

if ((addr->me_csr 4 ME_TBSW) -- 0) ( 

addr->me_csr &= ~(ME_TINT!ME_JINT); 
es->es_if . if_opackets^-+; 
es->es_oactive “ 0; 
es->es_mask « ~0; 
if (es->es_if.if_snd.ifq_head) 
mestart(unit); 

) 

) /* end of "for unit" "/ 


#ifdef HAS8259 

/* try to force level change by exciting current ints on bd */ 
meenables - addr->me_csr 4 (ME_TINT|ME_AINT|ME_BINT|ME_JINT); 
addr->me_csr 4“ -meenables; 
sendeoi(meeoi); 
addr->me_csr 1-= meenables; 

#endif 

return ; 

} 

meread(es, mebuf) 

register struct me_softc *es; 
register caddr_t mebuf; 

{ 

register struct ether_header *me; 
register struct mbuf *m; 
register int len, off, meoff; 
short resid; 

register struct ifqueue *inq; 

/* 

int i; 

printf("mer."); 

me =■ (struct ether_header *) (mebuf + MERDOFF) ; 

printf("s:"); 

for (i = 0; i < 6; i++) 

printf("%x.",me“>rae_shost[i]40xff); 
printf(" "); 

printf("d:"); 
for (i = 0; i < 6; i++) 

printf("%x.",me->me_dhost[i]40xff); 

*/ 

es->es_if.if_ipackets++; 
meoff = *(short *)mebuf; 

if(meoff 4 (ME_FRERR|HE_RGERR|ME_FCSERR)) 
goto err; 

meoff 4= ME_DOFF; 

if (meoff <” MERDOFF 1 I meoff > 2046) { 

err; 

es->es_if.if_ierrors++; 
return; 

} 

/* 

* Get input data length. 

* Get pointer to ethernet header (in input buffer). 

* Deal with trailer protocol: if type is PUP trailer 

* get true type from first 16-bit word past data. 

* Remember that type was trailer by setting off. 

*/ 

len ^ meoff - MERDOFF - sizeof (struct ether_header) - 4; /* 4 =*= FCS */ 
me - (struct ether_header *)(mebuf + MERDOFF); 

♦define medataaddr(me, off, type) ((type)(((caddr_t)((me)+1)+(off)))) 

if (rae->ether_type >= ETHERPUP_TRAIL 44 

rae->ether_type < ETHERPUP_TRAIL+ETHERPUP_NTRAILER) { 
off - (me->ether_type - ETHERPUP_TRAIL) * 512; 
if (off >” MEMTU) 

return; /* sanity */ 

me->ether_type - *medataaddr(me, off, u_short *); 
resid - *(medataaddr(me, off+2, u_short *)); 
if (off + resid > len) 

return; /* sanity */ 

len -> off + resid; 

} else 

off - 0; 
if (len — 0) 

return; 

/* 
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* Pull packet off interface. Off is nonzero if packet 

* has trailing header; meget will then force this header 

* information to be at the front, but we still have to drop 

* the type and length which are at the front of any trailer data. 
*/ 

m = meget(mebuf, len, off); 
if (m = 0) 

return; 
if (off) { 

m->m_off += 2 * sizeof (u_short); 
m->m_len — 2 * sizeof (u_short); 

} 

switch (me“>ether_type) { 

tifdef INET 

case ETHERPUP_IPTYPE: 

schednetisr(NETISR_IP); 
inq - iipintrq; 
break; 

case ETHERPUP_ARPTYPE; 

arpinput(4es->es_ac, m); 
return; 

tendif 

default: 

m_freem (m) ; 
return; 

} 

if (IF_QFULL(inq)) { 

IF_DROP(inq); 
m_freem(m); 
return; 

} 

IF_ENQUEUE(inq, m); 


medocoll(unit) 

int unit; 
i 

register struct me__softc *es = &ffie_50ftctunit) ; 
register struct medevice *addr = 

(struct medevice *) me info [unit ]-->ui_addr; 
int delay; 

/* 

* Es_mask is a 16 bit number with n low zero bits, with 

* n the number of backoffs. When es_mask is 0 we have 

* backed off 16 times, and give up. 

*/ 

if (es->es_mask “= 0) { 

es“>es_if.if_oerrors++; 
printf( 

“\nme%d: 16 collisions detected on ethernet. Dropping current packet... \n\n'', 
unit); 

/* 

* Reset and transmit next packet (if any). 

*/ 

es“>es__oactive = 0; 
es->es_mask = -0; 
if (es->es_if.if_snd.ifq_head) 
mestart(unit); 

return; 

} 

/* 

* Do exponential backoff. Compute delay based on low bits 

* of the time. A slot time is 51.2 microseconds (rounded to 51). 

* This does not take into account the time already used to 

* process the interrupt. 

*/ 

es->es_mask «= 1; 

delay (timetOxffff) es->es_mask; 

addr->rae_back “ delay * 51; 
addr->rae_csr I- ME_JAM|ME_JINT; 


/* 

* Ethernet output routine. 

* Encapsulate a packet of type family for the local net. 

* Use trailer local net encapsulation if enough data in first 

* packet leaves a multiple of 512 bytes of data in remainder. 

* If destination is this address or broadcast, send packet to 

* loop device to kludge around the fact that Scorn interfaces can't 

* talk to themselves. 

*/ 

meoutput(ifp, mO, dst) 

register struct ifnet *ifp; 
register struct mbuf *ra0; 
register struct sockaddr *dst; 

int type, s, error; 
u_char edst[61; 
struct in_addr idst; 

register struct me_softc *es “ ime_softc[ifp->if_unit3; 
register struct mbuf *m = mO; 
register struct ether_header *me; 
register int i; 

struct mbuf *mcopy “ (struct mbuf *) 0; /* Null */ 

s =• spinet () ; 

switch (dst->sa_family) { 

iifdef INET 

case AF_INET; 

idst - ((struct sockaddr_in *)dst)->sin_addr; 
if (larpresolve(ies->es_ac, m, &idst, edst)) 

return (0); /* if not yet resolved */ 

if (in_lnaof(idst) -= INADDR_ANY) 

mcopy - m_copy(m, 0, (int)M_COPYALL); 
type “ ETHERPUP_IPTYPE; 
goto gottype; 

i'endif 

case AF_UNSPEC: 

me ” (struct ether_header *)dst-->sa_data; 

bcopy((caddr_t)me->ether_dhost, (caddr_t)edst, sizeof (edst)); 
type - me->ether_type; 
goto gottype; 

default: 

printf (•'rae%d: can't handle af%d\n", ifp->if_unit, 
dst->sa_family); 
error * EAFNOSUPPORT; 
goto bad; 

} 

gottype: 

/* 

* Add local net header. If no space in first mbuf, 

* allocate another. 

*/ 

if (m->m_off > MMAXOFF 1 1 

MMINOFF + sizeof (struct ether_header) > m->m_off) { 
m - m_get(M_DONTWAIT); 
if (m =” 0) { 

error •= ENOBUFS; 
goto bad; 

) 

m->m_next - mO; 
m->ra_off ” MMINOFF; 

m-'>m_len ” sizeof (struct ether_header) ; 

} else { 

m->ra_off — sizeof (struct ether_header); 
m->m_len +- sizeof (struct ether_header); 

} 

me - rated(ra, struct ether_header *); 

bcopy((caddr_t)edst, (caddr_t)me->ether_dhost, sizeof (edst)); 
me->ether_type - htons((u_short)type); 

bcopy((caddr_t)es->es_enaddr, (caddr_t)rae->ether_sh09t, 6); 

/* 

* Queue message on interface, and start output if interface 

* not yet active. 
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*/ 

s ” spliiap () ; 

if (IF_QFULL{&ifp->if_snd)) { 

IF_DROP(&ifp->if_snd); 
error = ENOBUFS; 
goto qfull; 

} 

IF_ENQUEUEUifp->if_snd, m); 
if (es->es_oactive ■=“ 0) 

mestart (ifp->if_tmit); 

splx(s); 
gotlocal: 

return(mcopy 2 looutput(&loif, mcopy, dst) ; 0); 


qfull: 

mO ” ra; 

bad: 

m_freeia{mO) ; 
splx(s); 
return(error); 

} 

/* 

* Routine to copy from mbuf chain to transmitter 

* buffer in Multibus memory. 

*/ 

meput(mebuf, m) 

register u_char *mebuf; 
register struct mbuf *m; 

{ 

register struct mbuf *mp; 
register short off; 
register u_char *bp; 
register flag - 0; 

for (off - 2048, mp - m; mp; mp - rap->m_next) 
off -== mp~>m_len; 

if (off > MEHAXTDOFF) /* enforce minimum packet size */ 

off - MEHAXTDOFF; 

if (off & 01) { 
off—; 
flag++; 


*(u_short *)mebuf = off; 

bp = (u_char *)(mebuf + off); 

for (mp - m; mp; mp - mp->m_next) { 

register unsigned len = mp->m_len; 
u_char *mcp; 

if (len =»=• 0) 

continue; 

mcp = mtod{mp, u_char *); 
bcopy(mcp, bp, (int)len); 
bp += len; 

} 

/* 

if ((Off & 01) (Off > (2048-70))) 

{int i; int j; printf ("meput (%x):\n". Off) ;for(j”Q; j<4; j++) {for (i-0;i<16;i++)printf (''%x 
*/ 


if (flag) 

*bp -O; 

m_freem(m); 

} 

/* 

* Routine to copy from Multibus memory into mbufs. 

* 

* Warning: This makes the fairly safe assumption that 

* mbufs have even lengths. 

*/ 


struct mbuf * 

meget(mebuf, totlen, offO) 

register u_char *mebuf; 
register int totlen, offO; 

{ 

register struct mbuf *m; 
struct mbuf *top = 0, **mp -» &top; 
register int off -= offO, len; 
register u_char *cp; 


cp “ mebuf + HERDOFF + sizeof (struct ether_header); 

/* 

{int i; int j; printf ("meget:\n") ;for(j-0;j<6;j++) {for (i-0;i<16;i++)printf(*»%x 
*/ 

while (totlen >0) { 
u_char *mcp; 


bad: 


1 


MGET(m, 0); 
if (m -= 0) { 

goto bad; 

} 

if (off) { 

len “ totlen - off; 

cp =■ mebuf + MERDOFF + sizeof (struct ether_header) + off; 

} else 

len “ totlen; 

m->m_len = len “= MIN (MLEN, len) ; 
m->m_off = HMINOFF; 
mcp mtod (m, u_char *); 
bcopy(cp, mcp, len); 
cp +- len; 

*mp * m; 

rap = 4m->ra_next; 
if (off -= 0) { 

totlen len; 
continue; 

} 

off +“ len; 

if (off == totlen) { 

cp = mebuf + MERDOFF + sizeof (struct ether_header); 
off = 0; 
totlen = offO; 

} 

} 

return (top); 


m_freem(top); 
return (0); 


/* medelay — wait about tira secs */ 
medelay(tim) 
register tim; 

{ 

register i; 

while (tira—) { 

i = 100000; 
while (i—) 


} 

(((char *) (off+*ebuf)) [i+16*j]) &0xff)/printf (''Xn");}} 

mesetaddr(ifp, sin) 

register struct ifnet *ifp; 
register struct sockaddr_in *sin; 

( 


ifp->if addr - ‘(struct sockaddr *)sin; 
ifp->if_net -* in_netof {sin->sin_addr) ; 
ifp->if_host[0] - in_lnaof(sin->sin_addr); 
sin - (struct sockaddr_in *)4ifp->if_broadaddr; 
sin->sin_faraily — AF_INET; 

sin->sin_addr - if_makeaddr(ifp->if_net, INADDR_ANY); 
ifp->if_flags I- IFF_BROADCAST; 
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/* e(#)iget.c 1.4 */ 

^include "sys/param.h" 

#include "sys/types.h" 

^include "sys/sysitiacros.h" 

^include "sys/systm.h" 

4include "sys/sysinfo.h" 

4include "sys/mount.h" 

4include "sys/dir.h" 

4include "sys/signal.h" 

4include "sys/user.h" 

4include "sys/errno.h" 
finclude "sys/inode.h" 

4include "sys/file.h" 

4include "sys/ino.h" 

4include "sys/filsys.h" 

4include "sys/buf.h" 

4include "sys/var.h" 

/* 

* Look up an inode by device, iniunber. 

* If it is in core (in the inode structure), honor the locking protocol. 

* If it is not in core, read it in from the specified device. 

* If the inode is moxinted on, perform the indicated indirection. 

* In all cases, a pointer to a locked inode structure is returned. 

* printf warning: no inodes — if the inode structure is full 

* panic: no imt — if the mounted filesystem is not in the mount table. 

* "cannot happen" 

*/ 

4define NHINO 128 /* must be power of 2 */ 

4define ihash(X) (4hinode[(int)(X) & (NHINO-l)3) 

struct hinode { 

struct inode *i_forw; 

) hinode[NHINOl; 
struct inode *ifreelist; 

struct inode * 
iget(dev, ino) 
dev_t dev; 
ino_t ino; 

{ 

register struct inode *ip; 
register struct hinode *hip; 
register struct mount *mp; 
struct inode *iread(); 

sysinfo.iget++; 

loop: 

hip = ihash(ino); 

for (ip = hip“>i_forw; ip; ip = ip“>i_forw) 

if (ino -*= ip->i_nuraber && dev = ip->i_dev) 
goto■found; 

if ((ip = ifreelist) “ NULL) { 

printf("Inode table overflow\n"); 
syserr.inodeovf++; 
u.u_error = ENFILE; 
return(NULL); 

} 

ifreelist - ip->i_forw; 
if (ip->i_forw -= hip->i_forw) 

ip“>i_forw->i_back - ip; 
ip“>i_back - (struct inode *)hip; 
hip->i_forw - ip; 
ip“>i_dev =• dev; 
ip->i_nuraber *= ino; 
ip->i_flag - ILOCK; 
ip->i_count++; 
ip->l_lastr - 0; 
return(iread(ip)); 

found; 

if((ip->i_flag4ILOCK) 0) { 
ip->i_flag |- IWANT; 

(void) sleep((caddr_t)ip, PINOD); 
goto loop; 



inoinit() 

register struct inode *ip; 
register short i; 


ifreelist - ip = sinodelOJ; 
i = v.v_inode - 1 - 1; 
do { 

” ip+1; 

ip++; 

} while (—i !“ -1); 

4ifdef notdef 

register i = v.v_inode; 


while (—i) 

inode[i-13.i_forw - &inode[i]; 
ifreelist - 4inode[0]; 

4endif 

} 


struct inode * 
iread(ip) 

register struct inode *ip; 

register char *pl, *p2; 
register struct dinode *dp; 
struct buf *bp; 
register short i; 


pp “ bread(ip->i_dev, FsITOD(ip“>i_dev, ip->i_number)); 
if (u.u_error) { 

brelse(bp); 
iput(ip); 
return(NULL); 

) 

dp - bp“>b_un.b_dino; 

dp += FsITOO(ip->i_dev, ip->i_number); 

ip->i_mode dp->di_raode; 

ip->i_nlink = dp->di_nlink; 

ip->i_uid - dp->di_uid; 

ip->i_gid - dp->di_gid; 

ip->i_size = dp->di_size; 

pi - (char *)ip->i_addr; 

p2 “ (char *)dp->di_addr; 

i “ NADDR - 1; 

do { 

*pl++ - 0; 

*pl++ “ *p2++; 

*pl++ - *p2++; 

*pl++ - *p2++; 

} while (—i i-1); 

brelse(bp); 
return(ip); 


/* 

* Decrement reference count of an inode structure. 

* On the last reference, write the inode out and if necessary, 

* truncate a,nd deallocate the file. 
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*/ 

iput(ip) 

register struct inode *ip; 

{ 

if{ip“>i_count =1) { 

ip->i_flag I- ILOCK; 
if(ip->i_nlink <= 0) { 
itrunc(ip); 
ip->ijtiode •= 0; 
ip->i_flag |- lUPDIICHG; 
ifree(ip->i_dev, ip->i_nuffiber); 

} 

if(ip->i_flag4(lACC1lUPD|ICHG)) 

iupdat(ip, itime, itime); 
prele(ip); 

if (ip->i_back->i_forw * ip->i_forw) 

ip“>i_forw->i_back - ip“>i_back; 
ip->i_forw = ifreelist; 
ifreelist « ip; 
ip->i_flag - 0; 
ip-->i_nmnber = 0; 
ip->i_count “ 0; 
return; 

} 

ip->i_count—; 
prele(ip); 

} 

/* 

* Update the inode with the current time. 

*/ 

iupdat(ip, ta, tm) 
register struct inode *ip; 
time_t *ta, *tm; 

{ 

register struct buf *bp; 
struct dinode *dp; 
register char *pl; 
char *p2; 
register short i; 

if(getfs(ip->i_dev)->s_ronly) { 

if(ip->i_flag4(lUPD|ICHG)) 
u.u__error = EROFS; 

ip->i_flag 4= ~(lACC|lUPD1ICHG|ISYN); 
return; 

} 

bp =■ bread (ip->i_dev, FsITOD{ip-’>i_dev, ip->i_number)); 
if (bp“>b_flags 4 B_ERROR) { 
brelse(bp); 
return; 

) 

dp = bp->b_un.b_dino; 
dp +=■ FsITOO(ip->i_dev, ip->i_nuinber) ; 
dp->di_niode = ip->i_mode; 
dp->di_nlink - ip->i_nlink; 
dp->di_uid - ip->i_uid; 
dp->di_gid = ip->i_gid; 
dp->di_size - ip->i_size; 
pi - (char *)dp->di_addr; 
p2 « (char *)ip->i_addr; 
if ((ip->i_mode4lFMT)“”IFIFO) ( 
i « NFADDR - 1; 
do { 

if (*p2++ != 0) 

printf(“iaddress > 2^24\n“); 

*pl++ - *p2++; 

*pl++ - *p2++; 

*pl++ - *p2++; 

} while (—i !- -1); 
i - NADDR - NFADDR - 1; 
if (i >- 0) { 
do { 

*pl++ - 0; 

*pl++ “ 0; 
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register daddr_t *bap; 
daddr_t nb; 

bp - NULL; 

for (i=FsNINDIR(dev)-l; i>=0; i—) { 
if (bp — NULL) { 

bp - bread(dev, bn); 
if (bp->b_flags & B_ERROR) { 
brelse(bp); 
return; 

} 

bap bp->b_un = b_daddr; 

} 

nb "• bap[i] ; 
if(nb — (daddr_t)0) 
continue; 

if(fl) { 

brelse(bp); 
bp = NULL; 

tloop(dev, nb, f2, 0); 

} else 

free(dev, nb); 

} 

if(bp != NULL) 

brelse(bp); 
free(dev, bn); 


!* 

* Ma)ce a new file. 

*/ 

struct inode * 
maknode(mode) 
register mode; 

{ 

register struct inode *ip; 

if ((modeilFMT) — 0) 
mode I” IFREG; 
mode S” ~u.u_cmask; 

ip = ialloc(u.u__pdir->i_dev, mode, 1); 
if (ip = NULL) { 

iput(u.u_pdir); 
return(NULL); 

} 

wdir(ip); 
return(ip); 

) 

/* 

* Write a directory entry with parameters left as side effects 

* to a call to namei. 

*/ 

wdir(ip) 

struct inode *ip; 

{ 

register struct user *up; 
up - &u; 

up->u_dent. d_ino - ip->i_nuinber; 
up->u_count - sizeof(struct direct); 
up“>u_segflg - 1; 

up“>u_base = (caddr_t)&up->u_dent; 
up-->u_fraode - FWRITE; 
writei(up~>u_pdir); 
iput(up->u_pdir); 


) 
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/* in.c 4.3 82/06/20 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"sys/param.h" 

"sys/config.h" 

■sys/errno.h" 

"sys/types.h" 

"sys/systm.h" 

"net/misc.h" 

"net/inbuf .h" 

"net/protosw.h" 
"net/socket.h" 
"net/socketvar.h" 
"net/in.h" 
"net/in__systm.h" 
"net/if.h" 
"net/route.h" 
"net/af.h" 


*/ 


♦ifdef INET 
inet_hash(sin, hp) 

register struct sockaddr_in *sin; 
struct afhash *hp; 

{ 

♦ifdef ELEVEN 
long 1; 

1 =■= in__netof (sin->sin_addr) ; 

hp->afh_nethash = ((int)l ^ (int) (1»16)) & 077777; 

1 - sin->sin_addr.s_addr; 

hp->afh_hosthash = ((int)l ^ (int){l»16)) & 077777; 
if (hp->afh_hosthash < 0) 

hp->afli_hosthash = -hp->afh_hosthash; 

♦endif 

hp->afh_nethash = in_netof(sin->sin_addr); 
hp->afh_hosthash »= ntohl{sin“>sin__addr.s_addr); 


/* 

* Return the local network address portion of an 

* internet address; handles class a/b/c network 

* number formats- 
*/ 

u_long 
in_lnaof(in) 

struct in_addr in; 

{ 

return (IN_LNAOF(in)); 

) 

/* 

* Initialize an interface's routing 

* table entry according to the network. 

* INTERNET SPECIFIC. 

*/ 

if_rtinit(ifp, flags) 

register struct ifnet *ifp; 
int flags; 

{ 

struct sockaddr_in sin; 

if (ifp->if_flags & IFF_ROUTE) 
return; 

bzero ((caddr__t) 4sin, sizeof (sin)); 
sin. sin_faiaily - AF_INET; 
sin.sin_addr = if_makeaddr((u_long)ifp“>if_net, 
rtinit((struct sockaddr *)&sin, &ifp->if_addr, 

} 

♦endif 


1 

inet_netmatch(sinl, sin2) 

struct sockaddr_in *sinl, *sin2; 

{ 

return (in_netof(sinl->sin_addr) == in_netof(sin2->sin_addr)) ; 

} 


/* 


* Formulate an Internet address from network + host. 

* building addresses stored in the ifnet structure. 
*/ 

struct in_addr 
if_rakaddr(net, host) 

u_long net,host; 

{ 

u_long addr; 


Used in 


addr =• htonl(host) | net; 
return (*(struct in_addr *)&addr); 

} 

/* billn — for transition */ 

♦undef if_raakeaddr(x,y) 
struct in_addr 
ifjnakeaddr(n, h) 

u_long n, h; 

{ 

return (if_mkaddr(n, h)); 


/* 

* Return the network number from an internet 

* address; handles class a/b/c network ♦'s. 
*/ 

u_long 
in_netof(in) 

struct in_addr in; 

return (IN_NETOF(in)); 


(u_long)0) 
flags); 
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♦include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/errno.h” 

♦include "sys/tyxjes .h" 

♦include ••sys/systia.h" 

♦include "net/iaisc.h" 

♦include "net/inbuf .h" 

♦include "net/in.h“ 

♦include *'net/in_systin.h'' 

♦define M68000 

♦define bswap(x) (((((int) (x))»8) sQxff) ! ((((int) (x)) fiQxff) «8)) 

/* 

* Checksum routine for Internet Protocol family headers. 

* This routine is very heavily used in the network 

* code and should be rewritten for each CPU to be as fast as possible. 

* 

* billn: This shows the main outline for a prospective algorithm on 

* a prospective machine. I suppose one could try to outline 

* general guidelines for writing this routine, ie, if the machine 

* is byte-swapped, etc, etc. In practice, what one does is find 

* a machine which is known to conform to the "standard" and 

* beat on the code of the new machine till it works with the 

* known ok machine. 

*/ 

/* int in_ckodd; /* number of calls on odd start add */ 

/* int in_ckprint =0; /* print sums */ 

/* 68k *f 
union w { 

unsigned short wword; 
unsigned char wchar[2]; 

}; 

in_cksum(m, len) 
register struct mbuf *m; 
register short len; 

{ 

register unsigned short *ptr; /* "unsigned" is important... */ 

register short mien - 0; 

register long result = 0; 

register unsigned short r; 

register char * cptr; 

register unsigned short wasodd; 

register unsigned short thisodd; 

union w w; 

extern short tcpcksum; 
extern short ipcksum; 

I* 

if (in_ckprint) printf("ck m%o l%o",m,len); 

*/ 

if (itcpcksum) /* not checksiamming? */ 
if {!ipcksum) 
return 0; 
wasodd - 0; 
for (;;) { 

/* 

* Each trip around loop adds in 

* words from one mbuf segment. 

V 

thisodd - 0; 

ptr “ rated(m, unsigned short *); 
mien ra->ra__len; 
if (len < mien) 

mien - len; 
len — mien; 
if (mien >0) { 

if (wasodd) { !* "last mbuf odd" code... */ 

cptr “ (char *)ptr; 
w.wchar[l] » *cptr++; 
result +- w.wword; 
while (—mien) { 

w.wchar[0] >» *cptr++; 
mien—; 


lastbyte: 


nextbuf: 


if (mien) { 

w.wchar[l] = *cptr++; 
result +- w.wword; 

} 

else 

/* note wasodd still set */ 
goto nextbuf; /* next mbuf */ 

} 

wasodd - 0; 

goto nextbuf; /* next mbuf */ 

/* main line... check odd byte count */ 
if(mien t 01) { 

thisodd++; 
mien—; 

if (mien = 0) 

goto lastbyte; 

} 

/* make wc a word count */ 
mien »= 1; 

/* 

* this is the main loop of the algorithm. 

*/ 

mien -= 1; 
do { 

result += *ptr++; 

} while(—mien I- -1); 
if (thisodd) { 

wasodd++; 

cptr “ (char *) ptr; 
w.wchar[0] - *cptr-i-+; 

) 

else 


if (len <“ 0) 
break; 


ra = m->m_next; 

/* 

* Locate the next block with some data. 

*/ 

for (;;) { 

if (m -- 0) { 

printf("cksum: out of dataXn"); 
goto done; 

} 

if (m->m_len) 
break; 
m “ m->m_next; 

} 

} 

if (wasodd) { 

w.wchar[1] * 0; 
result +- w.wword; 

} 

done: 

if (r - (result » 16)) { 
result Oxffff; 
result +- (unsigned)r; 
goto done; 

} 


/* 

if (in_ckprint) printf(" s%o\n",-result); 

*/ 

return ((-((unsigned short)result)) s Oxffff); 
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/* in_pcb.c 4.28 82/06/20 */ 

/* 

* 8/27/84 wrn In in_j)cbattach, protection check excludes case where port =—*20 

* thus allowing ftp to create data sockets. This is a hack, but 

* the decision was made not to put in the setreuid system call for 

* now. 

*/ 

♦include "sys/param.h" 

♦include "sys/config.h" 

♦include ”sys/errno.h" 

♦include “sys/types.h" 

♦include "sys/sysmacros.h" 

♦include "sys/systm.h" 

♦include "sys/sysmacros.h" 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "net/misc.h" 

♦include "net/mbuf.h" 

♦include "net/socket.h" 

♦include "net/socketvar.h" 

♦include "net/in.h" 

♦include "net/in_systm.h" 

♦include "net/if.h" 

♦include "net/route.h" 

♦include "net/in_pcb.h" 

♦include "net/protosw.h" 

/ * 

* Routines to manage internet protocol control blocks. 

* At PRU_ATTACH time a protocol control block is allocated in 

* in_pcballoc() and inserted on a doubly-linked list of such blocks 

* for the protocol. A port address is either requested (and verified 

* to not be in use) or assigned at this time. We also allocate 

* space in the socket sockbuf structures here, although this is 

* not a clearly correct place to put this function. 

* A connectionless protocol will have its protocol control block 

* removed at PRU_DETACH time, when the socket will be freed (freeing 

* the space reserved) and the block will be removed from the list of 

* blocks for its protocol. 

* 

* A connection-based protocol may be connected to a remote peer at 

* PRU_CONNECT time through the routine in_j)cbconnect(). In the normal 

* case a PRU_DISCONNECT occurs causing a in_pcbdisconnect(). 

* It is also possible that higher-level routines will opt out of the 

* relationship with the connection before the connection shut down 

* is complete. This often occurs in protocols like TCP where we must 

* hold on to the protocol control block for a unreasonably long time 

* after the connection is used up to avoid races in later connection 

* establishment. To handle this we allow higher-level routines to 

* disassociate themselves from the socket, marking it SS_USERGONE while 

* the disconnect is in progress. We notice that this has happened 

* when the disconnect is complete, and perform the PRU_DETACfl operation, 

* freeing the socket. 

■k 

* TODO: 

* use hashing 
*/ 

struct in_addr zeroin_addr; 

/* 

* Allocate a protocol control block, space 

* for send and receive data, and local host information. 

* Return error. If no error make socket point at pcb. 

*/ 

in_pcbattach(so, head, sndcc, rcvcc, sin) 
struct socket *so; 
struct inpcb *head; 
int sndcc, rcvcc; 
struct 90ckaddr_in *3in; 

{ 

register struct inpcb *inp; 
u_short Iport - 0; 


if (ifnet = 0) 

return (EADDRNOTAVAIL); 
if (sin) { 

if (sin->sin_family 1= AF_INET) 
return (EAFHOSUPPORT); 
if (sin->sin_addr.s_addr) { 

int tport = sin->sin_port; 


sin->sin_port - 0; /* yech... */ 

if (if_ifwithaddr((struct sockaddr *)sin) 0) 
return (EADDRNOTAVAIL); 
sin->sin_j»rt « tport; 

} 

Iport = sin->sin_jx}rt; 

if (Iport) ( 

u_short aport = Iport; 
int wild - 0; 


♦ifndef WATCHOUT 


aport =* htons (aport); 

/* GROSS */ 

if (aport < IPPORT_RESERVED && u.u_uid I- 0) { 
if (aport !- 20) 
return (EACCES); 

} 

if ((so->so_proto->pr_flags & PR_CONNREQUIRED) == 0 
(so->so_options & SO_ACCEPTCONN) == 0) 
wild - INPLOOKUP_WILDCARD; 

if (in_pcblookup(head, 

zeroin_addr, 0, sin->sin_addr, Iport, wild)) ( 
return (EADDRINUSE); 


MSGET(inp, struct inpcb ,1); 
if (inp = 0) 

return (ENOBUFS); 

if (sbreserve(4so->so_snd, sndcc) == 0) 
goto bad; 

if (sbreserve (Sso->so_rcv, rcvcc) =-= 0) 
goto bad2; 

inp->inp_head =* head; 
if (sin) 

inp->inp_laddr - sin->sin_addr; 
if (Iport — 0) 
do { 

if (head->inp_lport++ < IPPORT_RESERVED) 

head->inp_lport - IPPORT_RESERVED; 

Iport ”= htons (head->inp_lport); 

} while (in_pcblookup(head, 

zeroin_addr, 0, inp->inp_laddr, Iport, 0)); 
inp->inp_lport - Iport; 
inp->inp_socket =» so; 
insque(inp, head); 
so->so_pcb = (caddr_t)inp; 
return (0); 

sbrelease(4so->so_snd); 


HSFREE(inp); 
return (ENOBUFS); 


/* 

* Connect from a socket to a specified address. 

* Both address and port must be specified in argument sin. 

* If don't have a local address for this socket yet, 

* then pick one. 

*/ 

in_jpcbconnect (inp, sin) 

" struct inpcb *inp; 
struct sockaddr_in *sin; 

struct ifnet *ifp; 
struct sockaddr^in *ifaddr; 
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if (sin->sin_family 1= AF_INET) 
return (EAFNOSUPPORT); 

if (sin->sin_addr. s_addr — Oil sin->sin_port -=* 0) 
return (EADDRNOTAVAIL); 
if {inp“>inp_laddr.s_addr =0) { 

ifp “ if_ifonnetof((int)(in_netof(sin->sin_addr))); 
if (ifp — 0) { 

/* 

* We should select the interface based on 

* the route to be used, but for udp this would 

* result in two calls to rtalloc for each packet 

* sent; hardly worthwhile... 

*/ 

ifp - if_ifwithaf(AF_INET); 
if (ifp — 0) 

return (EADDRNOTAVAIL); 

} 

ifaddr == (struct sockaddr_in *) 4ifp->if_addr; 

} 

if (in_pcblookup(inp->inp_head, 
sin->sin_addr, 
sin->sin_j>ort, 

/* c will pass a structure. 

inp“>inp_laddr.s_addr ? inp->inp_laddr. s_addr : ifaddr->sin_addr.s_addr, 
*/ 

inp->inp_laddr.s_addr 2 inp->inp_laddr : ifaddr“>sin_addr, 
inp->inp_lport, 

0 )) { 

return (EADDRINUSE); 

} 

if (inp->inp_laddr.s_addr “ 0) 

inp->inp_laddr - ifaddr->sin_addr; 
inp“>inp_faddr = sin->sin_addr; 
inp->inp_fport = sin->sin_port; 
return (0); 


ln_j)cbdisconnect (inp) 

struct inpcb *inp; 

{ 


inp->inp_faddr.s_addr = 0; 
inp->inp_fport = 0; 

if (inp->inp_socket-'>so_state & SS_USERGONE) 
in_pcbdetach(inp); 


in_j)cbdetach (inp) 

struct inpcb *inp; 


{ 


struct socket *so - 


inp->inp_socket; 


so->so_j)cb “ 0; 
sofree (so); 

if (inp->inp__route. ro_rt) 

rtfree(inp->inp_route.ro_rt); 
remque(inp); 

MSFREE(inp); 

} 

in_setsockaddr(sin, inp) 

register struct sockaddr_in *sin; 
register struct inpcb *inp; 

{ 

if (sin ““Oil inp 0) 

I)anic(''setsockaddr_in"); 
bzero((caddr_t)sin, sizeof (*sin)); 
sin->Sin_faJnlly - AF_rNET; 
sin->sin_j)ort - inp->inp_lport; 
sin->sin_addr - inp->inp_laddr; 

) 


/* 

* Pass an error to all internet connections 

* associated with address sin. Call the 


* protocol specific routine to clean up the 

* mess afterwards. 

*/ 

in_pcbnotify(head, dst, errno, abort) 
struct inpcb *head; 
register struct in_addr *dst; 
int errno, (*abort)(); 

{ 

register struct inpcb *inp, *oinp; 
int s =• splimp (); 

for (inp - head->inp_next; inp '=■ head;) { 

if (inp->inp_faddr.s_addr I- dst->s_addr) { 

next: 

inp “ inp->inp_next; 
continue; 

1 

if (inp->inp_socket =“ 0) 
goto next; 

inp-->inp_socket->so_error =• errno; 

oinp “ inp; 

inp ” inp->inp_next; 

(*abort)(oinp); 

} 

splx(s); 

} 


/* 

* SHOULD ALLOW MATCH ON MULTI-HOMING ONLY 
*/ 

Struct inpcb * 

in_pcblookup(head, faddr, fport, laddr, Iport, flags) 
struct inpcb *head; 
struct in_addr faddr, laddr; 
u_short fport, Iport; 
int flags; 

{ 

register struct inpcb *inp, *match - 0; 
int matchwild = 3, wildcard; 


for (inp = head->inp_next; inp i= head; inp = inp->inp_next) { 

if (inp->inp_lport 1= Iport). 
continue; 

wildcard = Q; 

if (inp->inp_laddr.s_addr != 0) { 
if (laddr. s_addr = 0) 
wildcard++; 

else if (inp->inp_laddr.s_addr 1“ laddr.s_addr) 
continue; 

} else { 

if (laddr.s_addr !“ 0) 
wildcard++; 

1 

if (inp->inp_faddr.s_addr !- 0) { 
if (faddr.s_addr =“ 0) 
wildcard++; 

else if (inp->inp_faddr.s_addr != faddr,s_addr || 
inp->inp_fport !“ fport) 
continue; 

} else { 

if (faddr.s_addr i- 0) 
wildcard++; 

} 

if (wildcard && (flags & INPLOOKUP_WILDCARD) — 0) 
continue; 

if (wildcard < matchwild) { 
match - inp; 
matchwild - wildcard; 
if (matchwild “= 0) 
break; 

} 


) 

return (match); 
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/* ip_icmp.c 4.28 B3IQ2/22 */ 

#include “sys/param.h" 

♦include **sys/config.h" 

♦include "sys/errno.h" 

♦include "sys/types.h" 

♦include "sys/systm.h" 

♦include "net/misc.h" 

♦include "net/inbuf .h" 

♦include "net/protosw-h" 

♦include "net/socket.h" 

♦include "net/in.h" 

♦include "n8t/in_systm.h" 

♦include "net/ip.h" 

♦include "net/ip_iciap.h" 

♦include "net/route.h" 

/* 

* ICMP routines: error generation, receive packet processing, and 

* routines to turnaround packets back to the originator, and 

* host table maintenance routines. 

*/ 

int icmpprintfs = 0; 

/* 

* Generate an error packet of type error 

* in response to bad packet ip. 

*/ 

iciiip_error (oip, type, code) 
struct ip *oip; 
int type, code; 

{ 

register unsigned oiplen =* oip->ip_hl « 2; 
register struct icmp *icp; 
struct mbuf *m; 
struct ip *nip; 

if (icmpprintfs) 

printf ('•icmp_error (%x, %d, %d) \n", oip, type, code); 

/* 

* Make sure that the old IP packet had 8 bytes of data to return; 

* if not, don't bother. Also don't EVER error if the old 

* packet protocol was ICMP. 

*/ 

if (oip->ip_len < 8 I| oip->ip_p =- IPPROTO_ICMP) 
goto free; 

/* 

* First, formulate icmp message 
m - m_get(M_DONTWAIT, MT_HEADER); 

*/ 

m =“ m_get (M_DONTWAIT) ; 
if (ra ” 0) 

goto free; 

m->m_len = oiplen + 8 + ICMP_MINLEN; 
ra->m_off ■= MMAXOFF “ ra->ra_len; 
icp ■= mtod (m, struct icmp *); 
icp->icmp__type - type; 
icp->icmp__void - 0; 
if (type «= ICMP_PARAMPROB) { 
icp->icmp_pptr - code; 
code - 0; 

} 

icp->icmp_code “ code; 

bcopy((caddr_t)oip, (caddr_t)&icp->icrap_ip, (int)(oiplen + 8)); 
nip •" Aicp-->icmp_ip; 
nip->ip_len +- oiplen; 

nip->ip_len * htons((u_short)nip->ip_len); 

/* 

* Now, copy old ip header in front of icmp 

* message. This allows us to reuse any source 

* routing info present. 

*/ 

m->in_off — oiplen; 

nip - mtod(m, struct ip *); 

bcopy ((caddr^^t) oip, (caddr_,t)nip, (int) oiplen); 


nip->ip_len - m->m_len + oiplen; 
nip->ip_p “ IPPROTO_ICMP; 

/* icmp_send adds ip header to m_off and m_len, so we deduct here */ 
m->m_off +“ oiplen; 
icmp_refleet(nip); 


free: 

} 


m_freem(dtom(oip)); 


static char icrapmap[] = { 

- 1 , - 1 , - 1 , 

PRC_UNREACH_NET, PRC_QUENCH, PRC_REDIRECT_NET, 

-I, -1, -1, 

“1, -1, PRC_TIMXCEED_INTRANS, 

PRC_PARAMPROB, -1, -1, 

- 1 , -1 

}; 


Static struct sockproto iemproto = { AF_INET, IPPROTO_ICMP }; 
static struct sockaddr_in icmpsrc = { AF_INET }; 
static struct sockaddr_in icmpdst ■“ { AF_INET }; 


/* 

* Process a received ICMP message. 

*/ 

icmp_input(m) 

struct mbuf *m; 

{ 

register struct icmp *icp; 

register struct ip *ip = mtod(m, struct ip *); 
int icmplen - ip->ip_len, hlen “ ip->ip_hl « 2; 
int i, (*ctlfunc)0, type; 
extern u_char ip_j)rotox [ ]; 


/* 

* Locate icmp structure in mbuf, and check 

* that not corrupted and of at least minimum length. 

*/ 

if (icmpprintfs) 

printf("icmp_input from %x, len %d\n", ip->ip_src, icmplen); 
if (icmplen < ICMP_MINLEN) 
goto free; 
m->m_len -= hlen; 
m->m_off +==■ hlen; 

/* need routine to make sure header is in this mbuf here */ 

icp “ mtod(m, struct icmp *); 

i = icp->icmp_cksum; 

icp->icrap_cksum - 0; 

if (i !“= in_cksum(m, icmplen)) { 

printf("icmp: cksum %x\n", i); 
goto free; 


/* 

* Message type specific processing. 

*/ 

if (icmpprintfs) 

printf("icmp_input, type %d code %d\n", icp->icmp_type, 
icp->icmp_code); 
switch (i = icp->icmp_type) { 


case ICMP_UNREACH: 
case ICMP_TIMXCEED: 
case ICMP_PARAMPROB; 
case ICMP_REDIRECT: 
case ICMP_SOURCEQUENCH: 

/* 

* Problem with previous datagram* advise 

* higher level routines. 

*/ 

icp->icmp_ip.ip_len - ntohs((u_short)icp->icmp_ip.ip_l6n); 
if (icmplen < ICMP_ADVLENMIN || icmplen < ICMP_ADVLEN(icp)) 
goto free; 
if (icmpprintfs) 

printf ("deliver to protocol %d\n", icp->icmp_ip. ip_j5i ; 
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type - i = ICMP_PARAMPROB 2 0 ; icp->icmp_code; 
if (ctlfunc - inetsw[ip_j)rotox[icp“>icmp_ip,ip_jp] ] ,pr_ctlinput) 
(*ctlfunc)(icmpmap[il + type, (caddr_t)icp); 
goto free; 

case ICM?__ECHO: 

icp->iciap_type *= ICMP_ECHOREPLY; 
goto reflect; 

case ICMP_TSTAMP: 

if (icmplen < ICMP_TSLEN) 
goto free; 

icp->icmp_type - ICMP_TSTAMPREPLY; 
icp->iattp_rtime = iptime (); 

icp->icnip_ttime == icp->icmp_rtime; /* bogus, do later I */ 

goto reflect; 

case ICMP_IREQ: 

/* fill in source address zero fields! */ 
goto reflect; 

case ICMP_ECHOREPLY: 
case ICMP_TSTAMPREPLY; 
case ICMP_IREQREPLY; 

if (icmplen < ICMP_ADVLENMIN || icmplen < ICHP_ADVLEN(icp)) 
goto free; 

icmpsrc.sin_addr - ip->ip_src; 
icmpdst.sin_addr - ip->ip_dst; 

raw_input(dtom(icp), Sicmproto, (struct sockaddr *)&icmpsrc, 
(struct sockaddr *)4icmpdst); 
goto free; 

default: 

goto free; 


reflect: 

ip->ip_len += hlen; 
icmp_reflect(ip); 
return; 

free: 


m 

} 


:reem(dtom(ip)); 


/* since ip_input deducts this */ 


f* 

* Reflect the ip packet back to the source 

* TODO: rearrange ip source routing options. 

*/ 

icanp_refleet (ip) 

struct ip *ip; 

{ 

struct in_addr t; 

t - ip->ip_dst; 
ip->ip_dst “ ip“>ip_src; 
ip->ip_src - t; 
icmp_send(ip); 

} 

/* 

* Send an iemp packet back to the ip level, 

* after supplying a checksiim. 

*/ 

icmp_send(ip) 

struct ip *ip; 

{ 

register int hlen; 
register struct iemp *icp; 
register struct inbuf *m; 

ra - dtoni(ip); 

hlen - ip->ip_hl « 2; 

icp - mtod(ra, struct iemp *); 

icp“>icrap_cksum - 0; 

lcp->icinp_cksura - in_ck3ura(ra, ip->ip_len - hlen); 
m->m_off — hlen; 
ra“>ia_len +- hlen; 


if (iempprintfs) 

printf ('•icmp_send dst %x sre %x\n'', ip->ip_d3t, ip->ip_src) ; 
(void) ip_output(m, (struct mbuf *)0, (struct route *)0, 0); 

) 


iptime() 

{ 

int s “ spl6(); 
u_long t; 

I* system 3... 

t - (time.tv_sec % (24*60*60)) * 1000 + time.tv_usec / 1000; 
*/ 

t “ (time % SECDAY) * 1000 + Ibolt * hz; 
splx(s); 

return (htonl(t)); 
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/* ip_input.c 1.6S 83/02/23 */ 

♦include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/errno.h" 

♦include "sys/types,h" 

♦include “sys/systja.h" 

♦include "net/misc.h" 

♦include "net/mbuf.h" 

♦include "net/protosw.h" 

♦include "net/socket.h" 

♦include "net/in.h" 

♦include "net/in_systm,h" 

♦include "net/ip.h" 

♦include "net/ip_icmp.h" 

♦include "net/if.h" 

♦include "net/route.h" 

♦include "net/in_j)cb.h" 

♦include "net/ip_var.h" 

♦include "net/tcp.h" 

u_char ip_protox[IPPROTO_MAX]; 
int ipqmaxlen - IFQ_MAXLEN; 

struct ifnet *ifinet; /* first inet interface */ 

/* 

* IP initialization: fill in IP protocol switch table. 

* All protocols not implemented in kernel go to raw IP protocol handler. 
*/ 

ip_init() 

register struct protosw *pr; 
register int i; 

pr - pffindproto(PF_INET, IPPROTq_RAW); 
if (pr -- 0) 

panic("ip_init"); 
for (i =■ 0; i < IPPROTO_MAX; i++) 

ip_protox[i] “ pr - inetsw; 

/* billn - meld with old code 
for (pr “ inetdomain.dom_j>rotosw; 

pr <- inetdomain.do(m_j)rotoswNPROTOSW; pr++) 
if (pr->pr_family — PF_INET && 

pr->pr_j>rotocol && pr->pr_j)rotocol I- IPPROTO_RAW) 
ip_j>rotox[pr->pr_j5rotocol] - pr ~ inetsw; 

*/ 

for (pr “ protosw; pr <- protoswLAST; pr++) 
if (pr->pr_family — PF_INET && 

pr->pr_protocol && pr->pr_protocol != IPPROTO_RAW) 
ip_protox[pr->pr_protocol] * pr - protosw; 
ipq.next - ipq.prev = &ipq; 

/* billn... 

ip_id = time.tv_sec & Oxffff; 

*/ 

ip_id - time & Oxffff; 
ipintrq.ifq^maxlen = ipqmaxlen; 
ifinet « if_ifwithaf(AF_INET); 

} 

short Ipcksum “ 1; 
struct ip *ip_reass(); 

struct sockaddr_in ipaddr -= { AF_INET }; 

/* 

* Ip input routine. Checksum and byte swap header. If fragmented 

* try to reassemble. If complete and fragment queue exists, discard. 

* Process options. Pass to next level. 

*/ 

ipintr() 

{ 

register struct ip *ip; 
register struct mbuf *ra; 
struct mbuf *m0; 
register int i; 
register struct ipg *fp; 


int hlen, s; 


next; 

/* 

* Get next datagram off input queue and get IP header 

* in first mbuf. 

*/ 

s = splimpO ; 

IF_DEQUEUE(iipintrq, m); 
splx(s); 
if (m = 0) 

return; 

if ((ra->ra_off > MMAXOFF || m“>m_len < sizeof (struct ip)) 
(ra - m_pullup(m, sizeof (struct ip))) =0) { 
ipstat.ips_toosmall++; 
goto next; 

} 

ip - mtod(m, struct ip *); 

if ((hlen - ip">ip_hl « 2) > m->m_len) { 

if ((m = m_pullup(ra, hlen)) = 0) { 
ipstat.ips_badhlen++; 
goto next; 

} 

ip = mtod(m, struct ip *); 

) 

if (ipcksim) 

if (ip->ip_sum » in__cksum(m, hlen)) { 
ipstat.ips_badsum++; 
goto bad; 

} 

/* 

* Convert fields to host representation- 
*/ 

ip->ip_len = ntohs((u_short)ip“>ip_len); 
if (ip“>ip_len < hlen) { 

ipstat.ips_badlen++; 
goto bad; 

} 

ip->ip_id = ntohs(ip->ip_id); 
ip->ip_off = ntohs((u_short)ip->ip_off); 


/* 

* Check that the amount of data in the buffers 

* is as at least much as the IP header would have us expect. 

* Trim mbufs if longer than we expect. 

* Drop packet if shorter than we expect. 

*/ 

i = -ip->ip_len; 
mO - m; 
for (;;) { 

i +- m'’>m_len; 
if (m->m_next —= 0) 
break; 
m - m->ra_next; 

} 

if (i != 0) { 

if (i < 0) { 

ipstat.ips_tooshort++; 
printf("[iptooshort by %d]", i); 

goto bad; 

if (i <- m->m_len) 

m->m_len -=• i; 

else 

m_adj(raO, -i); 


} 


m “ mO; 


/* 

* Process options and, if not destined for us, 

* ship it on. ip_dooptions returns 1 when an 

* error was detected (causing an icmp message 

* to be sent). 

*/ 

if (hlen > sizeof (struct ip) && ip__dooptions (ip)) 
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goto next; 


/* 

* Fast check on the first internet 

* interface in the list. 

*/ 

if (ifinet) { 

struct sockacldr_in *sin; 

sin - (struct sockaddr_in *)&ifinet->if_addr; 
if (sin->sin_addr.s_addr =“ ip~>ip_dst.s_addr) 
goto ours; 

sin - (struct sockaddr_in *)&ifinet->if_broadaddr; 
if ((ifinet->if_flags & IFF_BROADCAST) && 

sin''>sin_addr.s_addr ==* ip->ip_dst.s_addr) 
goto ours; 

} 

/* BEGIN GROT */ 
tif NND > 0 
^include «nd.h« 

/* 

* Diskless machines don't initially know 

* their address, so take packets from them 

* if we're acting as a network disk server. 

*/ 

if (ip->ip_dst.s_addr = INADDR_ANY && 

(in_netof(ip->ip_src) = INADDR_ANY && 
in_lnaof(ip“>ip_src) '= INADDR_ANY)) 
goto ours; 

#endif 

/* END GROT */ 

ipaddr.sin_addr - ip->ip_dst; 

if (if_ifwithaddr((struct sockaddr *)iipaddr) =0) { 
ip_forward(ip); 
goto next; 

} 

ours: 

i* 

* Look for queue of fragments 

* of this datagram. 

*/ 

for (fp = ipq.next; fp I- &ipq; fp =» fp->next) 
if (ip“>ip_id =— fp->ipq_id && 

ip->ip_src.s_addr = fp->ipq_src.s_addr && 
ip->ip_dst.s_addr =- fp->ipq_dst.s_addr && 
ip->ip__p -=■ fp->ipq_p) 
goto found; 

fp “ 0; 

found: 


/* 

* Adjust ip_len to not reflect header, 

* set ip__mff if more fragments are expected, 

* convert offset of this to bytes. 

*/ 

ip->ip_len -= hlen; 

((struct ipasfrag *)ip)->ipf_mff “ 0; 
if (ip->ip_off & IP_MF) 

((struct ipasfrag *)ip)->ipf_mff *• 1; 
ip->ip_off «“ 3; 

/* 

* If datagram marked as having more fragments 

* or if this is not the first fragment, 

* attempt reassembly; if it succeeds, proceed. 

*/ 

if (((struct ipasfrag *)ip)->ipf_mff M ip->ip_off) ( 
ip - ip_reass((struct ipasfrag *)ip, fp); 
if (ip — 0) 

goto next; 

hlen - ip“>ip_hl « 2; 
m — dtoan(ip) ; 

} else 

if (fp) 

ip^f reef ( fp) ; 


/* 

* Switch out to protocol's input routine. 
*/ 

(*inetsw[ip_protoxtip->ip_j)] ] .pr_input) (m) ; 
goto next; 

bad: 

m_f reem (m); 
goto next; 


/* 

* Take incoming datagram fragment and try to 

* reassemble it into whole datagram. If a chain for 

* reassembly of this datagram already exists, then it 

* is given as fp; otherwise have to make a chain. 

*/ 

struct ip * 
ip_reass(ip, fp) 

register struct ipasfrag *ip; 
register struct ipq *fp; 

{ 

register struct mbuf *m = dtora(ip); 

register struct ipasfrag *q; 

struct mbuf *t; 

int hlen * ip->ip_hl « 2; 

int i, next; 

/* 

* Presence of header sizes in mbufs 

* would confuse code below. 

*/ 

m->m_off += hlen; 
m->m_len -= hlen; 

/* 

* If first fragment to arrive, create a reassranbly queue. 

*/ 

if (fp =-= 0) { 

/* billn — meld with old 

if ((t = m_get (K_ifAIT, KT_FTAELE)) == NULL) 

*/ 

if ((t “ m_get (M_WAIT)) = NULL) 
goto dropfrag; 
fp => mtod(t, struct ipq *); 
insque(fp, 4ipq); 
fp->ipq_ttl = IPFRAGTTL; 
fP'>ipq_P ” ip->ip_p; 
fp->ipq_id = ip->ip_id; 

fp->ipq_next ” fp->ipq_j5rev - (struct ipasfrag *)fp; 
fp->ipq_src = ((struct ip *)ip)->ip_src; 
fp->ipq_dst - ((struct ip *)ip)->ip_dst; 
q == (struct ipasfrag *)fp; 
goto insert; 

} 

/* 

* Find a segment which begins after this one does. 

*/ 

for (q =- fp->ipq_next; q !- (struct ipasfrag *)fp; q - q->ipf_next) 
if (q->ip_off > ip->ip_off) 
break; 


i* 

* If there is a preceding segment, it may provide some of 

* our data already. If so, drop the data from the incoming 

* segment. If it provides all of our data, drop us. 

*/ 

if (q->ipf_prev != (struct ipasfrag »)fp) { 

i “ q->ipf_j)rev->ip_off + q->ipfjprev->ip_len - ip->ip_off; 

if (i > 0) ( 

if (i >- ip->ip_len) 

goto dropfrag; 
m_adj(dtoro(ip), i); 
ip->ip_off +« i; 
ip->ip_len — i; 
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} 

i* 

* While we overlap succeeding segments trim them or, 

* if they are coiapletely covered, dequeue them. 

*/ 

while (q '*= (struct ipasfrag *)fp && ip->ip_off + ip->ip_len > q->ip_off) { 
i - (ip->ip_off + ip“>ip_len) - q->ip_off; 
if (i < q->ip_len) { 

q->ip_len — i; 
q“>ip_off +“ i; 
m__ad j (dtom (q) , i) ; 
break; 

} 

q = q->ipf_next; 
m_freem{dtom{q->ipf_prev)); 
ip_deq(q->ipf_prev); 

} 

insert: 

/* 

* Stick new segment in its place; 

* check for complete reassembly. 

*l 

ip_enq(ip, q->ipf__prev) ; 
next - 0; 

for (q - fp->ipq_next; q 1= (struct ipasfrag *)fp; q =■ q->ipf__next) { 
if (q->ip_off I” next) 
return (0); 
next +“ q“>ip_len; 

) 

if (q'->ipf_prev->ipf_mff) 
return (0); 

/* 

* Reassembly is complete; concatenate fragments. 

*/ 

q - fp->ipq_next; 
m =* dtom(q); 
t = m->m_next; 
m->m_next * 0; 
m_cat(m, t); 
q - q“>ipf_next; 

while (q (struct ipasfrag *)fp) { 
t = dtom(q) ; 
q = q->ipf_next; 
m_cat(m, t) ; 

} 

/* 

* Create header for new ip packet by 

* modifying header of first packet; 

* dequeue and discard fragment reassembly header. 

* Make header visible. 

*/ 

ip =■ fp->ipq_next; 
ip->ip_len = next; 

((struct ip *)ip)->ip_src - fp->ipq_src; 

((struct ip *)ip)->ip_dst = fp->ipq_dst; 
remque(fp); 

(void) m_free(dtom(fp)); 
m “ dtom(ip); 

m->m_len +- sizeof (struct ipasfrag); 
m“>m_off — sizeof (struct ipasfrag); 
return ((struct ip *)ip); 

dropfrag; 

m_freem(m) ; 
return (0); 


/* 

* Free a fragment reassembly header and all 

* associated datagrams. 

*/ 
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* are encountered. 

*/ 

ip_dooptions(ip) 

struct ip *ip; 

register u_char *cp; 

int opt, optlen, cnt, code, type; 

struct in_addr *sin; 

register struct ip_timestamp *ipt; 

register struct ifnet *ifp; 

struct in_addr t; 

cp » (u_char *) (ip + 1); 

cnt = (ip->ip_hl « 2) - sizeof (struct ip); 
for (; cnt >0; cnt -= optlen, cp += optlen) { 
opt ^ cp 10]; 
if (opt -- IPOPT_EOL) 
break; 

if (opt — IPOPT_NOP) 
optlen =1; 

else 

optlen = cp[1]; 
switch (opt) { 

default; 

break; 


/* 

* Source routing with record. 

* Find interface with current destination address. 

* If none on this machine then drop if strictly routed, 

* or do nothing if loosely routed. 

* Record interface address and bring up next address 

* component. If strictly routed make sure next 

* address on directly accessible net. 

*/ 

case IPaPT_LSRR: 
case IPOPT_SSRR: 

if (cp[2] <411 cp[2] > optlen - (sizeof (long) - 1)) 
break; 

sin - (struct in_addr *)(cp + cp[2]); 
ipaddr.sin_addr =■ *sin; 

ifp =■ if_ifwithaddr( (struct sockaddr *)&ipaddr); 
type - ICMP_UNREACH, code - ICMP_UNREACH_SRCFAIL; 
if (ifp -= 0) { 

if (opt = IPOPT_SSRR) 
goto bad; 

break; 

} 

t = ip->ip_dst; ip->ip_dst - *sin; *sin = t; 
cp[2] +“ 4; 

if (cp[2] > optlen - (sizeof (long) - 1)) 
break; 

ip->ip_dst - sin[l]; 
if (opt ““ IPOPT_SSRR &£ 

if_ifonnetof((int)(in_netof(ip->ip_dst))) =■ 0) 
goto bad; 

break; 

case IPOPT_TS: 

code - cp - {u_char *)ip; 
type - ICMP_PARAMPROB; 
ipt “= (struct ip_timestamp *)cp; 
if (ipt->ipt_len < 5) 
goto bad; 

if (ipt->ipt_j)tr > ipt“>ipt_len - sizeof (long)) ( 
if (++ipt->ipt_oflw 0) 
goto bad; 

break; 

) 

sin “ (struct in_addr *)(cp+cp[2]); 
switch (ipt->ipt_flg) ( 

case IPOPT_TS_TSONLY; 
break; 


case IPOPT__TS__TSANDADDR: 

if (ipt->ipt__ptr + 8 > ipt->ipt_len) 
goto bad; 
if (ifinet — 0) 

goto bad; /* ??? */ 

*sin++ - ((struct sockaddr_in *)Sifinet“>if_addr)->sin_addr 
break; 

case IPOPT_TS_PRESPEC: 

ipaddr.sin_addr “ *sin; 

if (if_ifwithaddr((struct sockaddr *)&ipaddr) = 0) 
continue; 

if (ipt“>ipt_ptr + 8 > ipt->ipt_len) 
goto bad; 

ipt“>ipt_j5tr +- 4; 
break; 


bad; 


) 


default: 

goto bad; 

} 

* (n_time *)sin = iptiraeO; 
ipt->ipt_ptr += 4; 

) 

) 

return (0); 

icmp_error(ip, type, code); 
return (1); 


/* 

* Strip out IP options, at higher 

* level protocol in the kernel. 

* Second argument is buffer to which options 

* will be moved, and return value is their length. 
*/ 

ip_stripoptions(ip, mopt) 
struct ip *ip; 
struct mbuf *mopt; 

{ 

register int i; 
register struct mbuf *m; 
int olen; 


olen = (ip->ip_hl«2) - sizeof (struct ip); 

m - dtom(ip); 

ip++; 

if (mopt) { 

mopt->m_len - olen; 
mopt->m_off - MHIKOFF; 

bcopY( (caddr_t)ip, mtod(m, caddr_t), (int)olen); 

} 

i “ m->m_len - (sizeof (struct ip) + olen); 
bcopy({caddr_t)ip+olen, (caddr_t)ip, (int)i); 
ra->m_len —» olen; 


u_char inetctlerrmap[] 
ECONNABORTED, 
0 , 

EHOSTDOWN, 

ECONNREFUSED, 

0 , 

); 


- { 

ECONNABORTED, 

0 , 

EHOSTUNREACH, 

ECONNREFUSED, 

0 , 


0 , 

ENETUNREACH, 

EMSGSIZE, 

0 , 


0 , 

EHOSTUNREACH, 

0 / 

0 


#ifdef notdef 
ip_ctlinput(cmd, arg) 
int cmd; 
caddr_t arg; 

{ 

struct in_addr *in; 

int tcp__abort (), udp_abort () ; 

extern struct inpcb tcb, udb; 


if (cmd < 0 I I cmd > PRC_NCMDS) 
return; 
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if (inetctlerrmapEcmd] =- 0) 

return; /* XXX */ 

if (cmd = PRC_IFDOWN) 

in - &((struct sockaddr_in *)arg)->sin_addr; 
else if (cmd =■ PRC_HOSTDEAD || cmd — PRC_HOSTUNREACH) 
in ■= (struct in_addr *)arg; 

else 

in * &((struct icmp *)arg)->icmp_ip.ip_dst; 

/* THIS IS VERY QUESTIONABLE, SHOULD HIT ALL PROTOCOLS */ 

in_pcbnot i fy (s tcb, in, (int) inetctlerrmap [ cmd ], tcp_abort); 
in_pcfanotify(&udb, in, (int)inetctlerrmapEcmd], udp_abort); 

} 

#endif 

int ipprintfs =0; 

int ipforwarding - 1; 

/* 

* Forward a packet. If some error occurs return the sender 

* and icmp packet. Note we can't always generate a meaningful 

* icmp message because icmp doesn't have a large enough repetoire 

* of codes and types. 

*/ 

ip_forward(ip) 

register struct ip *ip; 

{ 

register int error, type, code; 
struct mbuf *mopt, *mcopy; 

if (ipprintfs) 

printf(“forward: src %x dst %x ttl %x\n", ip->ip_src, 
ip->ip_dst, ip->ip_ttl); 
if (ipforwarding == 0) { 

/* can't tell difference between net and host */ 
type “ ICMP_UNREACH, code = ICMP_UNREACH_NET; 
goto sendicmp; 

} 

if (ip->ip_ttl < IPTTLDEC) { 

type - ICHP_TIHXCEED, code - ICHP_TIMXCEED_INTRANS; 
goto sendicmp; 

} 

ip->ip_ttl — IPTTLDEC; 

/* billn — meld with old 

mopt - m_get (H_DONTffAIT, MT_DATA) ; 

*/ 

mopt = m_get(M_DONTWAIT); 
if (mopt “ NULL) { 

m_freem(dtom(ip)); 
return; 

} 

/* 

* Save at most 64 bytes of the packet in case 

* we need to generate an ICMP message to the src. 

V 

/* billn — imin -> MIN */ 

mcopy - m_copy(dtom(ip), 0, MIN(ip->ip_len, 64)); 
ip_stripoptions(ip, mopt); 

/* last 0 here means no directed broadcast */ 

if ((error - ip_output(dtora(ip), mopt, (struct route *)0, 0)) 0) { 

if (mcopy) 

m_freem(mcopy); 

return; 

} 

ip - mtod(mcopy, struct ip *); 

type “ ICHP_UNREACH, code « 0; /* need "undefined" */ 

switch (error) { 

case ENETUNREACH; 
case ENETDOWN: 

code - ICMP__UNREACH_NET; 
break; 

case EHSGSIZE: 

code - ICMP_UNREACH_NEEDFRAG; 
break; 


/* billn - meld with old 
case EPERM; 

code “ ICMP_UNREACH_PORT; 
break; 

*/ 

case ENOBUFS: 

type - ICMP_SOURCEQUENCH; 
break; 


case EHOSTDOWN: 
case EHOSTUNREACH: 

code = ICMP_UNREACH_HOST; 
break; 

} 

sendicmp: 

icmp_error(ip, type, code); 

} 
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/* ip_output.c 1.46 83/02/10 */ 

♦include ''sys/param.h" 

♦include ‘•sys/config.h" 

♦include “sys/errno.h'' 

♦include "sys/types.h” 

♦iLnclude “sys/syswu-h^^ 

♦include "net/misc.h" 

♦include "net/inbuf .h" 

♦include "net/protosw.h" 

♦include "net/socket.h" 

♦include "net/socketvar.h" 

♦include "enirno. li** 

♦include "net/in.h” 

♦include "net/in_systia.h*' 

♦include "net/ip.h" 

♦include "net/ip_ic3ap.h" 

♦include "net/if.h" 

♦include "net/route.h" 

♦include "net/ip_var.h" 

int ipnorouteprint - 0; 

ip_output(m, opt, ro, allowbroadcast) 
struct rabuf *m; 
struct mbuf *opt; 
struct route *ro; 
int allowbroadcast; 

( 

register struct ip *ip = iQtod(m, struct ip *); 
register struct ifnet *ifp; 

int len, hlen - sizeof (struct ip), off, error = 0; 
struct route iproute; 
struct sockaddr *dst; 

if (opt) /* XXX */ 

(void) m_free(opt); /* XXX */ 

/* 

* Fill in IP header. 

*/ 

ip“>ip_v = IPVERSION; 
ip->ip_hl = hlen » 2; 
ip->ip_off 4- IP_DF; 
ip->ip_id = htons(ip_id++); 

/* 

* Route packet. 

*/ 

if (ro = 0) { 

ro = &iproute; 

bzero((caddr_t)ro, sizeof (*ro)); 

} 

dst = &ro->ro_dst; 
if (ro->ro_rt “0) { 

ro->ro_dst.sa_fartdly - AF_INET; 

((struct sockaddr_in *)&ro->ro_dst)~>sin_addr = ip->ip_dst; 

I* 

* If routing to interface only, short circuit routing lookup. 
*/ 

if (ro “ firoutetoif) ( 

/* check ifp is AF_INET?2? */ 

ifp *= if_ifonnetof ((int) (in_netof (ip->ip_dst))); 
if (ifp =™ 0) 

goto unreachable; 
goto gotif; 

} 

rtalloc(ro); 

} 

if {ro->ro_rt “Oil (ifp - ro-->ro_rt->rt_ifp) — 0) 
goto unreachable; 
ro->ro_rt->rt_use++; 

if (ro->ro_rt“>rt_flags & RTF_GATEWAY) 
dst - Sro->ro_rt->rt_gateway; 

gotif: 

♦ifndef notdef 


♦endif 


/* 

* If source address not specified yet, use address 

* of outgoing interface. 

*/ 

if (in_lnaof(ip->ip_src) =“ INADDR_ANY) 
ip->ip_src.s_addr = 

((struct sockaddr_in *)4ifp->if_addr)->sin_addr.s_addr; 



/* 

* If small enough for interface, can just send directly. 
*/ 

if (ip->ip_len <= ifp->if_mtu) { 

ip->ip_len = httMis( (u_short) ip->ip_l€n); 
ip->ip_off * htons((u_short)ip->ip_off); 
ip->ip_sum - 0; 

ip->ip_sim = in_cksum(m, hlen) ; 
error = (*ifp“>if_output)(ifp, m, dst); 
goto done; 


/* 

* Too large for interface; fragment if possible. 

* Must be able to put at least 8 bytes per fragment. 

*/ 

if (ip->ip_off & IP_DF) { 
error - EMSGSIZE; 
goto bad; 

len = (ifp->if_mtu - hlen) 7; 
if (len < 8) { 

error = EMSGSIZE; 
goto bad; 


* Discard IP header from logical mbuf for m_copy's sake. 

* Loop through length of segment, make a copy of each 

* part and output. 

*/ 

m->m_len -- sizeof (struct ip); 
m->m_off +* sizeof (struct ip); 

for (off “ 0; off < ip->ip_len-hlen; off +- len) { 

/* billn - meld with old 

struct mbuf *mh ” m_get(M_DONTWAIT, MT_HEADER); 

V 

struct mbuf *mh - ra_get(M_DONTWAIT); 
struct ip *mhlp; 


if (rah “ 0) { 

error - ENOBUFS; 
goto bad; 

} 

mh->ra_off - iWAXOFF - hlen; 
mhip - mtod (inh, struct ip *) ; 
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*mhip = *ip; 

if (hlen > sizeof (struct ip)) { 

int olen = ip_optcopy(ip, mhip, off); 
rah->m_len =• sizeof (struct ip) + olen; 

} else 

uih->m_len = sizeof (struct ip) ; 
nihip->ip_off - off » 3; 
if (off + len >=* ip->ip_len“hlen) 

len ” iBiiip->ip_len - ip->ip_len - hlen 

else { 

inhip->ip_len = len; 
iahip->ip_off !•= IP_MF; 

} 

mhip->ip_len +- sizeof (struct ip); 
inhip->ip_len = htons( (u_short)mhip->ip_len) ; 
inh“>ni_next = m_copy(m, off, len) ; 
if (mh->m_next =0) { 

(void) m_free(mh); 

error = ENOBUFS; /* ??? */ 

goto bad; 

) 

itihip->ip_off - htons{ (u_short)inhip->ip_off) ; 
mhip->ip_sura = 0; 

inhip->ip_sum “ in_clcsujti(iuh, hlen) ; 
if (error - (*ifp->if_output)(ifp, mh, dst)) 
brealc; 


m_freem (m); 
goto done; 


unreachable: 


1 f (ipnor outeprint) 

printf("no route to %x (from %x, len %d)\n", 

ip-*>ip_dst. s_addr, ip“>ip__src. s_addr, ip->ip_len) ; 
error - ENETUNREACH; 

m_freem (m); 


if (ro == &iproute && ro->rQ_rt) 
RTFREE(ro->ro_rt); 
return (error); 


/* 

* Copy options from ip to jp. 

* If off is 0 all options are copied 

* otherwise copy selectively. 

*/ 

ip_optcopy(ip, jp, off) 

struct ip *ip, *jp; 
int off; 

{ 

register u_char *cp, *dp; 
int opt, optlen, cnt; 


cp * (u_char *)(ip + 1); 
dp = (u_char *)(jp + 1); 

cnt ” (ip->ip_hl « 2) - sizeof (struct ip); 
for (; cnt > 0; cnt optlen, cp +“ optlen) { 
opt =■ cp[0}; 
if (opt IPOPT_EOL) 
break; 

if (opt — IPOPT_NOP) 
optlen = 1; 

else 

optlen “ cp[l]; 

if (optlen > cnt) /* XXX */ 

optlen - cnt; /* XXX */ 

if (off “Oil IPOPT_COPIED{opt)5 { 

bcopy((caddr_t)cp, (caddr_t)dp, (int)optlen); 
dp +- optlen; 

} 

} 

for (optlen - dp - {u_char *)(jp+l); optlen £ 0x3; optlen++) 
*dp++ - IPOPT_EOL; 
return (optlen); 
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/* &(#)ipc,c 1.1 */ 

finclude "sys/errno.h" 
♦include "sys/types.h" 
♦include "sys/param.h** 
♦include "sys/seg.h'* 
♦include "sys/signal.h” 
♦include "sys/proc.h" 
♦include "sys/dir.h" 
♦ifdef u3b 
♦include "sys/istk.h" 
♦endif 

♦include "sys/user.h" 
♦include “sys/ipc.h" 


/* 


*/ 


Common IPC routines. 


Check message, semaphore, or shared memory access permissions. 


This routine verifies the requested access permission for the current 
process. Super-user is always given permission. Otherwise, the 
appropriate bits are checked corresponding to owner, group, or 
everyone. Zero is returned on success. On failure, u.u_error is 
set to ElACCES and one is returned. 

The arguments must be set up as follows: 

P - Pointer to permission structure to verify 
mode - Desired access permissions 


ipcaccess^p, mode) 

register struct ipc_perm *p; 

register ushort mode; 


if(u.u_uid — 0) 

return(0); 

if(u.u_uid != p->uid && u.u_uid 1= p->cuid) { 
mode »= 3; 

if(u.u_gid p->gid && u.u_gid 1= p->cgid) 
mode »= 3; 

} 

if(mode & p->mode) 
return(0); 
u.u_error - EACCES; 
return(1); 


Get message, semaphore, or shared memory structure. 



This routine searches for a matching key based on the given flags 
and returns a pointer to the appropriate entry. A structure is 
allocated if the key doesn't exist and the flags call for it. 

The arguments must be set up as follows: 
key - Key to be used 

flag - Creation flags and access modes 

base - Base address of appropriate facility structure array 
cnt - ♦ of entries in facility structure array 
size - sizeof(facility structure) 

status - Pointer to status word: set on successful completion 
only: 0 -> existing entry found 

1 -> new entry created 

Ipcget returns NULL with u.u_error set to an appropriate value if 
it fails, or a pointer to the initialized entry if it succeeds. 


struct ipc_perm * 

ipcget [key, flag, base, cnt, size, status) 
register struct ipc__perm *base; 

int cnt, 

flag, 

size, 

♦status; 

key_t key; 

{ 


register struct ipc_j>erm 
register int 


/* ptr to available entry */ 
/* loop control */ 



♦status = 1; 

bas6->mode - IPC_ALLCX: i (flag & 0777); 
base->key - key; 

base->cuid = base->uid - u.u_uid; 
base->cgid = base->gid = u.u_gid; 
return(base); 
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/* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

* 

* Interrupt handler for level 2 interrupts. 

* keyboard, mouse, real time clock, on/off switch 
*/ 

finclude "sys/param.h" 

^include “sys/types.h" 

^include "sys/rarau.h* 

♦include "sys/reg.h" 

♦include "sys/local.h" 

♦include "sys/cops.h” 

♦include "sys/keyboard.h" 

♦include "sys/mousc.h" 

♦include **sys/ms.h" 

♦include "sys/12.h" 

♦include "sys/kb.h" 

extern struct rtime rtirae; 

char *kb_keytab - ToLA; 

char kb__altkp; /* are we in alternate keypad mode’ (set in vtlQO.c) */ 

char pportplug; 
char ms_j)lg, ms_btn; 
short ms_row, ms_col; 

kbintr() 

{ 

register char i; 

register struct device_e *p - COPSADDR; 
register char a, ud; 
register int tmp; 
extern tirae_t Ibolt; 

♦ifdef SUNIX 

extern char kb_getchr; /* flag for polling keyboard */ 

♦endif SUNIX 

a =■ p->e_ifr; /* Read and save reason for interrupt */ 

if (a & FCAl) { /* keyboard input */ 

i - p->e_ira; /* get keyboard/mouse input */ 

if (a & FTIMERl) 

a = COPSADDR“>e_tlcl; /* prime timer */ 

} else { /* no character input */ 

a = COPSADDR->e_tlcl; /* prime timer */ 

if (—kb_reptrap =*= 0) 

kbrepeatO; /* possible char repeat */ 

return; 

} 

switch (kb_state) { 

case NORMALWAIT: /* IDLE LOOP */ 

Ud - i & 0x80; /* whether up or down keycode */ 

12_dtrap == Ibolt + 12_dtime; /* reset dim delay */ 
if (12_diiamed) /* restore screen intensity */ 

12undim(); 

a » kb_keytab[i & 0x7F];/* convert to ascii */ 
if (ud) { /* "key went down" bit */ 

/* clickO; /* key click */ 

if (ARROW(i,a)) { /* check arrow keys */ 

kb_chrbuf == Esc; /* send 3-char sequence */ 

cointr(0); 

kb_chrbuf - 't'; 

cointr(0); 

kb_chrbuf - a; 

cointr(0); 

goto out; 

) 

if (kb_altkp) { /* send special sequence for keypad chars */ 

if (a. = altkpad[i & 0x7F]) {/* is it in the keypad? */ 


/* send 3-char sequence */ 


kb_chrbuf = Esc; 
cointr(0); 
kb_chrbuf - 'O'; 
cointr(0); 
kb_chrbuf “ a; 
cointr{0); 
goto out; 

} 

a == kb_keytab[i S 0x7F];/* reset to ascii */ 

} 

if (a >“ Q) { /* ascii 2 */ 

kb_keycount++; 
if (kb_ctrl) a 4- OxlF; 
else if (kb_keycount -—1) { 

kb_reptrap = kb_repwait; 
kb_lastc - a; 

} else kb_reptrap = Q; 
kb_chrbuf = a; 
cointr(0); 
goto out; 

} else { /* key went up */ 

kb_reptrap = 0; 
if (a >« 0) { 

if (kb_keycount— < 0) { 
kb_keycoi 2 nt - 0; 

} 

goto out; 

} 

} 

switch (a £ OxF) { 

case KB_CTRL: kb_ctrl - ud; kb_reptrap - 0; msintr (M_CTL) ; 

goto out; 

case KB_SHFT: kb_shft = ud; kbsetcvtab(); msintr(M_SFT); 

goto out; 

case KB_LOCK: kb_lock = ud; kbsetcvtab(); goto out; 

case KB_OFF: printf("[SOFT OFF %x]\n",i); goto out; 

case KB_MSP: ras_j)lg = ud; msintr (M_PLUG); goto out; 

case KB_MSB: ms_btn * ud; msintr(M_BUT); goto out; 

case KB_PPORT; pportplug = ud; goto out; 

case KB_D2B: printf("[disklbutton %x3\n",i); goto out; 

case KB_D2P; printf("[diskl %x]\n",i); goto out; 

case KB_D1B: printf("[disk2button %x]\n",i); goto out; 

case KB_D1P; printf("[disk2 %x]\n",i); goto out; 

case KB_STATE: if (ud 0) { 

kb_state = MOUSERD; 

} else 

kb_state - RESETCODE; 
goto out; 

default: printf("invalid key[0x%x]",i); 

} 

goto out; 

case MOUSERD: /* PICKUP Y axis change in mouse pos */ 

kb_state = YMOUSE; 
ms_col - (short)i; 
goto out; 

case YMOUSE: /* PICKUP Y axis change in mouse pos */ 

kb_State - NORMALWAIT; 
ras_row - (short)i; 
msintr(M_MOVE); 
goto out; 

case RESETCODE: /* special condition */ 

switch (i & OxFF) { 

case KB_KBCOPS; /* keyboard cops failure detected */ 
printf("KEYBOARD COPS FAILURE\n"); 
break; 

case KB_IOCOPS: /* 10 board cops failure detected */ 
printf("10 BOARD COPS FAILUREXn"); 
break; 

case KB_UNPLUG: /* keyboard unplugged */ 

kb_chrbuf - 's'tOxlF; /* cntl S */ 

cointr(0); 

break; 

case KB_CLOCKT: /* clock timer interrupt */ 

printf("Real Time Clock interruptXn"); 
break; 
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case KB_SFTOFF: /* soft power switch */ 
kb_state = SHUTDOWN; 
printf(“Shutting down...\n"); 


update(); 

for (tiap =■ 0; tmp < 500000; tiap++) ; 

12_crate “ 2; 

12_desired “ TOTALDIM; /* completely blacken screen */ 
12rarap{Q); 

12ramp(Q); 

SPL7(); /* extreme priority */ 

12copscmd(SHUTOFF); 

rom_mon{); /* return to the ROM monitor */ 


/*NOTREACHED*/ 

default; switch (i & OxFO) { 
case KB__RESERV: 

printf(“[Reserved keycode 0x%xl\n“,i); 
break; 
case KB_RDCLK: 

rtime.rt_year = (i & OxF) + 10; 
kb_state - CLKREAD; 
goto out; 

default: 

kb_idcode = i; 

kb_chrbuf - 'q'&OxlF; /* cntl Q */ 
cointr(0); 

printf(“Keyboard type 0x%x\n“,i); 

} 

1 

kb_state - NORMALWAIT; 
goto out; 
case CLKREAD; 

rtime.rt_day •* (((ii0xF0)»4) *10 + (i&0xF))*10; 
kb_state++; 
goto out; 
case CLKREAD+l; 

rtime.rt_day +- (i&OxFO) » 4; 
rtime.rt_hour = (i & QxF) * 10; 
kb_state++; 
goto out; 
case CLKREAD+2: 

rtime.rt_hour += (i & OxFO) » 4; 
rtime.rt_min - (i & OxOF) * 10; 

]cb_state++; 
goto out; 
case CLKREAD+3: 

rtime.rt_min += (i & OxFO) » 4; 
rtime.rt_sec * (i i OxOF) * 10; 
kb_state++; 
goto out; 
case CLKREAD+4: 

rtime.rt_sec +-= (i & OxFO) » 4; 
rtime.rt_tenth = i & OxOF; 
kb_state = NORMALWAIT; 
rtcsettodO ; 
goto out; 
case SHUTDOWN: 

goto out; 

} 

out: 

#ifdef SUNIX 

if (iud) 

kb_getchr - 0; 

#endif SUNIX 
} 

kbrepeat () 

{ 

kb_reptrap - kb_repdlay; /* reset repeat timeout */ 

if (kb_keycount —I) ( 

kb_chrbuf - kb_lastc; 

/* clickO; /* key click */ 
cointr(0); 

) else 

kb_reptrap - 0; /* reset repeat timeout */ 


kbsetcvtab() 

{ 

kb_keYtab =“ ccvtab[ (kb_shft?2:0) + (kb_lock?l:0) ]; 
kb_reptrap =0; 

} 
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/* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

* Interrupt handler for level 1 interrupts. 

* parallel port 0, sony, and video circuit controller 

* 

* Since the Parallel Port hard disk interrupt comes in at this level 

* as well as the Sony and vertical retrace (clock) we have included 

* this so we may only call the actual interrupt routine when really 

* necessary. 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


••sys/parara.h*' 
"sys/config.h" 
"sys/types.h" 
••sys/systm.h" 
"sys/dir.h" 
"sys/signal.h" 
"sys/user.h" 
"sys/proc.h" 
••sys/errno.h" 
'•sys/file.h*' 
"sys/tty.h" 

"sys/termio.h" 
"sys/conf.h" 
"sys/sysinfo.h” 
"sys/var.h" 
**sys/reg.h" 

"setjmp.h" 
"sys/ramu.h" 
<sys/pport.h> 
<sys/cops.h> 
<sys/mouse.h> 


unsigned char msvrcnt; 
extern struct msparms mpana; 
extern struct proc *rasproc; 
extern char msblkd; 
extern char msvrmsk; 


llintr(ap) 
struct args *ap; 

{ 

unsigned char a; 

register struct device_d *devp = PPADDR; 
register struct device_e *f = COPSADDR; 


a - devp->d_ifr; 
if (a & (FCAl I FTIMERl)) { 
ap->a_dev » 0; 
ppintr(ap); 

} else { 


/* read intr flag register */ 

/* set to port number instead of clock value 
/* built in parallel port */ 


if ((f->e_irb & FDIR) 1= 0) 

snintrO; /* sony interrupt */ 

else { /* verticle retrace interrupt */ 

if ((raparm.mp_flags fi MF_VRT) !- 0) { 


VROFF “ 1; 

if (msvrcnt++ >« msvrmsk) { 
msvrcnt - 0; 
if (msblkd) { 

msblkd “ 0; 

wakeup((caddr_t)firasblkd); 

) 


psignal(msproc,SIGMOUS); 

} 

VRON = 1; 


} else { 

do { 

VROFF - 1; 

VRON - 1; 

) while ((STATUS & S_VR) -- 0); 


*/ 


} 

clock(ap); 
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/* tdefine HOWFAR */ 

/* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

* 

* Level 2 special functions handler 

* Used to drive keyboard, speaker, mouse, real time clock, screen contrast, 

^ and soft on/off circuitry. 

* All processing is done through the Keyboard SY6522 (8addr DCOO) with the 

* exception of the screen contrast which is sent through the Hard disk 6522. 
*/ 

^include '‘sys/param-h'’ 

♦include **sys/config.h" 

♦include "sys/types.h" 

♦include "sys/systm.h" 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/file.h" 

♦include "sys/tty.h" 

♦include "sys/terraio.h" 

♦include "sys/conf.h" 

♦include "sys/sysinfo.h'* 

♦include "sys/var.h" 

♦include "sys/reg.h" 

♦include "setjmp.h" 

♦include "sys/ramu.h" 

♦include "sys/cops.h" 

♦include "sys/local.h" 

♦include ■sys/12.h" 

♦include "sys/kb.h” 

♦ include **sys/sony.h" 

♦define DIMSCREEN 

/* The contrast control latch is hanging off the Parallel Port VIA but 

* is only changed in response to a level2 timer interrupt. Syncronization 

* with the hard disk is necessary since they both use the parallel port data 

* bus. This is done by having the disk driver maintain a variable called 

* 'ppinuse'. Sfhen this variable is zero we can ramp the console contrast. 

* Otherwise we set ppcontchg and the disk driver will call 12ramp as soon 

* as it's convenient. 

*/ 

♦include <sys/pport.h> 

extern ppinuse; /* flag preventing us from setting contrast */ 

/* 

* Setup Keyboard 6522 VIA appropriately. This is mostly magic dependant on 

* how the chip is connected to its environment in hardware. This procedure 

* is only called once to initialize the interface. 

*/ 

12init() 

register struct device_e *p = COPSADDR; 
register char romid; 
extern int 12dim(); 

12_dtime - 0x4650; 

12_crate -= 1; 

12_dtrap - 12_dtirae; 

12_dimcont - (0x32 « 2); 

12_desired - (ONCONT « 2); 

12_defcont = 12_desired £ OxFC; 

12_contrast - (ONCONT « 2); /* power on contrast */ 

timeout(I2dim, (caddr_t)1, 1); 

12_bvol - 4; 

12_bpitch - 1000; 

12_btime - 6; 
kb_repdlay - 0x20; 

kb^repwait - 0x30; 


} 


p->e_ddra =■ 0; /* bytewide bus connecting to I/O COPS*/ 

p->e_ddrb *> 0x2E; /* PP parity and speaker are outputs */ 

/* PP reset, CRDY, FDIR, £ KBIN; input*/ 
p->e_irb =-= 12_bvol « 1; /* init moderate speaker volumn */ 

p->e_pcr = 0xA3; /* Pulse speaker output, handshake */ 

/* COPS line, and enable leading edge*/ 
p->e_acr ■= 0x41; /* Make Timerl continous (i.e. self- */ 

/* reset), enable latching of COPS bus*/ 
p->e_ier “ 0x7F; /* disable all interrupts */ 

romid = SNIOB->rom_id & RQHMAsK; 

if ((romid — (RQMTW1RQMSU3W)) || ((romid&ROHTW)0)) { /* slow timer */ 
p->e_tlcl “ QxCA; 
p->e_tlch -= 0x27; 
p->e_tlll = OxCA; 
p->e_tllh “ 0x27; 

} else { /* fast timer (includes undefined romid“E0) */ 

p->e_tlcl = 0x7B; 
p->e_tlch - 0x63; 
p->e_tlll - 0x7B; 
p->e_tllh = 0x63; 

} 

p->e_ier «= 0xC2 
p->e_ifr = Qx7F 
12ramp(0); 


/* Enable timerl and COPS bus intr */ 
/* clear pending interrupt flags */ 

/* bring to user selected contrast */ 


/* This procedure is used to send commands to the Keyboard COPS. 

* It is VERY timing-dependent. In particular, nothing can be changed 

* in the part which sets the data direction to out, since this must 

* happen WHILE CRDY drops to the low state. Interrupts are enabled while 

* waiting for this because the line can stay high for as long as 2 ms, 

* although it's typically about 800 microseconds while the mouse is in 

* use. It only stays in the low state for about 4 microseconds before 

* returning to "not ready". 

*/ 

12copscmd(c) 

register char c; /* d7 */ 

{ 

register struct device_e *p = COPSADDR; /* a5 */ 

register char *ddra - &p->e_ddra; /* a4 */ 

register unsigned short dir »» OxFFFF; /* d6 data direction (out) */ 

register short crdy =6; /* d5 CRDY bit for btst */ 

register char i; /* d4 */ 

int pi; 


try: 

pi * spl7(); 
p->e_aira = c; 
asm(" btst 

d5,a5g(l)"); 

/* load cmd into lORA (no handshake) */ 

/* wait 'til not ready */ 

♦define 

asra(" beq 
chkrdy() 

.LI"); 

asm(" 

btst 

/* if already low we're too late */ 
d5,a5e{l)"); \ 


chkrdy0; 
chkrdy(); 

asm(" 

beq 

.L2") 

/* as soon as it's ready (low), go to send */ 


chkrdy(); 
chkrdy(); 
chkrdy(); 
chkrdy(); 
chkrdy(); 
chkrdy(); 
chkrdy(); 
chkrdy(); 
chkrdy(); 
chkrdy(); 
chkrdy(); 
chkrdy(); 
chkrdy {); 

chkrdy0; /* if still high give up, try again later "/ 

asmC'.Ll:"); /* again; */ 

splx(pl); /* restore intrs cause this may take a while */ 

goto try; 

send: a3m(".L2;"); /* send: */ 

*ddra - dir; /* switch dir 68K -> cops (send command) */ 

i - pxlO; 
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do i—; while(i>0); 
dir = 0; 

*ddra - dir; 
splx(pl); 

#ifdef lint 

if (crdy) goto send 
♦endif lint 

/* ARGSUSED */ 

12dim(flg) 

{ 

extern time_t Ibolt; /* time in ticks */ 

#ifdef DIHSCREEN 

if (12_diitimed 0) { /* not dimmed already */ 

if (12_dtrap > Ibolt) { 

timeout(12dim, (caddr_t)0, (int)(12_dtrap - Ibolt)); 
return; 

} 

12_desired = 12_dimcont; 

12_dimmed = 1; 

12ramp(0); 

} 

fifdef HOWFAR 

else printf (''\nffHATi i — 12dim called while screen was dim\n*'); 
tendif HOWFAR 
Oendif DIMSCREEN 
} 

12undim() 

{ 

^ifdef DIMSCREEN 

if (12_dimmed i- 0) { 

12_dtrap == Ibolt + 12_dtime; 
timeout (12dim, <caddr__t)0, 12_dtime) ; 

12_desired = 12_defcont; 

12_diramed =0; 

12ramp(0); 

} 

#ifdef HOWFAR 

else printf (''\nWHAT! I — 12undim called while screen was bright\n”) ; 
^endif HOWFAR 
#endif DIMSCREEN 
} 

12ramp(tflag) 

{ 

register struct device_d *pp; /* aS */ 
register int c; /* d7 */ 

int pi; 

switch (tflag) { 
case 0: 

if (12_rcflag) 
return; 

break; 

case 1: 

12_rcflag - 0; 
break; 

case 2: 

c - 12_desired; 
if (c =— 12_contrast) 
return; 
goto skip; 

} 

c “ 12_desired; /* contrast desired */ 

if 'c ==> 12_contrast) /* finished */ 

return; 

if (ppinuse) { /* port busy, try again in 50 ms */ 

12_rcflag - 1; 

timeout(12ramp, (caddr_*)l, 1); /* try again next clock tick 
return; 

) 


/* who called us */ 

/* somebody starting a ramp */ 


/* timeout (continue ramp) */ 


/* profile driver (kludge) */ 
/* contrast desired */ 

/* finished */ 


/* wait a bit */ 

/* reset dir to cops -> 68K */ 


skip: 


if (c < 12_contra3t) 12_contrast ■>”= 4; else 12_contrast += 4; 
c * 12_contrast; 

12_rcflag - 1; 

timeout(12ramp, (caddr_t)l, 12_crate); 


pi = spl7(); 
pp - PPADDR; 
♦ifdef lint 

c “ (int)pp; 

tendif 


asm(" 

bset 

#2,a5e(0xll) »); 

asm(" 

bset 

#2,a50(l) «); 

asm(" 

movb 

#0xff,a5e(0xl9) " 

asm(" 

movb 

d7,a50(9) «); 

asm(" 

bset 

#7,a50(Oxll) -); 

asm(" 

bclr 

#7,aS0(l) «); 

asm(" 

bset 

#7,a50(l) "); 

asm(" 

bclr 

#7,a50(Oxll) *); 

asm(" 

bclr 

t2,a5e(l) «); 


splx(pl); 
return; 
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/* 

* Line Discipline Switch table 
*/ 

^include "sys/conf.h" 
extern nulldev(); 

extern ttopenO, ttcloseO, ttreadO, ttwriteO, ttinO, ttoutO; 
struct linesw linesw[] = { 

/* 0 */ ttopen, ttclose, ttread, ttwrite, nulldev, ttin, ttout, nulldev, 
}; 

int linecnt = 1; 



lock. c 


Fri Sep 


5 19:07:52 1986 


1 


/* 8(*)lock.c 1.2 */ return(l) 

♦include "sys/param.h" ) 

♦include "sys/types.h" 

♦include "sys/ramu.h" 

♦include "sys/proc.h" 

♦include **sys/dir .h®* 

♦include "sys/signal.h" 

♦include "sys/user.h” 

♦include "sys/errno.h" 

♦include "sys/text.h" 

♦include "sys/lock.h" 

lock{) 

{ 

struct a { 

long oper; 

}; 


if (IsuserO) 

return; 

switch(((struct a *)u.u_ap)->oper) { 
case TXTrxXTK: 

if ((U.U_lock&(PROCLOCK ITXTLOCK)) | | textlock 0 “ 0) 
goto bad; 

break; 
case PROCLOCK: 

if (U.U_lock4 (PROCLOCKITXTLOCK)) 
goto bad; 

(void) textlockO; 
proclock(); 
break; 

case DATLOCK: 

if (U.u_10Ck&(PROCLOCK IDATLOCK)) 
goto bad; 

u.u_10Ck 1“ DATLOCK; /* NOP for VAX */ 
break; 

case UNLOCK: 

if (punlockO = 0) 
goto bad; 

break; 


default: 

bad: 

u.u_error = EINVAL; 

} 

} 

textlock() 

{ 

if (u.u_procp“>p_textp NULL) 
return(0); 

u.u_lock 1= TXTLOCK; 
return(1); 

} 

tunlockO 

{ 

if (u.u_procp->p_textp “ NULL [I (u.u_lock4TXTLOCK) -= 0) 
return; 

u.u_lock 4- -TXTLOCK; 

} 

proclock 0 

{ 

u.u_procp->p_flag !- SSYS; 

U.U_l0Ck I- PROCLOCK; 

) 

punlockO 

if ((U.U_lock4(PROCLOCK 1TXTLOCK1DATLOCK)) — 0) 
return(0); 

u,u_procp->p_flag 4- ~SSyS; 

U. Unlock 4- -PROCLOCK; 

U.ulock 4- -DATLOCK; 
tunlock O; 
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♦include "sys/param.h" 

♦include "sys/types.h" 

♦include "sys/sysmacros.h" 

♦include "sys/systm.h" 

♦include "sys/sysinfo.h" 

♦include •• sys/mount .h” 

♦include "sys/dir.h" 

♦include "sys/signal.h*‘ 

♦include **sys/user .h" 

♦include "sys/errno.h” 

♦include "sys/inode.h" 

♦include "sys/file.h” 

♦include "sys/ino.h** 

♦include "sys/filsys.h” 

♦include "sys/buf .h** 

♦include "sys/var.h** 

♦include "sys/proc.h" 

♦include "sys/locking.h" 

/* 

* file lock routines 

* John Bass, PO Box 1223, San Luis Obispo, CA 93401 

* Original design spring 1976, CalPoly, San Luis Obispo 

* Deadlock idea from Ed Grudzien at Basys April 19S0 

* Extensions Fall 1980, Onyx Systems Inc., San Jose 

* Linted and ported to System V by UniSoft Systems, Berkeley, CA. 

*l 

♦define MAXSIZE (long) {1L«30) /* number larger than any request */ 

struct locklist *deadlock(); 

/* 

* locking — handles syscall requests 
*/ 

locking() { 

struct file *fp; 
struct inode *ip; 

/* 

* define order and type of syscall args 
*/ 

register struct a { 
int fdes; 
int flag; 
off_t size; 

} *uap - (struct a *)u.u_ap; 
register struct locklist *cl, *nl; 
off_t LB, UB; 

/* 

* check for valid open file 
*/ 

fp - getf(uap->fdes); 
if(fp “ NULL) return; 
ip = fp->f_inode; 
if ((ip->i_mode&IFMT) -= IFDIR) { 
u,u_error - EACCES; 
return; 

/* 

* validate ranges 

* kludge for zero length 
*/ 

LB * fp->f_offset; 
if( uap->size ) { 

UB = LB + uap->size; 
if(UB <- 0) UB - MAXSIZE; 

} 

else U3 = MAXSIZE; 

/* 

* test for unlock request 
*/ 

if{uap->flag — 0) { 

I* 


starting at list head scan 
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if(locked(uap->flag, ip, LB, UB))return; 

cl ” (struct locklist *)4ip->i_locklist;/* note addr is pointer */ 

/* 

* simple case, no existing locks, simply add new lock 
*/ 

if( (nl“Cl->ll_link) — NULL ) { 

(void) lockadd(cl, LB, UB); 
return; 

} 

/* 

* simple case, lock is before existing locks, 

* simply insert at head of list 
*/ 

if( UB < nl->ll_start ) { 

(void) lockadd{cl,LB,UB); 
return; 

) 

/* 

* ending range of lock is same as start of lock by 

* another process, simply insert at head of list 
*/ 

if( UB <” nl“>ll_start 44 u.u_j>rocp i= nl“>ll_proc ) { 

(void) lockadd(cl, LB, UB); 
return; 


* request range overlaps with begining of first request 

* modify starting point in lock to include requested region 
*/ 

if( UB >“ nl->ll_start 44 LB < nl->ll_start ) { 
nl->ll_start “ LB; 

} 

/* 

* scan thru remaining locklist 
*/ 

cl “ nl; 
for (;;) { 

/* 

* actions for requests at end of list 
*/ 

if( ( nl = cl->ll_link ) == NULL ) { 
f* 

* request overlaps tail of last entry 

* extend end point 
*/ 

if( LB <■= cl->ll_end 44 u.u_j>rocp == cl->ll_proc ) { 
if( UB > cl->ll_end ) cl->ll_end = UB; 
return; 


otherwise add new entry 


(void) lockadd(cl, LB, UB); 
return; 


if more locks in range skip to next 
otherwise stop scan 


if( nl->ll_start < LB ) { 
cl - nl; 


if upper bound is fully resolved were done 
otherwise fix end of last entry or add new entry 


if(UB <- cl->ll_end) return; 

if(LB <- cl->ll_end 44 u.u_procp “ cl->ll_proc) cl“>ll_end - UB; 


if( lockadd(cl, LB, UB) ) return; 
cl - cl-Ml_link; 



/* 

* locked — routine to scan locks and check for a locked condition 
*/ 

locked(flag, ip, LB, UB) 
register struct inode *ip; 
off_t LB, UB; 

{ 

register struct locklist *nl - ip-’>i__locklist; 


/* 

* scan list while locks are in requested range 
*/ 

while(nl NULL 44 nl->ll_start < UB) { 

/* 

* skip locks for this process 

* and those out of range 
*/ 

if( nl->ll_proc ” u.u__procp | | nl->ll_end <= LB) ( 
nl = nl->ll_link; 
if(nl =“ NULL) return(NULL); 
continue; 

) 

/* 

* must have found lock by another process 

* if request is to test only, then exit with 

* error code 
*/ 

if(flag>l) { 

u.u_error - EACCES; 
return(1); 

} 

/* 

* will need to sleep on lock, check for deadlock first 

* abort on error 
*/ 

if(deadlock(nl) 1- NULL) return(l); 

/* 

* post want flag to get awoken 

* then sleep till lock is released 
*/ 



locking.c 


Fri Sep 5 19:07:53 1986 


3 


nl->ll_flags I- IKAHT; 

(void) sleep( (c:addr_t)nl, PSLEP); 

/* 

* set scan back to begining to catch 

* any new areas locked 

* or a partial delete 
*/ 

nl - ip“>i_locklist; 

/* 

* abort if any errors 
*/ 

if(u.u_error} return{1); 

} 

return(NULL); 

} 

/* 

* deadlock — routine to follow chain of locks and proc table entries 

* to find deadlocks on file locks. 

*/ 

struct locklist * 
deadlock(Ip) 

register struct locklist *lp; 

{ 

register struct locklist *nl; 

/* 

* scan while the process owning the look is sleeping 
*/ 

while(lp->ll_proc->p_stat ■“ SSLEEP) { 

/* 

* if the object the process is sleeping on is 

* NOT in the locktable every thing is ok 

* fall out of loop and return NULL 
*/ 

nl = lp->ll_proc->p_wlock; 

if( nl < filocklisttO] li nl >= Slocklist[(short)v.v_flock] ) 
break; 

/* 

* the object was a locklist entry 

* if the owner of that entry is this 

* process then a deadlock would occur 

* set error exit and return 
*/ 

if(nl“>ll_j>roc — u.u_j>rocp) { 
u.u_error “ EDEIADLOCK; 
return(nl); 

} 

/* 

* the object was a locklist entry 

* owned by some other process 

* continue the scan with that process 
*/ 

Ip = nl; 

} 

return(NULL); 

} 

/* 

* unlock — called by close to release all locks for this process 
*/ 

unlock(ip) 
struct inode *ip; 

{ 

register struct locklist *nl; 
register struct locklist *cl; 

cl - (struct locklist *)4ip->i_locklist; 
while ( (nl = cl->ll_link) := rJLL) { 

if(nl->ll_proc — u.u_procp) { 

cl->ll_link = nl->ll_link; 
lockfree(nl); 

} 

else cl - nl; 

} 

] 


/* 

* lockalloc — allocates free list, returns free lock items 
*/ 

struct locklist * 
lockalloc(){ 

register struct locklist *fl “ Slocklist[0]; 
register struct locklist *nl; 

/* 

* if first entry has never been used 

* link the locklist table into the freelist 
*/ 

if (fl->ll_j)roc = NULL) { 

fl->ll_prac “ &proc[0]; 

for(nl- Slocklist[1]; nl < slocklist[(short)v.v_flock]; nl++) { 
lockfree(nl); 

} 

} 

/* 

* if all the locks are used error exit 
*/ 

if( (nl“fl->ll_link) — MULL) { 
u.u_error = EDEADIOCK; 
return(NULL); 

} 

/* 

* return the next lock on the list 
*/ 

fl'->ll_link - nl~>ll_link; 
nl->ll_link - NULL; 
return(nl); 

} 

/* 

* lockfree — returns a lock item to the free list 
*/ 

lockfree(Ip) 

register struct locklist *lp; 

{ 

register struct locklist *fl = Slocklist[0]; 

/* 

* if some process is sleeping on this lock 

* wake them up 
*/ 

if(lp->ll_flags S IWANT) { 

lp->ll_flags s- -IWANT; 
wakeup((caddr_t)lp); 

} 

/* 

* add the lock into the free list 
*/ 

lp->ll_link » fl->ll_link; 
fl->ll_link “ Ip; 

) 

/* 

* lockadd — routine to add item to list 
*/ 

lockadd(cl,LB,UB) 

register struct locklist *cl; 

off_t LB,UB; 

{ 

register struct locklist *nl; 

/* 

* get a lock, return if none available 
*/ 

nl - lockalloc0; 
if(nl ■=*“ NULL) { 

return(1); 

} 

/* 

* link the new entry into list at current spot 

* fill in the data from the args 
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*/ 

nl->ll_lin]c - cl->ll_link; 
cl->ll_link = nl; 
nl->ll_j>roc = u.u_procp; 
nl->ll_start * LB; 
nl->il_end * U3; 
return(0); 
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/* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

* Driver for Centronix Citoh Dot Matrix Printer 
*/ 

^include "sys/param.h" 
finclude "sys/config.h" 

#include *• sys/types .h" 

#include "sys/sysmacros.h” 
tinclude "sys/systm.h" 

^include "sys/dir.h” 

^include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/file.h” 

♦include "sys/tty.h” 

♦include "sys/termio.h" 

♦include "sys/conf.h" 

♦include "sys/sysinfo.h" 

♦include "sys/var.h" 

♦include "sys/reg.h" 

♦include "setjmp.h*' 

♦include "sys/mmu.h" 

♦include “sys/cops.h” 

♦include "sys/pport.h" 

extern struct device_d *pro_da[]; 

♦define LPPRI (PZERO+8) 

♦define LPLOWAT 40 
♦define LPHIWAT 100 
♦define LPHAX NPPDEVS 

struct Ip { 


struct 

clist 

l_outq; 

char 

flag. 

ind; 

int 

ccc, mcc, mlc, 

int 

line. 

col; 

int 

dev; 



} lp_dt [ LPHAX] ; 

/* 

* flag values - PORT, CAP and NOCR bits from minor device 

*/ 


♦define 

PORT 

OxOF 

/* 

which port - 1,2,4,5,7,8 */ 

♦define 

CAP 

0x10 



♦define 

NOCR 

0x20 



♦define 

ASLP 

0x40 

/* 

only set within driver */ 

♦define 

OPEN 

0x80 

/* 

only set within driver */ 

♦define 

physical(d) 

((minor(d)) 

4 PORT) 

♦define 

FORM 

014 



♦define 

NO_OP 

asm(" 

nop ") 



char lpflg[LPMAX]; /* whether we expect another interrupt »/ 

/* ARGSUSED */ 

Ipopen(dev, mode) 
register dev_t dev; 

{ 

register unit; 
register struct Ip *lp; 
register unsigned char zero; 
register struct device_d *p; 
int IpintrO; 
extern char slot{]; 


unit - physical(dev); 
SPL5 ( ) ; 


/* check expansion slot number and type (must be 2-port card) */ 

if (fPPOK(unit) il (slot[PPSLOT(unit)] I- PRO)) { 

err: 

u.u_error * EIO; 

fini; 

SPLOO; 

return; 

} 

if ((Ip = Slp_dt[unit])->flag) { 
goto err; 

} 

if (setppint (pro_da[iinit],lpintr)) { /* port is already busy */ 

u.u_error = ENODEV; 
goto fini; 

) 

p = pro_da [xmit] ; 
zero = 0; 

p->d_acr - 0; /* no output latching */ 

NO_OP; 

p->d_pcr = 0x6B; /* set controller CA2 pulse mode strobe */ 

NO_OP; 

p->d_ddra =“ -1; /* set port A bits to output */ 

NO_OP; 

/*if (p -== PPADDR) from system III 

p->d_ddrb &= Qx5C; set BSY and OCD to input 

else */ 

p->d_ddrb 4- OxDC; /* two or four port cards */ 

NO_OP; 

p“>d_ddrb |= 0x9C; /* set port B bits 2,3,4,7 to out */ 

NO_OP; 

p->d__irb 4- ~(DEN}DR»); /* disable buffers */ 

NO_OP; 

p->d._irb 1= WCNT; /* set direction to output */ 

NO_OP; 

p->d_ier = FIRQIFCAI; /* enable interrupt on busy */ 

NO_OP; 

zero = p->d_irb; 

if (zero 4 OCD) { /* out of paper ?? */ 

printf("Ipopen; cable disconnect or out of paper\n"); 

out: 

freeppin(p); 
goto err; 

} 

if ((zero 4 PCHK) — O) { /* online ?? */ 

printf("Ipopen; (ddrb - %x) offline\n",zero); 
goto out; 

} 

lp->flag ■= (dev 4 (PORT | CAP | NOCR)) I OPEN; 

lp->ind - 4; 

lp->col - 80; 

lp->line “ 66; 

lp->dev - dev; 

Ipoutputdp, FORM); 

SPLO(); 


lpclose{dev) 
register dev_t dev; 

{ 

register unit; 
register struct Ip *lp; 

unit - physical(dev); 

Ip - 4lp_dt[unit]; 

Ipoutputdp, FORM); 

SPL5() ; 

while dpflg[unit]) { 

lp->flag I” ASLP; 

(void) sleep((caddr_t)Ip, LPPRI); 

) 

freeppin (pro_da [iinit]) ; 
lp->flag - 0; 

SPLO (); 
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Ipwrite(dev) 
register dev_t dev; 

{ 

register unit; 
register c; 

register struct Ip *lp; 

unit “ physical(dev); 

Ip - &lp_dt[unit]; 
while (u.u_count) { 

SPL5(); 

while(lp->l_outq.c_cc > LPHIHAT) { 

Ipintr(unit); 
lp->flag I- ASLP; 

(void) sleep((caddr_t)Ip, LPPRI); 

} 

SPLO(); 

c = fubyte(u.u_base++); 
if (c < 0) { 

u.u_error - EFAULT; 
break; 

) 

u.u_count—; 

Ipoutput(Ip, c); 

} 

SPL5() ; 

Ipintr(unit); 

SPLO 0 ; 

} 

Ipoutput(Ip, c) 
register struct Ip *lp; 
register c; 

{ 

if(lp->flag4CAP) { 

ifiO^'a' && c<*'z') 

c +“ 'A'-'a'; else 
switch(c) { 
case ': 

c = M'; 
goto esc; 
case ': 

c - ')'; 
goto esc; 
case ' '': 

c = 

goto esc; 

case ' \ * 

c “ ' i' ; 
goto esc; 
case : 

c = • ; 

esc; 

Ipoutput(Ip, c); 
lp“>ccc—; 
c - * -•; 

} 

} 

switch(c) { 
case * \t' ; 

lp->ccc - ((lp->ccc+8'-lp->ind) & -7] + lp->ind; 
return; 
case '\n': 

lp-‘>ralc++; 

if(lp->mlc >= lp->line ) 
c - FORM; 

case FORM: 

lp->incc - 0; 
if (lp->ralc) ( 

(void) putc(c, tlp->l_outq); 
if(c — FORM) 

lp->mlc - 0; 

} 

case '\r': 

lp->ccc - lp->inid; 


SPLS () ; 

Ipintr(lp->dev); 

SPLO(); 
return; 
case 010: 

if(lp->ccc > lp->ind) 
lp->ccc—; 

return; 
case ' ': 

lp->ccc++; 

return; 

default: 

if(lp->ccc < lp->mcc) { 

if (lp->flagSNOCR) { 
lp->ccc++; 
return; 

(void) putc('\r', &lp->l_outq); 
lp->mcc = 0; 

} 

if(lp->ccc < lp->col) { 

while (lp^>ccc > lp->nicc) { 

(void) putc(' &lp->l_outq); 
lp->mcc++; 

(void) putc(c, &lp->l_outq); 
lp“>racc++; 

1 

lp->ccc++; 

} 

} 

Ipintr(dev) 
register dev; 

{ 

register struct Ip *lp; 
register struct device_d *p; 
register c; 

dev physical (dev) ; 
if (lpflg[dev]) return; 

Ip = &lp_dt[dev]; 
p = pro_da[dev]; 

while ((c - getc(&lp->l_outq)) >“ 0) { 
lpflg[dev] - 1; 
p->d_ira -= c; 
c = 30; 

while ((p->d_ifr & FCAl) >=0) { 
if (—c <- 0) 

return; 

} 

lpflg[dev] “0; 

} 

if (lp->l_outq.c_cc <- LPLOWAT && lp->flag4ASLP) { 
lp->flag &- -ASLP; 
wakeup((caddr_t)Ip); 

} 

} 

/* ARGSUSED */ 

lpioctl(dev, cmd, arg, mode) 

{ 

} 
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/*#define HOWFAR */ 

linclude "sys/param.h" 

^include "sys/config.h" 

#include "sys/mrau.h" 

^include "sys/types.h" 

^include "sys/sysraacros.h" 

^include "sys/systm.h" 

♦include "sys/dir-h" 

♦include "sys/signal.h“ 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/proc.h** 

♦include "sys/context.h” 

♦include "sys/seg.h” 

♦include "sys/map.h" 

♦include "sys/reg.h" 

♦include “sys/psl.h" 

♦include "sys/utsnarae.h” 

♦include "sys/ipc.h** 

♦include "sys/shm.h" 

♦include "sys/var.h" 

♦include "sys/scat.h" 

♦include "setjrap.h" 

typedef int mem_t; 

♦define LOW (USTARTiOxFFFF) /* Low user starting address */ 

♦define HIGH ({USTART»16) fiOxFFFF) /* High user starting address */ 

♦define HEMFACT 8/10 /* swap space to free memory minimum ratio */ 

int keroff; /* kernel memory offset */ 

extern short segoff; /* ramu segment offset */ 

/* 

* Icode is the bootstrap program used to exec init. 

*/ 

short icode[] - { 




/* 


.=USTART 

*/ 

0X2E7C, 

HIGH, LOW+OxlOQ, 

r/* 


movl 

♦USTART+OxlOO, 

■ sp*/ 

0x227C, 

HIGH, LOW+0X26, 

/* 


movl 

♦envp,al 

*/ 

0x223c, 

HIGH, LOW+0X22, 

/* 


movl 

♦argp,dl 

*/ 

0x207C, 

HIGH, LOW+OX2A, 

/* 


movl 

♦name,a0 

*/ 

0x42A7, 


/* 


clrl 

sp@- 

*/ 

0x303C, 

0x3B, 

/* 


movw 

♦59.,dO 

*/ 

0x4E40, 


/* 


trap 

♦0 

*/ 

0x60FE, 


/* 


bra 


*/ 

HIGH, 

LOW+OX2A, 

/* 

argp: 

.long 

name 

*/ 

0, 

0, 

/* 

envp: 

• long 

0 

*/ 

0X2F65, 

0x7463, 0X2F69, 

/* 

name: 

.asciz 

"/etc/init" 

*/ 

0x6E69, 

0x7400 







}; 

int szicode = sizeof(icode); 

/* 

* startup code 
*/ 

/* ARGSUSED */ 

Startup(cudot) 

{ 

extern int nsysseg, dispatch[]; 
extern caddr_t end, etext; 
extern struct var v; 
register caddr_t cp, limit; 
register long *ip; 

for (ip - &((long *) 0) [0]; ip < 4((long *) 0)[NIVEC]; ip++) 
*ip = (long)dispatch + (long)ip; 

/* 

* free swap memory 
*/ 

mfree(swapmap, nswap, 1); 

keroff “ btac( (unsigned) & end) + v.v__usize; 


cp - (caddr_t)(ctob{btoc((unsigned)Send)+v.v_usize)); 

limit = (caddr_t)(((*((long *)MEMEND)) S OxFFFFFEOO)-ctob(l)); 

♦ifdef HOWFAR 

printf("Segment offset - Qx%x, first click at %d(0x%x)\n\r", 
segoff, keroff, keroff); 
printf("First free memory - 0x%x\n", cp); 
printf("Last free memory = Ox%x\n", limit); 
printf("%d clicks available\n",btoc((int)limit)-keroff); 

♦endif 

for ( ; cp < limit; cp +- ctob(l)) { 
clearseg((int)btoc((int)cp)); 
maxmem++; 

} 

cp = (caddr_t)(btoc((unsigned)Send)+v.v_usize); 
mfree(COremap, maxmem, (int)cp); 

printf("Available user memory is %d bytes\n\r", ctob((long)maxmem)); 
if (maxmem > dtoc(nswap*MEMFACT)) { 

maxmem “ dtoc(nswap*MEMFACT); 

printf("Insufficient swap space for available roemory.Xn"); 
printf("Largest runnable process is %d.\n", ctob(maxmem)); 

} 

if (MAXMEM < maxmem) maxmem MAXME^M; 

} 

/* 

* iocheck - check for an I/O device at given address 
*/ 

iocheck(addr) 
caddr_t addr; 

{ 

register int *saved__jb; 
register int i; 
jmp_buf jb; 

saved_jb *= no fault ; 
if (isetjmp(jb)) { 

nofault = jb; 
i - *addr; 

i = 1; 

} else 

i = 0; 

nofault “■ saved_jb; 
return(i); 

) 

/* 

* usraccess - Check a virtual address for user accessibility. 

*/ 

usraccess(virt, access) 
long virt; 

{ 

register prot; 

SEG1_1 - 1; /* user context */ 

/* SEG2_Q - 1; /* user context */ 

prot “ getrarau((short *)(vtoseg(virt) | ACCLIM)) & PROTMASK; 

/* printf("usraccess at 0x%x is 0x%x\n", virt, prot); */ 

if (prot -- ASRW 1t prot “ ASRWS I I (prot — ASRO && access — RO)) 
return(1); 

return(0); 

} 

/* 

* vtop - Convert virtual address to physical. 

*i 

caddr_t 
vtop(virt) 

register caddr_t virt; 

( 

long segbase, phys; 

SEG1_1 - 1; /* user context */ 

/* SEG2^0 - 1; /* user context */ 
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segbase getramu((short *) (vtoseg(virt) 1 ACCSEG)) & SEGBASE; 
phys - (segbase « VIRTSHIFT) + ((long)virt i OFFMASK); 
return((caddr_t)(phys - ctob(segoff))); 

/* 

* fuword - Fetch word from user space. 

*/ 

fuword(addr) 
register caddr__t addr; 

{ 

int val; 
jnip_buf jb; 
int *saved_jb; 

if (addr < (caddr_t)v.y_ustart || addr+3 >- (caddr_t)v.v_uend) 
return (-1); 

if ((addr = (caddr_t)vtop(addr)) = (caddr_t)-l) 
return(-1); 
saved_jb - nofault; 
if (fsetjmp(jbn { 

nofault * jb; 
val =• *(int *)addr; 

) else 

val - -1; 

nofault *= saved_jb; 
return(val); 

} 


/* 

* fubyte - Fetch byte from user space. 

*/ 

fubyte(addr) 
register caddr_t addr; 

{ 

register int val; 
jmp_buf jb; 
int *saved_jb; 

if (addr < (caddr_t)v.v_ustart t| addr >- (caddr_t)v.v_uend) 
return (-1); 

if ((addr = (caddr_t)vtop(addr)) “ (caddr_t)-l) 
return(-1); 
saved_jb - nofault; 
if (!setjmp(jb)) { 

nofault - jb; 
val » *addr & 0377; 

} else 

val “ “1; 

nofault “= saved_jb; 
return(val); 

} 

/* 

* suword - Store word into user space. 

*/ 

suword(addr, word) 
register caddr_t addr; 
int word; 

{ 

jmp_buf jb; 

int val, *saved_jb; 

if (addr < (caddr__t)v.v_ustart || addr+3 >- (caddr_t)v.v_uend) 
return (-1); 

if ((addr- (caddr_t)vtop(addr)) — (caddr_t)-l) 
return(-1); 
saved_jb - nofault; 
if (isetjmp(jb)) { 

nofault - jb; 

*(int *)addr - word; 
val - 0; 

} else 

val = “I; 


nofault = saved_jb; 
return(val); 

} 

/* 

* subyte - Store byte into user space. 

*/ 

subyte(addr, byte) 
register caddr_t addr; 
char byte; 

{ 

jiup_buf jb; 

int val, *saved_jb; 

if (addr < (caddr_t)v.v_ustart || addr >= (caddr_t)v.y_uend) 
return (-1); 

if ((addr - (char *)vtop(addr)) = (char *)-l) 
return(-1); 
saved_jb =• nofault; 
if (isetjmp(jb)) { 

nofault = jb; 

*addr - byte; 
val - 0; 

} else 

val - -1; 

nofault - saved_jb; 
return(val); 

) 

/* 

* copyout - Hove bytes out of the system into user's address space. 

*/ 

copyout(from, to, nbytes) 
caddr_t from, to; 
int nbytes; 

{ 

int val; 
jmp_buf jb; 
int *saved_jb; 

^ifdef DGETPUT 

printf("copyout:copying %d bytes to user space 0x%x (p-0x%x) from 0x%x\n", 
nbytes, to, vtop(to), from); 
fendif 

if ((int)to+nbytes > v.v_uend || usraccess((long)to, RW) — 0 I I 
(to - (char *)vtop(to)) => (char *)-l) { 
printf("copyout failed\n"); 
return(-1); 

} 

saved_jb - nofault; 
if (!setjmp(jb)) { 

nofault - jb; 

bit (to, from, nbytes); 

val - 0; 

} else 

val = -1; 

nofault - saved_jb; 
return(val); 

} 

/* 

* copyin - Move bytes into the system space out of user's address space. 
*/ 

copyin(from, to, nbytes) 
caddr_t from, to; 
int nbytes; 

{ 

int val; 
jmp_buf jb; 
int *saved_jb; 

♦ifdef DGETPUT 

printf("copyin;copying %d bytes from user space Ox%x (p-0x%x) to 0x%x\n", 
nbytes, from, vtop(from), to); 

♦endif 

if ( lint) fr/caa+nbytes > v.v_uend il usraccess I (long) from, RO)—0 II 
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(from- (Char *)vtop(from)) “ (char *)-l) { 
printf (“copyin failed-Nn") ; 
return {*-1); 

) 

saved_jb -> nofault; 
if (:setjmp(jb)) { 

nofault - jb; 

bit(to, from, nbytes); 

val - 0; 

} else 

val =■ -1; 

nofault - saved_jb; 
return(val); 

} 

/* 

* copyseg - Copy one click'^s worth of data. 

*/ 

copyseg(from, to) 
int from, to; 

{ 

if (from to) 
return; 

blt512 (ctob(to) , ctob(from), ctob(l)»9); 

} 

/* 

* clearseg -• Clear one click's worth of data. 

*/ 

clearseg(where) 
int where; 

{ 

I* 

printf("clearseg 0x%x (Ox%x)\n", where, ctob(where)); 

*/ 

clear((caddr_t)ctob(where), ctob(1)); 

} 

/* 

* busaddr - Save the info from a bus or address error. 
*/ 

/* VARARGS */ 
busaddr(frame) 
struct { 


long regs[4]; 

/* 

d0,dl,a0,al */ 

int baddr; 

/* 

bsr return address */ 

short fcode; 

/* 

fault code */ 

int aaddr; 

/* 

fault address */ 

short ireg; 

/* 

instruction register 


) frame; 

{ 

u.u__fcode “ frame.fcode; 
u.u_aaddr •« frame.aaddr; 
u.u_ireg = frame.ireg; 

} 

/* 

* dophys - machine dependent set up portion of the phys system call 
*/ 

dophys(phnum, laddr, bcount, phaddr) 
unsigned phnum, laddr, phaddr; 
register unsigned bcount; 

register struct phys *ph; 
register struct user *up; 
register unsigned addr; 
register i; 

up “ 4u; 

if (phnum >- v.v_phys) 
goto bad; 

ph - 4up->u_phys[(short)phnum]; 
ph->u_phladdr - 0; 
ph->ujphsize » 0; 
ph->u_p4ipaddr - 0; 
sureg O; 


if (bcount =“ 0) 
return; 

/* valid logical address ? */ 
addr * laddr; 
if (addr & (-SEGMASK)) 
goto bad; 

i ” ctos(btoc(bcount)); 
while (i— > 0) { 

if ((getmmu((short *)(vtoseg(addr) I ACCLIM)) & PROTMASK) != 
ASINVAL) { 

#ifdef HOWFAR 

printf("addr-0x%x prot-0x%x\n«, 

addr, *(short *)vtoseg(addr)); 

iendif 

goto bad; 

1 

addr += (1«SEGSHIFT) ; 

} 

if ((ctos(btoc(v.v_uend))-ctos(btoc(v.v_ustart))-ctos(up->u_ptsize)- 
ctos(up->u_pdsize)-ctos(up->u_pssize)-ctos(btoc(bcount))) < 0) 
goto bad; 

ph->u_phladdr - laddr; 
ph->u_phsize = btoc(bcount); 
ph->u_phpaddr - phaddr; 
goto out; 

bad: 

up->u_error = EINVAL; 

out: 

/* cxrels e(up->u_procp->p_context); */ 
sureg(); 

} 

/* 

* Scan phys array for physical I/O (raw I/O) transfer verification 
*/ 

chkphys{base, limit) 

{ 

register struct phys *ph; 
register i; 

for (i = 0, = &u.u_j>hys[0]; i < v.v_j>hys; i++, ph++) 

if (ph->u_j>hsize !- 0 base >- ph->u__phladdr && 
limit < ph->u_phladdr+ctob{ph->u_phsize)) 
return(1); 

return(0); 

/* 

* addupc - Take a profile sample. 

*/ 

addupc(pc, p, incr) 
unsigned pc; 
register struct { 

short *pr_base; 
unsigned pr_size; 
unsigned pr_off; 
unsigned pr_scale; 

} *p; 

{ 

union { 

int w form; /* this is 32 bits on 68000 */ 

short s_form[2]; 

} word; 

register short *slot; 

slot “ 4p->pr_base[ (({(pc - p->pr_off) * p->pr_scale) » 16) + 1)»1] 
if ((caddr_t)slot >= (caddr_t)(p->pr_base) && 

(caddr_t)slot < (caddr_t)((unsigned)p->pr_base + p->pr_size)) { 
if ((word. w_form - fuword ((caddr_t) slot)) -1) 

u.u_prof.pr_scale * 0; /* turn off */ 

else { 

word.s_form[0] +- (short)incr; 

(void) suword((caddrt)slot, word.wform); 

} 

) 

1 
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/* 

* backup - Prepare for restart on a bus error. 

*/ 

backup(ap) 
register int *ap; 

{ 

register caddr_t pc; 
register ins; 
extern int tstb; 

pc " (caddr_t)ap[PC] - 2; 
ins = fuword((caddr_t)pc); 

#ifdef HOWFAR 

printf(“backup: pc, ins, tstb - %x, %x, %x. ”, pc, ins, tstb); 

#endif 

if (ins & 0x8000 && (tstb & OxFFFFQOOQ) — (ins & QxFFFFOOOO)) { 
ap[PC] =* (int)pc; 
return(ins | QxFFFFOOOO); 

} 

return(0); /* signify we could not back up */ 

} 

/* 

* sendsig - Simulate an interrupt. 

V 

/* ARGSUSED */ 
sendsig(p, signo) 
caddr_t p; 

{ 

register unsigned long n; 
register int *regp; 
short ps; 

regp = u.u_ar0; 
n == regp[SP] - 6; 
ps = (short)regp[RPS]; 

(void) subyte((caddr_t)n, ps » 8); /* high order byte of ps */ 

(void) subyte{(caddr_t)(n+1), ps); /* low order byte of ps */ 

(void) suword((caddr_t){n+2), regp[PC]); 

regpESP] = n; 

regp[RPS] &= ~PS_T; 

regp[PC] * (int)p; 

} 

/*ARGSUSED*/ 
clkset(oldtime) 
time_t oldtime; 

{ 

/* use real time clock value instead of oldtime */ 
time = rtcdoread(); 

) 


/* 

* create a duplicate copy of a process 
*/ 

procdup(p) 

register struct proc *p; 

[ 

register al, a2, n; 
n - p->p_size; 

if ((a2 = malloc(coremap, n)) — NULL) 
return(NULL); 

al « p->p_addr; 
p->p_addr a2; 
while(n—) 

copyseg(al++, a2++) ; 
return(1); 


) 
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/* ^define HOWFAR *t 

f* e(#)iaain.c 1.7 */ 

^include ''sys/param.h" 

♦include "sys/imnu.h" 

♦include "sys/types.h® 

♦include **sys/sysmacros .h" 

♦include "sys/systm.h" 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h” 

♦include "sys/filsys .h*' 

♦include "sys/mount.h” 

♦include "sys/proc.h*' 

♦include "sys/inode.h” 

♦include "sys/seg.h" 

♦include "sys/conf.h" 

♦include "sys/buf.h" 

♦include "sys/iobuf.h” 

♦include "sys/tty.h" 

♦include "sys/var.h" 

♦include <sys/file.h> 

I* 

* Initialization code, 

* Called from cold start routine as 

* soon as a stack and segmentation 

* have been established. 

* Functions: 

* clear and free user core 

* turn on clock 

* hand craft 0th process 

* call all initialization routines 

* fork - process 0 to schedule 

* - process 1 execute bootstrap 

* 

* loop at low address in user mode — /etc/init 

* cannot be executed. 

*/ 

int maxmem; 

int minmem; 

int physmem; 

int cputype; 

int *nofault; 

struct inode *rootdir; 

main<cudot) 

{ 

register struct user *up; 
register struct proc *p; 
register struct init_tbl *initp; 
extern char oeinmsg[], timestamp[]; 
extern int citiask, cdlimit; 

printfCMC) Copyright 1983 - UniSoft Corporation\n "); 
printf(”%d", cputype ? cputype : 68000); 
printfC Unix System V - August 1983\n\n"); 
printf("Created %s\n\n'', timestamp); 

printf("%s\n", oemmsg); 

/* 

* set up system process 
*/ 

up - &u; 
p - fiproc[0]; 

■fifhdef NONSCATLOAD 

p->p_scat “ 0; 

♦endif 

p->p_addr - cudot; 

P“>p_size - v.v_usize; 
p~>p_stat - SRUN; 
p->p_flag 1- SLOADISSYS; 
p->p_nice - NZRRP; 


up->u_j>rocp =■ p; 
up->u_cmask = cmask; 
up->u_limit - cdlimit; 
up->U_Stack[0] - STKMAGIC; 

startup(cudot); 



/* 

* initialize system tables at priority 7 
*/ 

for (initp = sinit7_tbl[0]; initp->init_func; initp++) 
xHOWFAR 

printf("main calling %s\n", initp->init_msg); 
(*initp->init__func) (); 

} 


{ 


♦ifdef HOSFAR 

printf("about to spl0\n"); 
♦endif HOSFAR 

SPLO(); 

♦ifdef HOWFAR 

printf("now at level 0\n"); 
♦endif HOHFAR 


/* 

* initialize system tables at priority 0 
*/ 

for (initp -= fiinit0_tbl[0]; initp->init_func; initp++) { 
♦ifdef HOWFAR 

printf ("main calling %s\n", initp->init__msg) ; 

♦endif 

(*initp->init_func) () ; 


} 


♦ifdef HOWFAR 

printf("main calling iget\n"); 

♦endif 

rootdir = iget(rootdev, ROOTINO); 
rootdir->i_flag &- -ILOCK; 
up->u_cdir = iget(rootdev, ROOTINO); 
up->u_cdir->i_flag &= ~ILOCK; 
up->u_rdir - NULL; 
up->u_start = time; 


/* 

* create initial processes 

* start scheduling task 
*/ 


♦ifdef HOWFAR 

printf("main calling newprocXn"); 

♦ endif 

if (newproc(O)) { 

♦ifdef HOWFAR 

printf("main calling expandXn"); 

♦ endif 

expand{(int)(v.v_usize + btoc(S2icode))); 

♦ifdef HOWFAR 

printf("main calling estabur\n"); 

♦ endif 

(void) estabur((unsigned)0, (unsigned)btoc(szicode), 
(unsigned) 0, 0, RO); 

♦ifdef HOWFAR 

printf("main calling copyout\n"); 

♦ endif 


(void) copyout((caddr_t)icode, 

(caddr_t)(v.v_ustart+v.v_doffset), szicode); 


* Return goes to loc. 0 of user init 

* code just copied out. 

*/ 

♦ifdef HOWFAR 

printf("main returning to icodeXn"); 


♦ endif 


return; 
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#ifdef HOWFAR 

printf (''main calling sched\n"); 

i endif 

sched(); 


I* 

* iinit is called once (from main) very early in initialization. 

* It reads the root's super block and initializes the current date 

* from the last modified date. 

* 

* panic: iinit — cannot read the super block. 

* Usually because of an 10 error. 

*/ 

iinit () 

register struct user *up; 
register struct buf *cp; 
register struct filsys *fp; 
struct inode iinode; 


up = iu; 

(*bdevsw[bmajor(rootdev)].d_open)(minor(rootdev), FREAD I FWRITE) 

(*bdevsw[braajor(pipedev)].d_open)(minor(pipedev), FREAD | FWRITE) 

(*bdevsw[bmajor(swapdev) ] .d_open) (minor (swapdev), FREAD | F?JRITE) 

cp “ geteblkO; 

fp = cp->b_un.b_filsys; 

iinode. i_mode ■= IFBLK; 

iinode.i_rdev = rootdev; 

^P->-u_offset -> SUPERBOFF; 
up->u_count - sizeof(struct filsys); 
up->u__base — (caddr_t)fp; 
up->u_segflg = 1; 
readi(4iinode); 
if (up“>u_error) 

panic("iinit"); 
moiint [0] .m_bufp =*= cp; 
mount [0] ,ra_flags ■= MINUSE; 
mount[0].m_dev = brdev(rootdev); 
if (fp->s_magic i- FsHAGIC) 

fp->s_type = Fslb; /* assume old file system */ 

if (fp->s_type = Fs2b) 

mount[0].ra_dev i= Fs2BLK; 

#if FsTYPE == 4 

if (fp->s_type ==■ Fs4b) 

mount[0].m dev I- Fs4BLK; 


root dev = mount[0].ra_dev; 
if (brdev(pipedev) “ brdev(rootdev)) 
pipedev - rootdev; 
fp“>s_flock « 0; 
fp->s_ilock = Q; 
fp->s_ronly - 0; 
fp->s_ninode = 0; 
fP“> s_inode[0) « 0; 

clkset(fp->s_time); 


* Initialize clist by freeing all character blocks. 
*/ 

struct chead cfreelist; 
cinitO 


register n; 

register struct cblock *cp; 


for (n - 0, cp 4cfree[0 3; n < v.v_clist; n++, cp++) 
cp->c_next - cfreelist.c_next; 
cfreelist .c_next -= cp; 

} 

cfreelist.c_size = CLSIZE; 


/* 

* Initialize the buffer I/O system by freeing 

* all buffers and setting all device hash buffer lists to empty. 
*i 

binit() 

{ 

register struct buf *bp; 
register struct buf *dp; 
register unsigned i; 
register long b; 


dp = obfreelist; 

dp->b_forw = dp; dp“>b_back = dp; 
dp->av_forw = dp; dp->av_back = dp; 

b “ (((long)buffers + (sizeof(int) - 1)) 4 (-sizeof(int))); 
for (i-0, bp=“buf; i<v.v_buf; i++,bp++) { 
bp->b_dev = NODEV; 
bp->b_un.b_addr - (caddr_t)b; 
b += SBUFSIZE; 
bp->b_back = dp; 
bp->b_forw = dp->b_forw; 
dp->b_forw->b_back =* bp; 
dp->b_forw ” bp; 
bp->b_flags - B_BUSY; 
bp->b_bcount - 0; 
brelse(bp); 

) 

pfreelist.av_forw = bp * pbuf; 
for (; bp < 4pbuf[ (short) (v.v_jpbuf-l) ]; bp++) 
bp->av_forw = bp+1; 
bp->av_forw - NULL; 
for (i=0; i < v.v_hbuf; i++) 

hbuf[(short)i].b_forw ” hbuf[(short)i].b_back = (struct buf *)4hbuf[(short)i]; 
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/* e(#)malloc.c 1.1 */ 

^include “sys/param.h” 

♦include "sys/types.h” 

♦include "sys/systm.h" 

♦include "sys/map.h" 

♦include *sys/var.h” 

♦include "sys/scat.h" 

/* 

* Allocate 'size' units from the given map. 

* Return the base of the allocated space. 

* In a map, the addresses are increasing and the 

* list is terminated by a 0 size. 

* The swap map unit is 512 bytes. 

* Algorithm is first-fit. 

*/ 

malloc(mp, size) 
register struct map *mp; 

{ 

int n; 


If (mp 1= coremap) 

return(domalKmp, size)); 
do 

if ((n “ domall(mp, size)) 
return(n); 

while (xmrelseO 1= Q); 
return(0); 


domalKmp, size) 
struct map *mp; 
register size; 

{ 

register struct map *bp; 
register a; 


0) 


} 


for (bp = mapstart(mp); bp->m_size; bp++) { 
if (bp->m_size >-= size) { 
a = bp->m_addr; 
bp->m_addr +- size; 
if (<bp->m_size size) == 0) { 
do { 

bp++; 

(bp-l)->m_addr = bp->m_addr; 

} while ((bp-1)->ra_size = bp->m_size); 
mapsize(mp)++; 

} 

return(a); 

} 

) 

return(0); 


i* 

* Free the previously allocated space aa 

* of size units into the specified map. 

* Sort aa into map and combine on 

* one or both ends if possible. 

*/ 

mfree(mp, size, a) 
struct map *mp; 
register a; 

{ 

register struct map *bp; 
register t; 


bp - mapstart(mp); 

for (; bp->m_addr<=a bp->m_size1=0; bp++); 
if |bp>mapstart (mp) && (fap-1 j->m_addr+(bp-1)->rri_size a) 
(bp-1)->m_size += size; 
if (a+size -- bp->m_addr) { 

(bp-1)->m_size +- bp->m_size; 
while (bp->m_size) { 
bp+ + ; 

(bp-l)->m_addr - bp->m_addr; 
tbp-l)->im_size “ bp->ia_size; 


} 

mapsize(mp)++; 
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} 

#else 


} 

} 

return(G); 


bp->ra._adcir += size; 
if ((bp->m_size -- size) “= 0) { 
do { 

bp++; 

(bp-1)->iii_addr * 
} while ((bp-l)->in_size ■ 
niapsize(inp)++; 

} 

return(a); 


bp“>m_addr; 

= bp->m_size); 


extern int nscatfree; 


/* 

* allocate size units from the memory map 
*/ 

memalloc(size) 

{ 

int n; 


} 


while ((n = 
if 

return(n); 


domemalloc(size)) 
(xmrelseO = 0) 
break; 


NULL) 


domemalloc(size) 
register size; 

{ 

register struct scatter *s; 
register short i; 
register al, a2; 

if (size <= Q) { 

printfC'memalloc error: tried to allocate %d units\n", size); 
return(NULL); 

} 

if (size > nscatfree) { 

/* printf (**memalloc; less than %d free pages at presentXn", 
size); */ 
return(NULL); 

} 

s « scatmap; 

al « a2 = scatfreelist.sc_index; 
if (size > 1) { 

i “ size - 2; 
do { 

al = s[al].sc_index; 

) while (—i i- -1); 

} 

scatfreelist. sc_index s[al].sc_index; 
s[al].sc_index = SCATEND; 
nscatfree -= size; 

/* printf C'memalloc: found %d free pages starting at index %d\n", 
size, a2); */ 
return(a2); 

} 

/* 

* allocate size contiguous units from the memory map 

*/ 

cmemalloc(size) 

{ 

int n; 
do 

scatsort(); 

while ((n “ docmemalloc (size))—NULL && xmrelseO); 

/* printf ("cmemalloc: slze-%d starting address-0x%x\n'*, size, n); */ 
return(n); 

) 

docmemalloc(size) 


register size; 

register struct scatter *s, *ss; 
register short i; 
register al, a2, n; 

if (size <= 0) { 

printf("cmemalloc error: tried to allocate %d unitsXn", size) 
return(NULL); 

} 

if (size > nscatfree) 
return(NULL); 
s ” scatmap; 
ss = fiscatfreelist; 
al - ss->sc_index; 
for (;;) { 

n = memcontig(al, size); 
if (n >= size) 
break; 

if (n > 1) { 

i = n - 2; 
do 

al - s[al].sc_index; 
while (—i != -1); 

) 

ss * &s[al]; 

if (ss->sc_index — SCATEND) 
return(NULL); 
al “ ss->sc_index; 

} 

a2 = al; 
if (size >1) { 

i = size - 2; 
do 

al = s[al].sc_index; 
while (—i 1= -1); 

} 

ss->sc_index = s[al].sc_index; 
s[al].sc_index = SCATEND; 
nscatfree -= size; 

/* printf {"cmemalloc: found %d free pages starting at index %d\n", 
size, a2); *l 

if (countscat(a2) I- size) 

printf("cmemalloc:improper allocation countscat-%d size=%d\n" 
countscat(a2), size); 

return(a2); 


/* 

* free memory map chain 
*/ 

memfree(a) 
register a; 

{ 

register struct scatter *s; 
register i, al, a2; 

if (a <= 0 M a >=• v.y_nscatload) { 

printf("memfree:illegal index %d (0x%x)\n", a, a); 
return; 

} 

i = 1; 

s - scatmap; 
al - a; 

while ((a2 - s[al].sc_index) !” SCATEND) { 
al - a2; 
i++; 

} 

/* printf("memfree:%d units freed starting an %d\n", i, a); 
s[al].sc_index - scatfreelist.sc_index; 
scatfreelist.sc_index - a; 
nscatfree +- i; 

/* 

* Wake scheduler when freeing memory 
*/ 

if (runin) { 
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runin =“0; 

wakeup((caddr_t)4runin); 

} 

} 


* find number of contiguous memory pages 
*/ 

memcontig(sindex, ct) 
register sindex, ct; 

{ 

register struct scatter *s; 
register al, n; 

if (sindex — SCATEND || ct <- 0) { 

printf(”memcontig;sindex=*Ox%x ct=%d\n'', sindex, ct); 
return(Q); 

} 

n =* 1; 

s “ scatmap; 

al *= ixtoc (sindex); 

while (“Ct >0) { 

if ({sindex = s[sindex].sc^index) “ SCATEND) 
break; 

if (++al 1= ixtoc(sindex)) 
break; 

n++; 

} 

return(n); 

} 

/* 

* sort the scatter load map 
*/ 

scatsort() 

{ 

register struct scatter *s, *sf; 
register int j, k, n, *ip, *jp; 
register short i; 

/* 

* clear scatter sort array 
*/ 

ip - scsortmap; 

i = ( (V. v_nscatlQad+31) » 5) - 1; 
do 

*ip++ = 0; 

while (—i I-1); 

/* 

* build bit map of free pages 
*/ 

s “ scatmap; 

sf = 4scatfreelist; 

ip - scsortmap; 

for (j = sf->sc_index; j SCATEND; j “ stj].sc_index) 
ip[j»5] I- 1 « (j431); 

/* 

* rebuild freelist 
*/ 

n * 0; 

sf->sc_index - SCATEND; 
j “ ( (V. v_nscatload+31) » 5) - 1; 
jp - 4scsortmap[j]; 
for ( ; j >- 0; j—, jp—) ( 
if (*jp — 0) 

continue; 

for (k-31; k>-0; k—) ( 

if (*jp4(l«k)) { 
n++; 

i - sf->sc_index; 
sf”>sc_index « (j « 5) + k; 
st(j « 5) + k].sc_index - i; 

} 

} 

nscatfree => n; 


#endif 
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/* mbuf.c 1.36 82/06/20 */ 

♦include "sys/param.h" 

♦include "sys/config-h" 

♦include "sys/types.h" 

♦include "sys/mmu.h" 

♦include "sys/sysmacros-h" 

♦include "sys/dir.h” 

♦include "sys/signal.h" 

♦include "sys/errno.h” 

♦include "sys/user.h" 

♦include "sys/proc.h" 

♦include "net/misc.h" 

♦include "net/mbuf-h" 

♦include "sys/iaap.h" 

♦include "net/in_systm.h'' /* XXX */ 


/* some random constants, ints */ 

/* THIS SHOULD BE AN EVEN CLICK NUMBER OF BYTES I!] */ 

/* 

♦define IOSI2E 8192 /* area for DMA buffers */ 

♦define lOSiZE 0 /* no space for DMA buffers for multibus */ 

/* unsigned int miosize •= lOSIZE; */ 

unsigned int miobase; /* loc of DMA area. */ 

/* 

* Initialize the buffer pool. Called from netinit/main. 

*/ 

mbinit() 

{ 

register i; 

register struct mbuf *m; 
extern struct mbuf * raballoc(); 

{* allocate mbuf io area, iomalloc is machine-dependent... */ 

/* miobase = mbioalloc(btoc(miosize)); */ 

miobase - rabioallocO; 

/* link the rabufs */ 
m = mballoc(); 

/* 

printf(“mbufs at %x\n", m); 

*/ 

rabstat .m_mbufs == NMBUFS; 

for(i“0 ; i<NMBUFS ; i++) { 
ra->m_off “ 0; 
ra->m_free - 0; 
b 2 ero((char *)m, MSIZE); 

(void) m_free(m); 
m++; 

} 

} 



long frmptr; 

long raddr; 

int i; 

register struct call * cp - 4i; 

extern dog_j>r; 

register olddogpr « dog__pr; 

if (dog_pr) {printf(«<mget from %x>",cp->raddr); dog_pr = 0;} 

♦endif 


♦ifdef 

♦endif 

} 


MGET(m, canwait ); 
PRMDEF 

if (olddogpr) 

dog_pr = 1; 

return (m); 


struct mbuf * 
ra_free(m) 

struct mbuf *m; 

{ 


register struct mbuf *n; 


MFREE (m, n) ; 
return (n); 


m_f reem (m) 

register struct mbuf *m; 

{ 

register struct mbuf *n; 
register int s; 


if (m NULL) 
return; 
s *= splimpO; 
do { 

MFREE (m, n) ; 
} while (m = n); 
splx(s); 


/* 

* Mbuffer utility routines. 
*/ 

struct mbuf * 
m_copy(m, off, len) 

register struct mbuf 
int off; 

register int len; 

{ 

register struct mbuf 
struct mbuf *top; 


*ra; 


*n. 


**np; 


if (len == 0) 

return (0); 

if (off <0 I! len < 0) 

panic("m_copyl"); 
while (off >0) { 

if (ra “ 0) 

panic(“m_copy2"); 
if (off < m->m_len) 
break; 

off — m->m_len; 
m ” m->m_next; 

} 

MAPSAVEO ; 
np - 4top; 
top - 0; 

while (len > 0) { 

if (m “ 0) ( 

if (len M_CCPYALL) 

panic(“mcopy3"); 


break; 
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m “ mp; 

} else { 

n->m_len len; 
break; 

} 

} 

} 

} 

struct mbuf * 
m_j>ullup (mO, len) 

struct mbuf *mO; 
int len; 

{ 

register struct mbuf *m, *n; 
int count; 

n = mO; 

if (len > MLEN) 

goto bad; 

HGET(m, 0); 
if (m = 0) 

goto bad; 

m->m_off = MMINOFF; 
m->m_len «= 0; 
do { 

count “ MIN (MLEN - iti->m_len, len) ; 
if (count > n->m_len) 

count “ n“>ra__len; 

MBCOPy(n, 0, la, m->m_len, (u_int) count) ; 
len — count; 
m~>m_len +=• count; 
n->m_off += count; 
n“>m_len -= count; 
if (n->m__len) 
break; 
n “ m_free(n); 

} while (n); 
if (len) { 

(void) m_free(m); 
goto bad; 

} 

m->m_next - n; 
return (m); 

bad: 

m__freem(n); 
return (0); 

) 

♦ifdef notdef 
/* 

* Allocate a contiguous buffer for DMA 10. Called from if_ubainit(). 

* TODO; fix net device drivers to handle scatter/gather to rabufs 

* on their own; thus avoiding the copy to/from this area. 

*/ 

unsigned int 
m_ioget(size) 

{ 

unsigned int base; 

size “ ((size + 077) & ~077); /* round up byte size */ 

if (size > raiosize) return(0); 

miosize — size; 

base « miobase; 

miobase +« size; 

return(base); 

} 

♦endif 

tifdef debug 
mbprint(m,s) 

register struct mbuf *m; 
char *s; 
f 

extern enprint; 
resgiater char *bia; 
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int col,i,be; 

if (enprint “ 0) return; 

MAPSAVE(); 

nprintf("MB %s\n",s); 
for (;;) { 

if {ra =“ 0) break.; 
ba = mtod(m, char *) ; 
col =0; be = ra”>m_len; 

nprintf("m%o next%o off%o len%o act%o free%o\n", 

m, m’->m_next, m->m_off, iii->m_len, ra->ia_click, 
m->m_free); 
for(; be ; be —) { 

i - *ba++ & 0377; 
nprintf(‘'%o «,i); 
if(++col > 31) { 
col ”=0; 

nprintf(*'\n *'); 

} 

} 

nprintf ; 

m - m“>m_next; 

} 

MAPRESTO ; 

} 

#else 

rabprint(m,s) 

register struct mbuf *ra; 
char *s; 

{ 

#ifdef lint 

mbprint(m, s); 

fendif 

} 

fendif debug 

fifdef notdef 
racheck(m, msg) 
struct mbuf *m; 
char * msg; 

{ 

extern char mbufbufsri; 
extern struct mbuf * mfreep; 
register x, ret = 0; 

X = spl7(); 

if ( ((m < (struct mbuf *)irabufbufsEO]) &s (m I- 0)) l| 

(m > (struct mbuf *)ftmbufbufs[(NHBUFS+1)*MSIZE3) It 
((mfreep < (struct mbuf *)&mbufbufs[0]) && (mfreep !- 0)) ii 
(mfreep > (struct mbuf *) fiinbufbufs [ (NMBUFS+1) *MSIZE]) ) { 

printf ("mcheck fail; m, mfreep - %x, %x, from %s\n'', 
m, mfreep, msg) ; 
ret - 1; 

} 

splx{x); 
return ret; 

} 

fendif 

fifdef PRMDEF 
struct call { 

long local; 

long frmptr; 

long raddr; 

); 

int dog_pr; 
int dof_pr; 

prmget() 

{ 

int i; 

register struct call * cp = fii,- 

if (dpgjpr) printf("<MGET from %x>",cpr>raddx); 


prmfreeO 

{ 

int i; 

register struct call * cp &i; 

if (dof_pr) printf("[MFREE from %x]",cp->raddr) 


#endif 
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/ * 

* mem, kmem and null devices. 

* Memory special file 

* minor device 0 is physical memory 

* minor device 1 is kernel memory 

* minor device 2 is EOF/RATHOLE 

*/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"sys/param.h" 
••sys/config.h" 
"sys/mmu.h" 
"sys/types.h" 
"sys/sysmacros.h" 
“sys/dir.h” 

“sys/signal.h" 
"sys/user.h" 
**sys/errno.h” 
"sys/buf.h" 
"sys/systm.h" 

"setjmp.h" 


/* 


* mmread - read mem, kmem or null. 
*/ 


mmread(dev) 

{ 


} 


if (minor(dev) i- 2) 

rammove(dev, B_READ); 


/* not /dev/null */ 


/* 


* mmwrite - write mem, kmem or null. 
*/ 

mmwrite(dev) 

{ 

if (minor(dev) 2) { 
u.u_count ” 0; 
return; 


} 

mir!move(dev, B_WRITE); 


/* /dev/null, just gobble chars */ 


/* 

* rommove - common routine for mmread and mmwrite 
*/ 

rammove(dev, flag) 
dev_t dev; 

{ 

register int pageoffs, count, prot; 
jmp_buf jb; 
int *saved_jb; 
int s; 

if (minor (dev) ==1 M minor (dev) «=*=0) { /* kmem, mem */ 

do { 

s - spl7(); 

SEG1_0 - 1; /* system context */ 

/* SEG2_0 “1; /* system context */ 

prot - getramu((short *)(vtoseg(u.u_offset) I ACCLIM)}&PROTMASK; 
SEG1_1 - 1; /* user context */ 

/* SEG2_0 - 1; /* user context */ 
splx(s); 

/* printf("u_ba3e“0x%x offset=0x%x prot“0x%x\n", u.u_base, u.u_offset, prot); */ 
if ((unsigned)u.u_offset < (unsigned)STDIO prot i- ASRW) 
goto bad; 

pageoffs - u.u_offset & (ctob(l)-l); 

count -» min ((unsigned) (ctob(l) - pageoffs), u.u_count); 
printf {"pageoffs=%d coulnt-%d u.u_count“%d\n", pageoffs, count, u.u_couiit) ; */ 
saved_jb - nofault; 
if (isetjmp(jb)) { 

nofault - jb; 
u.u_segflg -0; 

iomove((caddr_t)u.u_offset, count, flag); 

} else 

U.u___error * ENXIO; 


u.u_segflg =* 0; 
nofault - saved_jb; 

} while(u.u_error *= 0 && 
return; 

} 

bad: 

u.u_error =• ENXIO; 

} 


u.u_count) 
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/* 

* mkfspm device 

* Get the size of the Priam disk "device" and make a root 

* filesystem in partition 0. This makes a filesystem using the 

* entire disk except for the boot and swap areas. 

* 

* The raw device is specified, but both the block and character 

* devices are expected to be available (created). The filesystem 

* is made on /dev/{Mn?a where /dev/rpm?a is the argument. 

*/ 

finclude "stdio.h" 
finclude "sys/types.h" 

^include "sys/sysmacros.h" 

^include "sys/uioctl.h" 

#include "sys/stat.h" 
finclude "sys/swapsz.h" 

main(argc, argv) 
char **argv; 

{ 

register fp; 
register char *device; 
register char *cp; 
int jxttsize; 
char spmsize[10); 

device = *(argv+1); 
if ((fp “ open(device, 2)) < 0) 
goto out; 

if (ioctl(fp, UIOCSIZE, (caddr_t)ipmsize) < 0) 
goto out; 

cp =* (char *) strchr(device, 'r'); /* cp points to 'r' in /dev/rpm?a */ 

for ( ; *cp; cp++) /* change to /dev/pm?a */ 

*cp “ *(cp+l); 

sprintf (spmsize, "%d'‘, pmsize-PMNSWAP-101) ; 
printf(**%s: %s blocks\n", device, spmsize); 
execl CVetc/mkfslb", ''mkfslb", device, spaasize, 0); 

out: 

perror("mkfspm"); 
exit(l); 

} 
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/* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

* 

* Mouse Driver 

*/ 

^include "sys/paroLm.h** 

♦include '•sys/config. h" 

♦include "sys/types.h" 

♦include "sys/systra.h" 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/proc.h” 

♦include "sys/errno.h” 

♦include "sys/file.h" 

♦include "sys/tty.h" 

♦include "sys/termio.h" 

♦include "sys/conf.h” 

♦include "sys/sysinfo.h" 

♦include "sys/var.h" 

♦include "sys/reg.h" 

♦include "sys/buf.h" 

♦include "setjmp.h" 

♦include "sys/cops.h" 

♦include "sys/local.h" 

♦include "sys/elog.h" 

♦include "sys/ms.h" 

♦include "sys/mouse -h" 

♦include "sys/ramu.h" 

♦include "sys/kb.h" 

♦include "sys/al_ioctl.h" 

♦define spirns spl2 

/* flags local to ms.c */ 
char mouseopen; /* active flag */ 

char msblkd; /* flag to sleep on when blocked */ 

/* also used in 11.c (vertical retrace interrupt code) */ 
struct msparms mparm; /* place to save ioctl data */ 

struct proc *msproc; /* controlling process for mouse */ 

char msvrmsk; /* mask of low bits of retrace counter */ 

/* values set in kb.c */ 

extern char ras__plg, ms_btn; /* mouse plugged-in and button state */ 
extern short ms_row, ms_col; /* last received row and column */ 
extern time_t Ibolt; 

♦define QUELEN 128 
typedef unsigned long mem_t 
int mqlen; 
mem_t *mqlo, *mqhi; 
mem_t raqbu f[QUELEN]? 
mem_t mtim[QUEIiEN] ; 

msopen(dev, flag) 
dev_t dev; 

{ 

if (dev I- 0) { /* minor device number is wrong *i 

u.u_error = ENXIO; 
return; 

} 

if (ms_plg) { /* mouse is not plugged in */ 

u.u_error - ENODEV; 
return; 

} 

if (flag !- 1) { /* open for writing i! */ 

u.u_error - EINVAL; 
return; 


/* high and low pointers into ... */ 
/* ring buffer for mouse data */ 


/* Controlling tty not bitmap */ 


if (u.u_ttyd !- CONSOLE) { 
u.u_error = EPERM; 
return; 

} 

if (raouseopen++ > 0) { /* already opened */ 

u.u_error = ESUSY; 
return; 

} 

splms(); 

msproc - u.u__procp; 
raqhi = mqlo = mqbuf; 
mqlen =0; 

mparm.mp_irate =28; 
mparm.mp_fdlay = 300; 
mparm.mp_flags - MF_BUT; 

12copscmd(MOUSEON); 
splOO; 

} 

/* 

* Reset everything since code elsewhere (in 11.c) uses it. 

*/ 

/* ARGSUSED */ 
msclose(dev, flag) 

{ 

if (mouseopen <= 0) 

u.u_error = EINVAL; 

else { 

SPL6 () ; 

mouseopen - 0; /* only accessed in ms.c */ 

mqhi = mqlo - mqbuf; 
mqlen = 0; 
raparm.mp_irate - 0; 
mparm.rap__fdlay - 0; 
mparm.mp_flags - 0; 
msvrmsk - 0; 

12copscmd(MOUSEOFF); 

SPLOO; 

} 

} 

ms strategy(bp) 
register struct buf *bp; 

{ 

register mem_t *rp 
register int i; 

/* Make sure the mouse is plugged in and the read request is for a 

* multiple of the record size. 

*/ 

if (ms__plg) { /* mouse unplugged *l 

u.u_error - ENODEV; 
goto fail; 

} 

if (bp'>b_bcount & 3) { /* count not multiple of record size */ 

u.u_error = EINVAL; 

fail: 

bp->b_resid = bp->b_bcount; 

iodone(bp); 

return; 

} 

if (mqlo — mqhi) { /* queue empty */ 

if ((int)mparm.mp_irate <= 0) /* mouse shutdown */ 

u.u_error = EIO; 

splms(); 

if (mparm.mp_flags & MF_BLK) { /* block till record avail */ 

msblkd - 1; 
while (msblkd) 

(void) sleep((caddr_t)Smsblkd, TTIPRI); 

goto ok; 

) 

splOO ; 
goto fail; 


/* reciever buffer pointer */ 
/* record count */ 


splms () ; 


/* so msintr doesnt screw up que ptrs */ 
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ok: 

if (Ibolt “ mtimtraqlo-mqbuf] >- mparm.mp_fdlay) { 
if (mparm.iup_fd[lay) 

msintr(M_FLUSH); 

} 

rp = *)bp-’>b_i 2 ii.b_addr; /* start of receiver buffer */ 

for {i"bp->b_bcoiint; i>0 && mqlo != mqhi; i 4) { 

*rp++ = *mqlo++; 

if (mqlo >” mqbuf + QUELEN) mqlo = mqbuf; 

} 

bp“>b_resid i; 

mqlen -= (bp->b_bcount - i) » 2; 

splOO; 

iodone(bp); 

return; 


struct buf rmsbuf; /* Buffer for raw input-output */ 

msread(dev) 


if (msproc 1= u.u_procp) { 
u.u_error = EIO; 
return; 

} 

rmsbuf.b_flags & -B_BUSY; 

physio(msstrategy, irmsbuf, dev, B_READ); 


msintr(kind) 

{ 

register struct msrecord *rap; 
union { 

struct msrecord mf_rec; 
unsigned long mf_long; 

) msr; 


if ('mouseopen | 
return; 

} 


mparm.mp_irate 0) {/* mouse not active */ 


if (ms_j)lg) { 

mqlo = mqhi - mqbuf; 
mqlen = 0; 
return; 


msr.mf_long - 0; 
mp - &msr.mf_rec; 


/* clear new record */ 

/* get pointer to record structure */ 


switch (kind) { /* kind of interrupt */ 

case M_FLUSH: /* auto flush (called from msintr,msstrategy) */ 

mp->rar_but »= 1; 

case M_PLUG: /* automatic reset (called from kbintr) */ 

mp->mr_reset - 1; 
mqlo =- mqhi = mqbuf; 
mqlen - 1; 
mtimtO] = Ibolt; 

*mqhi++ = msr.mf_long; 
return; 

case H_BUT: /* mouse button changed (called from kbintr) * 

if ((mparm.mp_flags & MF_BUT) ” 0) 
return; 

break; 

case M_CTL: /* control key changed (called from kbintr) */ 

if ((mparm.mp_flags £ MF_CTL) •“ 0) 
return; 

break; 

case M_SFT: /* shift key changed (called from kbintr) */ 

if (fmparm.mp_flags s mf_sft) — 0) 
return; 

break; 


/* mouse button changed (called from kbintr) */ 
BUT) ” 0) 


if (mqlen) { /* check for invalid queue data */ 

if (Ibolt - ratim[mqlo-raqbuf] >- raparm.mp_fdlay) { 
if (mparm.inp__fdlay) 


msintr(M_FLUSH); 


} 


J 

if 

} else { 

if 

} 


(mqlen >- QUELEN) 
return; 

/* queue was empty 
(mparm-mp_flags £ MF_SIG) 

psignal (msproc, SIOfiDUS) ; 


*/ 


mp->mr_but =* ms_btn ? 1 : 0; 
mp->mr_ctl - kb_ctrl ? 1 : 0; 
mp->mr_sft =- kb_shft ? 1 ; 0; 
mp->mr_time = Ibolt & OxFFF; 

if (kind =«= M_MOVE) { /* called from kbintr */ 

mp->mr_row - ms_row; 
mp->mr_col = ms_col; 

} 

mtim[mqhi - mqbuf] = Ibolt; 

*mqhi++ = msr.mf_long; 
mqlen++; 

if (mqhi >- mqbuf + QUELEN) 
mqhi >* mqbuf; 
if (msblkd) { 

msblkd =0; 

wakeup((caddr_t)&msblkd); 

} 


/* ARGSUSED */ 

msioctKdev, cmd, addr, flag) 
dev_t dev; 
int cmd; 

Gaddr_t addr; 
int flag; 

{ 

register struct msparms *mp - &raparm; 
int dlay, rate; 


switch (cmd) { 
case AL_GMOUSE: 

if (mp->mp_qlen * mqlen) { 

mp->mp_otime - Ibolt - mtim[mqlo-mqbuf ] ; 
mp->mp_ytime - Ibolt - mtim [mqhi-mqbuf-1 ] ; 

} else { 

mp->mp_otime =0; 
mp->mp_ytime = 0; 

} 

if (copyout((char *)mp, addr, sizeof(struct msparms))) 
u.u_error * EFAULT; 

break; 

case AL_SMOUSE: 

dlay =“ mp->rap_fdlay; 
rate = mp->mp_irate; 

if (copyin(addr, (char *)mp, sizeof(struct msparms))) 
u.u_error =• EFAULT; 

else { 

if (mp->mp_fdlay) { 

if (mp->mp_fdlay < 20) { 
splms(); 

mp->mp_fdlay =■ dlay; /* restore */ 
mqlen = 0; 

mqhi - mqlo = mqbuf; 
splOO; 

) else if (rap->rap_fdlay > 4095) 
rap->mp_fdlay - 4095; 

} 

if (rap->mp_irate !- rate) { /* did int rate chg */ 

mp->mp_irate - (mp->mp_irate + 3) & ~3; 
if (mp->mp_irate > 29) 

mp->mp_irate -= 28; 

splms(); 

if (mp->rap_irate) 

12cop3cmd( (char) ((MOUSEON£-7) | (mp->mp_irate»2))); 

else 

12copscmd(MOUSEOFF) ; 


splOO; 
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} 

splms(}; 

if (mp->mp_flags & MF_VRT) 

msvrmslc = mp->mp_flags & HF_VRATE; 

splOO ; 

} 

break; 

default: 

u.u_error = ENOTTY; 

} 

} 
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/* @(#)msg.c 1.3 */ 

/* 

** Inter-Process Coitim;inication Message Facility. 

*/ 

^include "sys/types.h" 

#includs ^sys/param.h" 

#include "sys/dir.h" 

#ifdef u3b 

♦include "sys/istk.h" 

♦endif 

♦include *' sys/ signal. h" 

♦include “sys/user.h** 

♦include “sys/seg.h" 

♦include "sys/proc.h“ 

♦include "sys/buf.h“ 

♦include “sys/errno.h" 

♦include "sys/map.h“ 

♦include "sys/ipc.h" 

♦include “sys/msg.h" 

♦include "sys/systm.h" 

♦ifdef vax 

♦include “sys/page.h" 

♦endif 

♦ifdef u3b 

♦include "sys/raacro.h" 

♦else 

♦include "sys/sysinacros.h" 

♦endif 

extern struct map msgmapi]; /* msg allocation map */ 

extern struct msgid__ds msgque[]; /* msg queue headers */ 

extern struct msg msgh[]; /* message headers */ 

extern struct msginfo msginfo; /* message parameters */ 

extern char msgspace[]; /* space for message buffers */ 

struct msg *msgfp; /* ptr to head of free header list */ 

paddr_t msg; /* base address of message buffer */ 

extern time_t time; /* system idea of date */ 

struct ipc_jperm *ipcget (); 

struct msqid_ds *msgconv(); 

/* Convert bytes to msg segments. */ 

♦define btoq{X) ((X + msginfo.msgssz - 1) / msginfo.msgssz) 

/* Choose appropriate message copy routine. */ 

♦ifdef pdpll 

♦define MOVE msgpimove 
♦else 

♦define MOVE iomove 
♦endif 



msgconv - Convert a user supplied message queue id into a ptr to a 
rasqid_ds structure. 


struct msqid__ds * 
msgconv(id) 
register int id; 

( 

register struct msqid_ds *qp; /* ptr to associated q slot */ 


qp - Smsgque[(short)(id % msginfo.msgmni)]; 
if ((qp->msg__perm.mode & IPC_ALLOC) —Oil 

id / msginfo.msgmni !- qp->msg_perm.seq) { 
u.u_error = EINVAL; 
return(NULL); 

} 

return(qp) ; 

} 


/* 


/ 


msgctl - Msgctl system call. 


msgctl() 


register struct a { 

int msgid, 

cmd; 

struct msqid__ds *buf; 

} *uap ” (struct a *)u.u_ap; 

struct msqid_ds ds; /* queue work area */ 

register struct msqid_ds *qp; /* ptr to associated q */ 

if((qp ■= msgconv (uap->rasgid)) =“ NULL) 
return; 

u.u_rvall =■ 0; 
switch(uap->cmd) { 
case IPC_RMID: 

if(u.u_uid 1= qp->msg_j>erm.uid && u.u_uid 1= qp->rasg_perm.cuid 
&& IsuserO) 
return; 

while(qp->msg_first) 

msgfree(qp, (struct msg *)NULL, qp->msg_first); 
qp->msg_cbytes =0; 
if(uap->rasgid + msginfo.msgmni < 0) 
qp->msg_perm.seq - 0; 

else 

qp->msg_j5erm. seq++; 
if (qp->msg_perm.mode & MSG_RWAIT) 

wakeup( (caddr_t) 4qp->msg_qnum) ; 
if (qp->msgjperm.mode & MSG_JfWAIT) 
wakeup( (caddr__t)qp); 
qp->msg_perm.mode = 0; 
return; 
case IPC_SET: 

if(u.u_uid '=• qp->msg_perm.uid &£ u.u_uid I- qp->msq__perm.cuid 
&& IsuserO) 
return; 

if(copyin((caddr_t)uap->buf, (caddr_t)&ds, sizeof(ds))) { 
u.u error = EFAULT; 


if(ds.msg_qbytes > qp->msg_qbytes && isuserO) 
return; 

qp->msg_perm.uid = ds.msg_perm.uid; 
qp”>msg_j)erm.gid == ds.msg_j)erm.gid; 
qp->msg_perm.mode = (qp->msg_perm.mode 4-0777) ( 
(ds.msg_perm.mode 4 0777); 
qp->msg_qbytes = ds.msg_qbytes; 
qp->rasg_ctime = time; 
return; 

case IPC__STAT: 

if(ipcaccess(4qp->msg_perm, MSG_R)) 
return; 

if (copyout ((caddr_t) qp, (caddr_t) uaj>->buf, sizeof (*qp))) { 
u.u_error = EFAULT; 
return; 


u.u_error = EINVAL; 
return; 


msgfree - Free up space and message header, relink pointers on q, 
and wakeup anyone waiting for resources. 


msgfree(qp, pap, mp) 
register struct rasqid_ds 
register struct msg 


*qp; /* ptr to q of mesg being freed */ 

*mp, /* ptr to msg being freed */ 

*prap; /* ptr to mp's predecessor */ 


/* Unlink message from the q. */ 
if(pmp — NULL) 

qp->msg_^first - mp->msg_next ; 


else 
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} 

/* 

** 

*/ 


pmp->msg_next - mp->msg_next; 
if(mp->msg_next ” NULL) 

qp->msg_last - pmp; 
qp“>msg_qnu 2 n—; 

if <qp“>msg_j)enii.mode £ MSG__5ffWAIT) { 

qp->msg_perm.raode 4= ~MSG_5fWAIT; 
wakeup((caddr_t)qp); 

} 

/* Free up message text. */ 
if(mp->rasg_ts) 

mfree (msgmap, btoq(mp“->msg_ts), mp->msg_spot + 1); 

/* Free up header */ 
rap->msg_next - msgfp; 
if(msgfp — NULL) 

wakeup<(caddr_t)imsgfp); 
msgfp = mp; 


msgget - Msgget system call. 


msgget 0 
{ 

register struct a { 
lcey__t key; 
int msgflg; 

} *uap = (struct a *)u.u_ap; 

register struct msqid_ds *qp; /* ptr to associated q */ 

int s; /* ipcget status return */ 

if((qp ” (struct rasqid_ds *) 

ipcget(uap->key, uap->msgflg, (struct ipc_perm *)msgque, 

rasginfo.msgrani, sizeof(*qp), is)) -= NULL) 

return; 

if(s) { 

/* This is a new queue. Finish initialization. */ 
qp->msg_first =• NULL; qp->msg_last =* NULL; 
qp->msg_qnum ■= 0; 
qp->msg_qbytes » msginfo.msgranb; 
qp~>msg_lspid =» 0; qp->msg_lrpid - 0; 
qp->msg_stirae - 0; qp->msg_rtime - 0; 
qp->msg_ctime - time; 

} 

u.u_rvall = qp->msg_j>erm. seq * msginfo.msgmni + (qp - msgque); 

} 


/* 

** msginit - Called by main(main.c) to initialize message queues. 

*/ 


msginit() 

{ 

register int i; /* loop control */ 

register struct msg *mp; /* ptr to msg begin linked */ 

♦ifndef mc68000 

register int bs; /* message buffer size */ 

♦endif 


/* Allocate physical memory for message buffer, */ 

♦ifndef mc68000 

bs - (long)msginfo.msgseg * msginfo.msgssz; 

tendif 

#ifdef mc68000 

msg - (paddr__t) msgspace; 

#endif 
fifdef pdpll 

if((msg - (paddr_t)ctob((long)(unsigned)malloc(coremap, 

bs*> (int )btoc( (long) rasginfo.msgseg * msginfo.msgssz)))) — 0) { 

♦endif 
♦ifdef vax 

if((msg - (paddr_t)sptalloc(bs*btoc(rasginfo.msgseg * msginfo.msgssz), 
PG_V 1 PG_KW, 0)) — NULL) { 


#endif 
#ifdef u3b 

if((msg = (paddr_t)kseg(RW, btop(msginfo.msgseg * msginfo.msgssz))) “ 
NULL) { 

#endif 

♦ifndef mc68000 

printf ("Can't allocate message buffer. \n'*) ; 
rasginfo.msgseg =0; 

} 

tendif 

mapinit (msgmap, msginfo.msgmap); 
mf ree (msgmap, (int)msginfo.msgs6g, 1); 
for(i = 0, rap = msgfp = msgh;++i < msginfo.msgtql;mp++) 
mp->msg_next =• mp + 1; 

tifdef vax 

maxmem — bs; 

tendif 

tifdef rac68000 
return; 

tendif 

tifdef pdpll 

return(bs); 

tendif 

} 

tifdef pdpll 
/* 

** msgpimove - PDP 11 pimove interface for possibly large copies. 

*/ 

msgpimove (base, coimt, mode) 

paddr_t base; /* base address */ 

register unsigned count; /* byte count */ 

int mode; /* transfer mode */ 

{ 

register unsigned tcount; /* current transfer count */ 

while(u.u_error =- Q «& count) { 

tcount = count > 8064 ? 8064 : count; 
pimove(base, tcount, mode); 
base += tcount; 
count -= tcount; 

} 

tendif 


/* 
* * 


*/ 


msgrcv - Msgrcv system call. 


rasgrcv() 

{ 

register struct a { 

int msqid; 

struct msgbuf *msgp; 
int msgsz; 

long msgtyp; 

int msgflg; 


} *uap - (struct a 

register struct msg 

*)u.u_ap; 

*mp. 

/* 

ptr to msg on q */ 


*pmp. 

/* 

ptr to mp's predecessor */ 


*smp. 

/* 

ptr to best msg on q */ 


*spmp; 

/* 

ptr to smp's predecessor */ 

register struct msqid_ds 

*qp; 

/* 

ptr to associated q */ 

int 

sz; 

/* 

transfer byte count */ 


if((qp ” msgconv(uap->msqid)) ” NULL) 
return; 

if(ipcaccess(4qp->msg_perm, MSG_R)) 
return; 

if(uap->msgsz < 0) { 

u.u_error - EINVAL; 
return; 

} 

smp - NULL; spmp - NULL; 

findmsg: 



msg.c 


Fri Sep 5 19:07:55 1986 


3 


j»tip => NULL; 
mp ” qp->msg_first; 
if (uap->msgtyp — 0) 
smp mp; 


for(;mp;pmp » mp, mp = mp->msg__next) { 
if (uap->msgt 3 ^ >0) { 

if (uap->msgtyp != mp->msg_type) 
continue; 
smp “ mp; 
spmp “ pmp; 
break; 

} 

if(mp“>msg_type <- -uap->msgtyp) { 

if<smp && smp->msg_type <= mp->msg_type) 
continue; 
smp « mp; 
spmp “ pmp; 


if(smp) { 

if(uap->msgsz < smp->msg_ts) 

if (Muap->msgflg & HSG_NOERROR)) { 
u.u_error * E2BIG; 
return; 

} else 

sz “ uap->msgsz; 

else 

sz “ smp->msg_ts; 

(void) copyout((caddr_t)& smp->msg_type, (caddr_t)uap->msgp, 
sizeof(smp->msg_type)); 
if(u.u_error) 

return; 

if(sz) { 

u.u_base =- (caddr_t)uap->msgp + sizeof (smp->msg_type) ; 
u.u_segflg = 0; 

MOVE( (caddr_t) (msg + msginfo.msgssz * smp->msg_spot), 
sz, B_READ); 
if <u.u_error) 

return; 

} 

u.u_rvall - sz; 

qp->msg_cbytes smp->msg_ts; 
qp*->msg_lrpid = u.u_j)rocp->p_j>id; 
qp->msg_rtime - time; 
curpri = PMSG; 
msgfree(qp, spmp, smp); 
return; 

} 

if(uap->msgflg & IPC_NOffAIT) { 
u.u_error = ENOMSG; 
return; 

} 

qp->msg_perm.mode |- MSG__RWAIT; 

if(sleep(<caddr_t)4qp->msg_qnum, PMSG I PCATCH)) { 
u.u_error = EINTR; 
return; 

) 

if(msgconv(uap->msqid) ”= NULL) { 
u.u_error - EIDRM; 
return; 

goto findmsg; 


msgsnd - Msgsnd system call. 


msgsnd() 
{ 


register struct a { 
int 

struct msgbuf 

int 

int 


} *uap == (struct a *)u.u_ap; 

register struct msqid_ds *qp; /* ptr to associated q */ 

register struct msg *mp; /* ptr to allocated msg hdr */ 

register int cnt, /* byte count */ 

spot; /* msg pool allocation spot */ 
long type; /* msg type */ 

if((qp = msgconv(uap->msqid)) = NULL) 
return; 

if(ipcaccess(&qp->msg_perm, HSG_W)) 
return; 

if((cnt - uap“>msgsz) < 0 I! cnt > msginfc.msgmax) ( 
u.u_error * EINVAL; 
return; 

} 

(void) copyin ((caddr_t) uap-’>msgp, (caddr_t) 4type, sizeof (type)) ; 
if(u.u_error) 

return; 

if(type < 1) { 

u.u_error = EINVAL; 
return; 

} 

getres: 

/* Be sure that q has not been removed. */ 
if(msgconv(uap“>msqid) = HULL) { 
u.u_error = EIDRM; 
return; 

} 

/* Allocate space on q, message header, & buffer space. */ 
if(cnt + qp“>msg_cbytes > qp->msg_qbytes) { 
if(uap->msgflg & IPC_NOWAlT) { 
u.u_error - ElAGAIN; 
return; 

} 

qp->msg_perm.mode 1= MSG_WWAIT; 
if(sleep((caddr_t)qp, PMSG 1 PCATCH)) { 
u.u_error * EINTR; 
qp->msg_j)erm.mode 4= ~MSG_WWAIT; 
wakeup{(caddr_t)qp); 
return; 

} 

goto getres; 

} 

if(msgfp = NULL) { 

if(uap->msgflg 4 IPC_NOWAIT) { 
u.u_error = EAGAIN; 
return; 

} 

if(sleep((caddr_t)4msgfp, PMSG | PCATCH)) { 
u.u_error = EINTR; 
return; 

} 

goto getres; 

} 

if(cnt 44 (spot “ malloc(msgmap, btoq(cnt))) == NULL) { 
if(uap->msgflg 4 IPC_NOWAIT) { 
u.u_error = EAGAIN; 
return; 

} 

mapwant(msgmap)++; 

if(sleep((caddr_t)msgmap, PMSG 1 PCATCH)) { 
u.u_error •= EINTR; 
return; 

) 

goto getres; 

} 

/* Everything is available, copy in text and put msg on q. */ 
if(cnt) { 

u.u_base = (caddr_t)uap->m3gp + sizeof(type); 
u.u_segflg - 0; 

HOVE( (caddr_t)(msg + msginfo.msgssz * —spot), cnt, BWRITE); 
if (u.u_error) { 

mfree (msgmap, btoq(cnt), spot -i- 1); 
return; 
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} 

/* 

** 

V 


} 

qp->ms g_.qni3m++; 

qp->msg_cbytes += cnt; 

qp*->iasg_lspid = u.u_procp->p_pid; 

qp->msg_stime - time; 

mp ” rasgfp; 

rasgfp = rap->rasg_next; 

mp^>msg__next - NULL; 

rap->msg_type = type; 

mp->msg_ts = cnt; 

rap->msg_spot == cnt ? spot : -1; 

if (qp**>msg_last = NULL) { 

qp-’>msg_first =* mp; qp->msg_last = mp; 

} else { 

qp->msg_last->msg_next = mp; 
qp->rasg_last = mp; 

} 

if (qp->msg_j)erm.mode & MSG_RWAIT) { 

qp->msg_perm.mode 4= ~MSG_RWAIT; 
curpri = PMSG; 

wakeup((caddr_t)&qp->msg_qnum); 

} 

u.u_rvall = 0; 


msgsys - System entry point for msgctl, msgget, msgrcv, and msgsnd 
system calls. 


msgsys() 

{ 

int msgctl 0, 

msgget(), 
msgrcv(), 
msgsnd(); 

static int {*calls[])() =* { msgget, msgctl, msgrcv, msgsnd }; 

register struct a { 

unsigned id; /* function code id */ 

int *ap; /* arg pointer for recvmsg */ 

} *uap = (struct a *)u.u_ap; 


if(uap->id >3) { 

u.u_error = EINVAL; 
return; 

} 

u.u_ap - 4u.u_arg[l]; 
(*calls[uap->id])(); 


} 
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/* 8(#)naine.c 1.1 */ 
finclude "sys/utsname.h" 

#ifdef lint 
#define SYS "sys" 

#define NODE "node” 

♦define REL "rel" 

♦define VER "ver" 

♦define MACH "m68000" 

♦define TIMESTAMP "timestamp" 
♦endif 

struct utsname utsname = { 
SYS, 

NODE, 

REL, 

VER, 

MACH, 

}; 

char timestamp [] == TIMESTAMP; 
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/* #define HOWFAR */ 

/* @(#)nami.c 1.2 */ 

#include "sys/param.h" 

♦include "sys/types.h" 

♦include “sys/systra.h" 

♦include "sys/sysinfo.h" 

♦include •*sys/inode.h** 

♦include "sys/mount .h*' 

♦include "sys/dir.h“ 

♦include "sys/signal.h" 

♦ include "sys/user .h** 

♦include ®sys/errno.h” 

♦include "sys/buf.h" 

♦include "sys/var.h" 

/* 

* Convert a pathname into a pointer to 

* an inode. Note that the inode is locked. 

A 

* func =“ function called to get next char of name 

* fiuchar if name is in user space 

* fischar if name is in system space 

* flag = 0 if name is sought 

* 1 if name is to be created 

* 2 if name is to be deleted 

*/ 

struct inode * 
namei(func, flag) 
int (*func)(); 

{ 

register struct user *up; 
register struct inode *dp; 
register c; 
register char *cp; 
register struct buf *bp; 
register i; 
dev__t d; 
off_t eo; 

/* 

* If name starts with start from 

* root; otherwise start from current dir. 
*/ 

up - &u; 

sysinfo.namei++; 
c “ (*func)(); 
if (c ^\0') { 

up->u_error = ENOENT; 
return(NULL); 

} 

if (c =- VM { 

if ((dp •= up->u_rdir) =- NULL) 
dp = rootdir; 
while (c — W') 

c =* (*func) 0 ; 

if(c =- '\0' ii flag I* 0) { 
up->u_error =<= ENOENT; 
return(NULL); 

) 

} else 

dp -= up->u_cdir; 

(void) iget(dp“>i_dev, dp“>i_number); 

cloop: 

/* 

* Here dp contains pointer 

* to last component matched. 

*/ 

if(up->u_error) 

goto out; 

— '\0M 

return(dp); 


if (c 


/* 

* If there is another component, 

* gather up name into users' dir buffer. 
*/ 


cp = &up->u_d6nt. d_name[0 ]; 

while(c '= && c i- '\0' && up->u_error = 0) { 

if(cp < sup“>u_dent.d_name[DlRSI2]) 

*cp++ » c; 
c “ (*fi3nc) 0 ; 

} 

while(cp < &up->u_dent.d_name[DIRSIZ]) 

*cp++ = '\0'; 

♦ifdef HOWFAR 

printf (“nami; about to scan for '%s'\n'', up->u__dent .d_name); 

♦endif 

while (c ■==“ '/') 

c = (*func)0; 


* dp must )oe a directory and 

* must have X permission. 

*/ 

♦ifdef HOWFAR 

/* printf ("nami;directory mode = 0%o\n*', dp->i_mode40xFFFF); */ 

♦endif 

if ((dp->i_mode4IFMT) 1= IFDIR H dp->i_nlink=0) 
up->u_error = ENOTDIR; 

else 

(void) access(dp, lEXEC); 
if (up->u_error) 
goto out; 


/* 

* set up to search a directory 
*/ 

up“>u_offset = 0; 
up->u_count “ dp->i_si 2 e; 
up“>u_j>bsize *=0; 
eo - 0; 
bp ”= NULL; 

if (dp -= up~>u_rdir) 
if (up->u_dent.d_name10] -= '.') 
if (up~>u_dent.d_name(1] ■= '.') 
if (up->u_dent.d_name[2] = '\0') 
goto cloop; 


eloop: 


/* 

* If at the end of the directory, 

* the search failed. Report what 

* is appropriate as per flag. 

*/ 


if (up->u_count ““ 0) { 
if(bp i” NULL) 

brelse(bp); 

if (flag—1 && c—'\0') { 

if(access(dp, IWRITE)) 
goto out; 
up->u_pdir “ dp; 
if (eo) 

up->u_offset = eo - sizeof(struct direct); 
up->u_count - sizeof(struct direct); 

(void) bniap(dp, B_WRITE) ; 
if (up->u_error) 
goto out; 
return(NULL); 

) 


} 


up->u_error - ENOENT; 
goto out; 
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/* 

* If done with current block, 

* read the next directory block- 

* Release previous if it exists. 

*/ 

if {up->u_pbsize ==0) ( 
daddr_t bn; 

if(bp [~ NULL) 

brelse(bp); 
sysinfo.dirblk++; 
bn “ bmap(dp, B_READ); 
if (up->u_error) 
goto out; 
if (bn < 0) { 

up->u_error = EIO; 
goto out; 

} 

bp •= bread (dp->i_dev, bn) ; 
if (up->u_error) { 
brelse(bp); 
goto out; 

} 

} 

/* 

* Note first empty directory slot 

* in eo for possible creat. 

* String compare the directory entry 

* and the current component. 

* If they do not match, go back to eloop. 

*/ 

cp - bp“>b_un.b_addr + up->u_j)boff; 
up“>u_offset +- sizeof(struct direct); 
up->u_pboff +“ sizeof(struct direct); 
up“>u_j)bsize — sizeof (struct direct); 
up->u_count — sizeof(struct direct); 
up->u_dent.d_ino = ((struct direct *)cp)->d_ino; 
if(up~>u_dent.d_ino =0) { 
if(eo =- 0) 

eo == up->u_offset; 
goto eloop; 

} 

cp == &( (struct direct *)cp)->d_name [0] ; 
for(i=0; i<DIRSIZ; i++) 

if(*cp++ i“ up->u_dent.d_name[i]) 
goto eloop; 

/* 

* Here a component matched in a directory. 

* If there is more pathname, go back to 

* eloop, otherwise return. 

*/ 

if(bp !- NULL) 

brelse(bp); 

if (flag—2 && c—'\0') { 

if(access(dp, IWRITE)) 
goto out; 
return(dp); 

} 

d «= dp->i_dev; 

if (up->u_dent.d_ino — ROOT I NO) 
if(dp->i_number — ROOTINO) 
if (up-'>u_dent. d_name [ 1 ] — ' .') 

for(i-l; i<v.v_mount; i++) 

if (mount [ (short) i] .in_flags — HINUSE) 
if(mount[(short)i].m_dev — d) { 
iput(dp); 

dp - mount[(short)i].m_inodp; 

dp->i_count++; 

plock(dp); 

goto seloop; 

} 


2 


iput(dp); 

dp = ig6t(d, up''>u_dent .d_ino); 
if(dp — NULL) 

return(NULL); 
goto eloop; 

out; 

iput(dp); 
return (NULL); 


/* 

* Return the next character from the 

* kernel string pointed at by dirp. 

*/ 

schar() 

{ 

return(*u.u_dirp++ & 0377); 

/* 

* Return the next character from the 

* user string pointed at by dirp. 

*/ 

uchar() 

{ 

register c; 

c “ fiibyte ((caddr_t) u. u_dirp++); 
if(c — -1) 

u.u_error = EFAULT; 
return(c); 

} 
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/* ipc.c 4.20 82/06/20 */ 

^include "sys/param.h" 

^include "sYs/config.h" 
include "sys/types.h" 

^include "sys/iamu.h** 

♦include "sys/sysmacros.h" 

♦include "sys/systm.h" 

♦include "sys/signal.h" 

♦ include " sy s / errno. h '• 

♦include "sys/dir.h" 

♦include "sys/user=h" 

♦include "sys/proc.h" 

♦include "sys/file.h” 

♦include "sys/inode-h" 

♦include "sys/buf.h" 

♦include "net/misc.h" 

/* 

♦include "net/inbuf .h" 

*! 

♦include “net/protosw.h" 

♦include "net/socket.h" 

♦include "net/socketvar.h" 

♦include “net/in-h” 

♦include '•net/in_systm.h'' 

/* 

* Socket system call interface. 

* These routines interface the socket routines to UNIX, 

* isolating the system interface from the socket-protocol interface. 

* TODO: 

* SO_INTNOTIFY 

*/ 


/* 

* Socket system call interface. Copy sa argvuaents 

* set up file descriptor and call internal socket 

* creation routine, 

*/ 

ssocket() 

{ 

register struct ua { 
int type; 
struct sockproto *asp; 
struct sockaddr *asa; 
int options; 

} *uap - (struct ua *)u.u_ap; 
struct sockproto sp; 
struct sockaddr sa; 
struct socket *so; 
register struct file *fp; 

if ((fp - falloc{(struct inode *)0, FSOCKETjFREAD|FWRITE)) ““ NULL) 
return; 

if (uap->asp && copyin((caddr_t)uap->asp, (caddr_t)&sp, sizeof (sp)) || 

uap->asa && cox)yin( (caddr_t)uap->asa, (caddr_t) isa, sizeof (sa))) { 

u.u_error - EFAULT; 
fp->f_count = 0; 
fp->f_next - ffreelist; 
ffreelist - fp; 
return; 

} 

u.u_error - socreate(&so, uap->type, 

uap->asp ? 4sp : 0, uap->asa ? isa : 0, uap->option3); 
if (u,u_error) 

goto bad; 

fp->f_socket “ (off_t)so; 
return; 

u.u_ofile[u,u_rvall] - 0; 
fp->f_count - 0; 
fp->f_next - ffreelist; 
ffreelist =• fp; 


bad: 


} 


/* 

* Accept system call interface. 

*/ 

saccept() 

{ 

register struct a { 

int fdes; 
struct sockaddr *asa; 

} *uap (struct a *)u.u_ap; 
struct sockaddr sa; 
register struct file *fp; 
struct socket *so; 
int s; 

if (uap->asa && useracc((caddr_t)uap->asa, sizeof (sa), B_WRITE)==0) { 
u.u_error => EFAULT; 
return; 

} 

fp “ getf(uap->fdes); 
if (fp “= 0) 

return; 

if ((fp->f_flag & FSOCKET) -“0) { 
u.u_error = ENOTSOCK; 
return; 

} 

s “ spinet(); 

so * (struct socket *)fp->f_socket; 
if (<so->so_state & SS_NBIO) && 

(so->so_state & SSjCONNAWAITING) — 0) { 
u.u_error - EWOULDBLOCK; 
splx(s); 
return; 

) 

while ((so->so_state & SS_CONNAWAITING) ==■ O && so->so_error “ 0) { 
if (so->so_State & SS_CANTRCVHORE) { 
so->so_error - ECONNABORTED; 
break; 

} 

(void) sleep((caddr_t)4so->so_timeo, rZERO+l); 

} 

if (so->so_error) { 

u.u_error •= so->so_error; 

splx(s); 

return; 

} 

u.u_error = soaccept(so, &sa); 
if (u.u_error) { 
splx(s); 
return; 

) 

if (uap->asa) 

(void) copyout((caddr_t)isa, (caddr_t)uap->asa, sizeof (sa)); 
/* deal with new file descriptor case */ 

/* u.u_r.r_vall « ... */ 
splx(s) ; 


/* 

* Connect socket to foreign peer; system call 

* interface. Copy sa arguments and call internal routine. 

*/ 

sconnect() 

{ 

register struct ua ( 
int fdes; 
struct sockaddr *a; 

} *uap - (struct ua *)u.u_ap; 
struct sockaddr sa; 
register struct file *fp; 
register struct socket *so; 
int s; 

if (copyin((caddr_t)uap->a, (caddrt)isa, sizeof (sa))) { 
u.^_eri;ox - EFAULT; 
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return; 

} 

fp ” getf(uap->fdes); 
if (fp — 0) 

return; 

if ((fp->f_flag & FSOCKET) == 0) { 
u.u_error = ENOTSOCK; 
return; 

} 

so = (struct socket *)fp->f_socket; 
u.u_error soconnect (so, &sa); 
if (UiU error) 
return; 
s “ spinet(); 

if ((so”>so_state £ SS_NBIO) ££ 

(so->so_state & SS_ISCONNECTING)) { 
u.u__error = EINPROGRESS; 
splx(s); 
return; 

} 

while ((so->so_state 4 SS_ISCONNECTING) £4 so->so_error =*= 0) 

(void) sleep( (caddr_t) 4so->so_tinieo, PZERO+1); 
u.u__error * so->so_error; 
so->so_error = 0; 
splx(s); 

} 

/* 

* Send data on socket. 

*/ 

ssendO 

{ 

register struct a { 

int fdes; 
struct sockaddr *asa; 
caddr_t cbuf; 
imsigned count; 

} *uap = (struct a *)u,u_ap; 
register struct file *fp; 
struct sockaddr sa; 

fp = getf(uap->fdes); 
if (fp =“ 0) 

return; 

if ((fp->f_flag £ FSOCKET) — 0) ( 
u.u_error =■ ENOTSOCK; 
return; 

} 

u.u_base = uap->cbuf; 
u.u_count =■ uap->count; 
u.u_segflg - 0; 

if (useracc(uap->cbuf, uap->count, B_READ) *=011 

uap->asa ££ copyin((caddr_t)uap->asa, (caddr_t)£sa, sizeof (sa))) { 
u.u_error - EFAULT; 
return; 

} 

u.u_error - sosend((struct socket *)fp->f_socket, uap->asa ? £sa ; 0); 
u.u_rvall = uap->count - u.u_count; 

} 

/* 

* Receive data on socket. 

*/ 

sreceive() 

( 

register struct a { 

int fdes; 
struct sockaddr *asa; 
caddr_t cbuf; 
u_int count; 

) *uap - (struct a *)u.u_ap; 
register struct file *fp; 
struct sockaddr sa; 

fp - getf{uap->fdes); 
if (fp -= 0) 


return; 

if ((fp->f_flag £ FSOCKET) 0) { 
u.u_error “ ENOTSOCK; 
return; 

} 

u.u_ba3e “ uap->cbuf; 
u.u_count = uap->count; 
u.u_segflg - 0; 

if (useracc(uap->cbuf, uap->count, B_WRITE) “ 0 || 

uap->asa ££ copyin((caddr_t)uap->asa, (caddr_t)4sa, sizeof (sa))) { 
u.u_error = EFAULT; 
return; 

} 

u.u_error - soreceive((struct socket *)fp->f_socket, uap->asa ? £sa ; 0); 
if (u.u_error) 
return; 
if (uap->asa) 

(void) copyout((caddr_t)4sa, (caddr_t)uap->asa, sizeof (sa)); 
u.u_rvall - uap->count - u.u_count; 

} 

/* 

* Get socket address. 

*/ 

ssocketaddr0 

{ 

register struct a { 

int fdes; 
struct sockaddr *asa; 

} *uap = (struct a *)u.u_ap; 
register struct file *fp; 
register struct socket *so; 
struct sockaddr addr; 

fp - getf(uap->fdes) ; 
if (fp = 0) 

return; 

if ((fp->f_flag £ FSOCKET) “ 0) { 
u.u_error - ENOTSOCK; 
return; 

so = (struct socket *)fp->f_socket; 
u.u_error ■=■ 

(*so->sojproto->pr_usrreq)(so, PRU_SOCKADDR, 0, (caddr_t)4addr); 
if (u.u_error) 
return; 

if (copyout((caddr_t)£addr, (caddr_t)uap->asa, sizeof (addr))) 
u.u error = EFAULT; 


} 
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/* &(#)partab.c 1.1 */ 
char partab[] = { 

0001 , 0201 , 0201 , 0001 , 0201 , 0001 , 0001 , 0201 , 
0202,0004,0003,0205,0007,0206,0201,0001, 
0201 , 0001 , 0001 , 0201 , 0001 , 0201 , 0201 , 0001 , 
0001 , 0201 , 0201 , 0001 , 0201 , 0001 , 0001 , 0201 , 
0200 , 0000 , 0000 , 0200 , 0000 , 0200 , 0200 , 0000 , 
0000 , 0200 , 0200 , 0000 , 0200 , 0000 , 0000 , 0200 , 
0000 , 0200 , 0200 , 0000 , 0200 , 0000 , 0000 , 0200 , 
0200 , 0000 , 0000 , 0200 , 0000 , 0200 , 0200 , 0000 , 
0200 , 0000 , 0000 , 0200 , 0000 , 0200 , 0200 , 0000 , 
0000 , 0200 , 0200 , 0000 , 0200 , 0000 , 0000 , 0200 , 
0000 , 0200 , 0200 , 0000 , 0200 , 0000 , 0000 , 0200 , 
0200 , 0000 , 0000 , 0200 , 0000 , 0200 , 0200 , 0000 , 
0000 , 0200 , 0200 , 0000 , 0200 , 0000 , 0000 , 0200 , 
0200 , 0000 , 0000 , 0200 , 0000 , 0200 , 0200 , 0000 , 
0200 , 0000 , 0000 , 0200 , 0000 , 0200 , 0200 , 0000 , 
0000 , 0200 , 0200 , 0000 , 0200 , 0000 , 0000 , 0201 , 

0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 
0210 , 0210 , 0210 , 0210 , 0210 , 0210 , 0210,0210 
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/* @(#)pipe.c 1.4 */ 
finclude "sys/param.h*' 

#include ”sys/types.h" 

^include "sys/systm.h** 

^include "sys/dir.h" 

^include "sys/signal.h” 

^include "sys/buf.h" 
tinclude "sys/filsys.h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/inode.h" 

♦include “sys/file.h” 

♦include "sys/mount.h" 

♦include "sys/var.h” 

/* 

* The sys-pipe entry. 

* Allocate an inode on the root device. 

* Allocate 2 file structures. 

* Put it all together with flags. 

*/ 

pipeO 

{ 

register struct inode *ip; 
register struct file *rf, *wf; 
int r; 

register struct user *up; 
up - &u; 

ip = ialloc(getpdev(), IFIFO, 0); 
if<ip NULL) 
return; 

rf = falloc(ip, FREAD); 
if(rf “ NULL) { 
iput(ip); 
return; 

r = up~>u_rvall; 

wf = falloc(ip, FWRITE); 

if(wf — NULL) { 

rf->f_count = 0; 
rf“>f_next = ffreelist; 
ffreelist = rf; 
up->u_ofile[r] = NULL; 
iput(ip); 
return; 

} 

up->u_rval2 = up->u_rvall; 
up->u_rvall = r; 
ip->i__count = 2; 
ip->i_frcnt =• 1; 
ip->i_fwcnt = 1; 
prele(ip); 


/* 

* Open a pipe 

* Check read and write counts, delay as necessary 
*/ 

openpdp, mode) 
register struct inode *ip; 
register mode; 

{ 

if (modeiFREAD) { 

if (ip“>i_frcnt++ =*= 0) 

wakeup((caddr_t)&ip->i_frcnt); 

} 

if (modetFWHITE) { 

if (mode&FNDELAY && ip->i_frcnt -=• 0) { 
u.u_error - ENXIO; 
return; 

if (ip->i_fwcnt++ 0) 

wakeup((caddr_t)4ip“>i_fwcnt); 


} 


if (inodetFREAD) { 

while (ip->i_fwcnt — 0) { 

if (modeiFNDELAY !1 ip->i_size) 
return; 

(void) sleep((caddr_t)&ip->i_fwent, PPIPE); 


} 

if (modeiFWRITE) { 

while (ip->i_frcnt == 0) 

(void) sleep((caddr_t)*ip->i_frcnt. 


} 


PPIPE); 


/* 

* Close a pipe 

* Update counts and cleanup 
*/ 


closep(ip, mode) 
register struct inode *ip; 
register mode; 

{ 

register i; 
daddr t bn; 


if (mode&FREAD) { 

if ((—ip->i_frcnt — 0) && (ip->i_fflag&IFIW)) ( 
ip->i_fflag s- ~IFIW; 
wakeup((caddr_t)&ip->i_fwcnt); 

) 

} 

if (mode&FWRITE) { 

if ((--ip->i_fwcnt “ 0) && (ip->i_fflag&IFIR)) { 
ip->i_fflag S- ~IFIR; 
wakeup((caddr_t)&ip->i_frcnt); 

} 

} 

if ((ip->i_frcnt “0) && (ip->i_fwcnt “0)) { 
for (i=NFADDR-l; i>-0; i—) { 
bn = ip“>i_faddr[i]; 
if (bn = (daddr_t)0) 
continue; 

ip->i_faddr[i] - (daddr_t)0; 
free(ip->i_dev, bn); 

} 

ip->i_size = 0; 
ip->i_frptr = 0; 
ip->i_fwptr “ 0; 
ip->i_flag I- IUPD|ICHG; 

} 

} 


/* 

* Lock a pipe. 

* If its already locked, 

* set the WANT bit and sleep. 
*/ 

plock(ip) 

register struct inode *ip; 

{ 


while(ip->i_flag4ILOCK) { 

ip->i_flag |» IWANT; 

(void) sleep((caddr_t)ip, PINOD); 

} 

ip“>i_flag ILOCK; 


/* 

* Unlock a pipe. 

* If WANT bit is on, 

* wakeup. 

* This routine is also used 

* to unlock inodes in general, 
*/ 

prele(ip) 
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register struct inode *ip; 

{ 


ip->i_flag 6= -ILOCK; 
if (ip->i_flag&IlifAIIT) { 

ip->i_flag 4- ~I»fANT; 
wakeup( (caddr__t) ip) ; 

} 

/* 

* Return the mounted pipe device 
*/ 

dev_t 
getpdev() 

{ 

register struct mount *mp; 
register dev_t dev; 

dev - pipedev; 

for (mp - amount[0]; mp < (struct mount *)v.ve_raount; mp++) 
if (mp->m_flags '= MFREE && dev =“ mp-‘>m_dev && 
mp->ra_bufp'->b_un. b_f ilsys->s_ronly==0) 
return(dev); 

return(rootdev); 
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/* B(*)prf.o 1.2 */ 

♦include "sys/param.h" 

♦include "sys/types.h” 

♦include "sys/sysmacros.h" 

♦include "sys/systm.h" 

♦include "sys/buf.h" 

♦include “sys/conf.h" 

/* 

* In case console is off, 

* panicstr contains argument to last call to panic. 
*/ 

char *panicstr; 

/* 

* Scaled down version of C Library printf. 

* Only %c %s %u %d (-=-%u) %o %x %D are recognized. 

* Used to print diagnostic information 

* directly on console tty. 

* Since it is not interrupt driven, 

* all system activities are pretty much suspended. 

* Printf should not be used for chit-chat. 

*/ 

/* VARARGSl */ 
printf(fmt, xl) 
register char *fmt; 
unsigned xl; 

register c; 

register unsigned int *adx; 
register int b, i, any; 
char *s; 

♦ifdef PRINTFSTALL 

for (C “ 0; c < PRINTFSTALL; C++) 


♦endif PRINTFSTALL 
adx - 4x1; 

loop: 

while((c = *frat++) I- '%') { 
lf(c “= '\0') 

return; 

(*putchar)(c); 

} 

c ■= *fmt++; 

if(c == 'd' II c == 'u' II c =” 'o' II c — 'x') 

printn( (long) *adx, c“-'o'2 8: (c“'x'? 16:10)); 
else if (c = 'c') 

(*putchar)(*adx); 
else if (c 'b') { 

b - *adx++; 

s = (char *) *adx; 

printn((long) b, *s++); 
any = 0; 

if (b) { 

(*putchar) ('<'); 
while (i =* *s++) { 

if (b 4 (1 « (i - 1))) { 
if (any) 

(*putchar)(','); 
any «=* 1 ; 

for (; (c * *s) > 32; s++) 
(*putchar)(c); 


} 


else 


for (; *s > 32; s++) 


} 

else 


} 


) 

if (any) 

{*putchar)('>'); 


if (c ' s') { 

s - (char *)*adx; 
while(c « *s++) 

(*putchar) (c); 


} else if (c == 'D') { 

printn(*(long *)adx, 10); 

adx +“ (sizeof(long) / si 2 eof(int)) - 1; 

} 

adx++; 
goto loop; 

} 

printn(n, b) 
long n; 
register b; 

( 

register i, nd, c; 
int flag; 

int plmax; 

char d[12]; 



/* 

* Panic is called on unresolvable fatal errors, 

* It syncs, prints "panic: mesg" and then loops. 

*/ 

panic(s) 
char *s; 

{ 

if (s 44 panicstr) 

printf("Double panic: %s\n", s); 

else { 

if (s) 

panicstr “ s; 
update(); 

printf("panic: %s\n", panicstr?panicstr;"???"); 

} 

for (;;) 

idle(); 

} 


/* 

* prdev prints a warning message. 

* dev is a block special device argument. 
*/ 
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prdev(str, dev) 
char * stri¬ 
de v_t dev; 

{ 

register maj; 

inaj = hraajor (dev); 

if (maj >- bdevcnt) { 

printf("%s on bad dev %o(8)\n”, str, dev); 
return; 

} 

(*bdevsw[maj].d_print)(minor(dev), str); 


/* 

* prcora prints a diagnostic from a device driver. 

* prt is device dependent print routine. 

*/ 

prcom(prt, bp, erl, er2) 
int (*prt)(); 
register struct buf *bp; 

{ 

(*prt) (bp->b_dev, “XnDevice error'*); 

printf(*'bn = %D er = %o,%o\n", bp->b_blkno, erl, er2) ; 

} 
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/* ♦define HOWFAR */ 

/* ♦define UNISOFT /* allow access to boot partition */ 

/* 

* Priam Datatower 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

*/ 

♦include "sys/param.h*' 

♦include “sys/config.h” 

♦include "sys/mmu.h" 

♦include “sys/types.h" 

♦include "sys/sysmacros-h" 

♦include " sys/dir .h** 

♦include "sys/signal.h” 

♦include "sys/user.h" 

♦include '•sys/errno.h'' 

♦include "sys/utsname.h" 

♦include ••sys/buf.h" 

♦include "sys/elog.h" 

♦include "sys/erec.h" 

♦include *sys/iobuf.h" 

♦include "sys/systm.h" 

♦include “sys/var.h" 

♦include ’•sys/uioctl.h” 

♦include •• sys /a l_ioct 1. h** 

♦include "sys/diskforraat.h" 

♦include **setjmp.h" 

♦include "sys/reg.h" 

♦include "sys/altblk-h" 

♦include ••sys/cops.h" 

♦include *sys/pport.h" 

♦include "sys/priara.h" 

♦include "sys/swapsz.h” 

♦define logical(x) (minor<x) & 7) /* eight logicals per phys */ 

♦define physical(x) ((minor(x) & OxFO) » 4)/* 10 physical devs */ 

♦define splpm spl5 

/* 

* Sfhen the disk is first opened its size is determined and jmi_sizes is 

* initialized accordingly (in padinit). 

* 

* The first 100 blocks are reserved for the boot program and 

* are inaccessible via unix. 

*/ 

♦define MAXBOOT 100 
struct pra_sizes { 

daddr_t sz_offset; 
daddr_t sz_size; 

} pm_sizes[NPM][8]; 

♦define GETBUF(bp) splpmO; \ 

while (bp->b_flags & B_BUSY) { \ 

bp“>b_flags |- B_WANTED; \ 

(void)sleep((caddr_t)bp, PRIBIO+1); \ 

} \ 

bp'->b_flags |- B_BUSY; \ 
splOO 

♦define FREEBUF(bp) splpmO; \ 

if (bp->b_flags & B_WANTED) \ 
wa keup((ca ddr_t)bp); \ 
bp->b_flags - 0; \ 
splO 0 

struct iostat paastat [NPM] ; 

struct iobuf pratab - tabinit(PM3,pmstat); /* active buffer header */ 

struct buf pjacbuf; /* command buffer */ 

struct buf pmrbuf; 

char p(mlflag[NPM] ; 


char pmresultslNPHRES]; /* result regs. for last command comp ack */ 

int pranblksfNPM]; /* nimaber of blocks on disk */ 

int pmcblkcnt; /* current block count */ 

struct pmfmtparms pmfmt; /* format parameters for packet-based format crad */ 

struct pmfmtstat pmfstat; /* format status from packet-based format cmd */ 

/* variables needed to share info for interrupt routines */ 

char pmstate; /* idling or waiting for interrupt */ 

♦define IDLING 0 

♦define INITING 1 

♦define READINGl 2 /* 1st intr while reading */ 

♦define READING2 3 /* 2nd intr while reading */ 

♦define BRITINGl 4 /* 1st intr while writing */ 

♦define SRITING2 5 /* 2nd intr while writing */ 

♦define FMTINGl 6 /* 1st intr while formatting */ 

♦define FMTING2 7 /* 2nd intr while formatting */ 

♦define FMTING3 8 /* 3rd intr while formatting */ 

♦define FMTING4 9 /* 4th intr while formatting */ 

caddr_t prama; /* current memory address */ 

char pmierror; /* error value from intr */ 

pmopen(dev) 
register dev; 

{ 

register punit; 
extern char slot[]; 

punit “ physical(dev); 
if (punit >- NPM) { 

u.u_error = ENXIO; 
return(-1); 

if (slot[punit] «- PM3) { 

printf(“Unix panopen; no Priam card in slot %d\n", punit); 
u.u_error = ENODEV; 
return(-1); 

} 

if (pmiflag[punit] = 0) { 
if (pmdinit(dev)) { 

u.u_error -= EIO; 
return(-1); 

} 

pmiflag [pimit]++; 

} 

return(0); 

} 

/* 

* pmdinit - initialize device (sequence up) 

*/ 

pmdinit(dev) 
register dev_t dev; 

{ 

register struct buf *bp = ipmcbuf; 
register punit, i; 
register struct j»n_sizes *sp; 
register daddr_t offset, size; 

punlt - physical(dev); 

GETBUF(bp); 
bp->b_dev ” dev; 
bp->b_resid - PMRDEVPMS; 
pranblks[punit] * 0; 
pmstrategy(bp); 
iowait(bp); 

i - bp->b_flags & B_ERROR; 

FREEBUF(bp); 

if (i) 

return(-1); 
sp - pra_slzes[punit]; 
offset “ MAXBOOT + 1; 
size - pranblks[punit] - offset 
sp[7].sz_offset - offset; 
sp[7] .sz^^size - size; 
sp[l).sz_offset ~ offset; 
sp[l].sz_size - PMNSWAP; 
offset +- PMNSWAP; 


/* avoid boot area */ 
/* h “ entire */ 

/* b - swap */ 
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size — PMNSWAP; 
if (size < 0) { 

printf("Unix pmdinit: disk size =“ %d (insufficient)\n", pmnblks[punit]); 
return(-1); 

} 

sp[0].sz_offset * offset; /* a = root */ 

sp[0].sz_size - size; 
for (i - 2; i < 7; i++) { 

sp[i].sz_offset - (daddr_t)(0); /* c-g -spare */ 
sp[i].s2_size = (daddr_t)0; 


prastrategy(bp) 
register struct buf *bp; 

{ 

register punit, lunit, bn; 
punit - physical(bp->b_dev); 

if (bp “ ipmcbuf) { /* if command */ 

pmstat [punit] .io_itdsc++; /* errlog: */ 
splpraO; 

if (pnitab.b_actf “ (struct buf *)NULL) /* set up links */ 
pmtab.b_actf - bp; 

else 

pmtab.b_actl->av_forw = bp; 
pmtab.b_actl - bp; 
bp->av_forw - (struct buf *)NULL; 

} else { 

lunit = logical(bp->b_dev); 

bn ■= bp~>b_blkno + pni_sizes[punit] [lunit] .s 2 _offset; 


#ifdef UNISOFT 


#else UNISOFT 


#endif UNISOFT 
#ifdef HOWFAR 


Oendif HOWFAR 


if (bp->b_blkno < 0 ) { 
if (bp->b_blkno <0 Ii bn <= MAXBOOT) { 


prdevC'pmstrategy: illegal blkno", bp->b_dev); 
printf("blknO“%d bcount==%d\n", bp->b_blkno, bp“>b_bcount); 

bp->b_flags 1= B_ERROR; 

iodone(bp); 

return; 


pmstat[punit].io_ops++; /* errlog: */ 
bp->b_resid = bn; /* resid for disksort */ 

splpraO ; 

disksort(Spratab, bp); 


if (pratab.b_active 
pmstart(); 

SPLOO; 


register struct buf *bp; 
register offset, bn, lunit, punit; 


if ((bp - pratab.b_actf) — (struct buf *)NULL) 
return; 

if (pmtab,b_active ==0) { 
pmtab.b_active - 1; 
if (bp !“ ipmcbuf) 

bp“>b_resid - bp~>b_bcount; 


blkacty I- (1«PM3); 
if (bp =- ipncbuf) ( 

if (pmcmd(bp) I- 0) { /* b_resid holds the command */ 

bi>->b_flags I- B_ERROR; 
goto next; 

) 

return; 


lunit - logical(bp->b_dev); 

punit = physical(bp->b_dev); 

offset = bp->b_bcount - bp->b_resid; 

bn => bp->b_blkno + btod(offset); /* logical block number */ 

if (bp->b_resid < BSIZE || bn >- pn^sizes[punit][lunit].S 2 _size) { 
next: 


Oifdef HOWFAR 


Oendif HOWFAR 


if (bp->b_resid 0) 

printf("Unix pmstart: blkno=%d resid-%d bn-%d\n", 
bp->b_blkno, bp->b_resid, bn); 

pmtab.b_active - 0; 
pratab.b_errcnt = Q; 
blkacty i- ~(1«PM3); 
pratab.b_actf = bp->av_forw; 
iodone(bp); 
goto loop; 


bn +=“ pra_si 2 es[punit] [lunit].s 2 _offset; /* physical block number */ 
if (pmrw(punit, bn, bp->b__flagsiB_READ, bp->b_un.b_addr+offset) 1= 0) 
bp->b_flags |- B_ERROR; 
goto next; 


/* ARGSUSED */ 

pmioctKdev, cmd, addr, flag) 
dev_t dev; 
caddr_t addr; 

{ 

register punit; 
register struct buf *bp; 


punit ” physical(dev); 
if (punit >“ NPM) { 

u.u_error - EINVAL; 
return; 


switch (cmd) { 

case UIOCSIZE: /* get size of Priam disk */ 

if (copyout f(caddr_t)spranblks[punit], (caddr_t)addr, 4)) 
u.u_error = EFAULT; 

break; 

case UIOCFORMAT: 

if (IsuserO) { 

u.u_error - EPERM; 
return; 

} 

bp - spracbuf; 

GETBUF(bp); 
bp->b_dev - dev; 

bp->b_resid = PMPKTXFER; /* stash the command in resid */ 

prastrategy(bp); 
iowait(bp); 

if (bp->b_flags & B_ERROR) 
u.u_error - EIO; 

FREEBUF(bp); 
break; 

default: 

u.u_error - ENOTTY; 
break; 

} 

) 


pracmd(bp) 

register struct buf *bp; 

{ 

register struct pm_base *pmhwbase; 
register struct pra_base *addr; 
register punit; 

register struct prafmtparms *fmtp = &pmfmt; 


punit - physical(bp->b_dev); 

pmierror - 0; 

switch (bp“>b_resid) { 

case PMRDEVPMS: /* read device parameters (spin up if necessary) */ 
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) 


prahwbase = pmaddr(punit); /* base address for this card */ 

addr - pmBWaddr<pmhwbase); /* byte mode - waiting */ 

if (pmwaitrf(addr)) { 

printf(“Unix pmcmd; timeout before read dev parmsXn"); 
return(-1); 

} 

addr->p0 =0; /* device always 0 */ 

addr « pmBIaddr(prohwbase); /* byte mode - intr enabled */ 

pmstate = INITING; 

addr->cmdreg = PMRDEVPMS; 

return(0); 

case PMPKTXFER: /* format disk (done with packet“based command) */ 

prahwbase = {xnaddr (punit); /* base address for this card */ 

addr = panBWaddr (prahwbase); /* byte mode - waiting */ 

if (pmwaitrf(addr)) { 

printf(”Unix pmcmd: timeout before formatXn"); 
return(-1); 

} 

fmtp“>pa_opcode *= PMFMT;/* set up format parms packet */ 
fmtp->pm_devsel - 0; /* device select = 0 (no daisy chaining) */ 

fmtp->pm_scntl - PMFBD; /* fill byte disabled, media type = 0 */ 
fmtp“>pm_fill - 0; /* fill byte */ 

fmtp->pm_ssize = 536; /* sector size */ 

fmtp->pm_dcntl =0; /* defect mapping enabled, 0 spares/track */ 

fmtp“>pm_ncyl =10; /* * cyls for alt tracks and alt sectors */ 

fmtp->pm_cif =0; /* cyl interleave factor */ 

fmtp->p!ra_hif =1; /* head interleave factor */ 

fmtp->pra_sif = 1; /* sector interleave factor */ 

fmtp->pm_sitl =0; /* sector interleave table length */ 

addr-’>pQ = 0; /* device always 0 */ 

addr-“>p2 - 0; /* MSB of packet length */ 

addr->p3 = sizeof(struct prafmtparras); /* LSB of packet length */ 

addr - pmBIaddr(prahwbase); /* byte mode - intr enabled */ 

pmstate = FMTINGl; 
addr->cmdreg - PMPKTXFER; 
return(0); 

default: 

return(-1); 

} 


prarw(unit, bn, rflag, addr) 
register unit; 
register bn; 
register rflag; 
register caddr_t addr; 

{ 

register struct pra_base *prahwbase; 
register struct pm_base *hwaddr; 
register trap; 


prahwbase = pmaddr(unit); /* base address for this card */ 

hwaddr - pmBWaddr(prahwbase); /* byte mode - waiting */ 

if (pmwaitrf(hwaddr)) { 

printf(“pmrw: timeout before setting %s parameters ", 
rflag?''read*'; "write") ; 

printf("card %d, bn %d, addr 0x%x\n", unit, bn, addr); 
return(“1); 

) 

hwaddr->p0 =0; /* device always 0 */ 

trap - bn; 

hwaddr“>p3 - trap & OxFF; /* most sig. byte */ 

trap - trap » 8; 

hwaddr->p2 = trap A OxFF; /* middle byte */ 

trap = trap » 8; 

hwaddr->pl = trap A OxFF; /* least sig. byte */ 

hwaddr“>p4 - 1; /* operation count - 1 sector */ 

pmcblkcnt - 1; 

hwaddr - praBIaddr(prahwbase); /* byte mode - intr enabled 

prama = addr; 
praierror = 0; 

pmstate - rflag ? READINGl : WRITINGl; 
hwaddr“>cradreg = rflag 3 PMREAD : PMWRITE; 
return(0); 


/* start r/w */ 


pmintr(ap) 
struct args *ap; 

\ 

register struct pm_base *pmhwbase; 
register struct pm_base *addr; 
register struct buf *bp; 
register char status; 
dev_t punit; 


(void) splpmO; 
punit “ ap->a__dev; 

prahwbase - pmaddr(punit); /* base address 

addr » pmBWaddr(prahwbase); /* byte mode - 

if (pmtab.b_active •— 0) { 

#ifdef HOWFAR 

printfC'Unix pmintr: b_active = 0\n"); 

#endif HOWFAR 


/* base address for this card */ 
/* byte mode - waiting */ 


addr->cmdreg = 0; 
return; 


/* clear spurious intr (clrb) */ 


if ((bp = pimtafa.b_actf) = (struct buf *)NULL) { 

#ifdef HOWFAR 

printf("Unix pmintr: b_actf = NULL\n"); 

#endif HOWFAR 

goto spurious; 

} 

if (bp == Apmcbuf) { /* if command */ 

switch (bp->b_resid) { 

case PMRDEVPMS: /* read device parameters (spin up if necessary) */ 

if (pmstate '= INITING) 
goto spurious; 

if (praierror = pmackcc(addr)) { 

printf("error on read dev parms: /dev/pra%d%c ", 
punit, 'a'+logical(bp->b_dev)); 
printf("status 0x%x\n", praierror); 
bp“>b_flags 1= B__ERROR; 

} else { 

register nheads, ncyls, nsecs; 

nheads - PMNH(pmresults[1]); 

ncyls = PMNC(pmresults[l], pmresults[2]); 

nsecs = PMNS(pmresults[3]); 

pmnblks[punit] = nheads * ncyls * nsecs; 

} 

break; 

case PMPKTXFER; /* format disk (done with packet-based command) */ 

switch (pmstate) { 

case FMTINGl: f* intr to transfer packet */ 

if ((addr->status A DTREQ) =- 0) 

goto ackcc; /* if not waiting for data */ 

{ /* send packet */ 

register char *cp - (char *)Apafmt; 
register i = sizeof(struct pmfmtparms); 
do { 

addr->pdata - *cp++; 

} while ( —i ); 


(void)praackdt(addr); /* Apple's code doesn't check 

pmstate++; /* not done yet - wait for next intr * 

return; 

case FMTING2: /* intr after packet complete */ 

(void)praackcc(addr); 

(void)pmwaitrf(addr); 

addr->pQ - 0; /* packet ID - 0 */ 

addr = pmBIaddr(prahwbase); 

addr->cmdreg = PMPKTRST;/* read packet status */ 
goto wait; 

case FMTING3: /* intr when status can be read */ 

if ((addr->status A DTREQ) == 0) 

goto ackcc; /* if not waiting for data */ 

{ /* read packet status */ 

register char *cp - (char *)Aprafstat; 
register i - sizeof(struct profratstat); 
do { 

*cp++ - addr->pdata; 

) while ( —i ); 


*/ 

/ 
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} 

(void)praackdt(addr); /* Apple's code doesn't check */ 

goto wait; 

case FMTING4; /* intr after read packet status */ 

ackcc: (void)pniackcc(addr); 

if ((pnifstat.pini_pstate PMPKTCOMP) 
i i prafstat .pra_j)ristat) { 
pmierror - pmfstat .ptnjjristat; 
bp“>b_flags i= B_ERROR; 

} 

} 

break; 

} 

goto out; 

} 

if ((addr->status i CHD_DONE) = 0) { /* block transfer interrupt */ 

if (ipmcblkcnt) { /* 2nd interrupt */ 

if ((pmstate-=-READING2) 1| (p!rtistate“”WRITING2)) 
goto done; 

printfC'Unix pmintr: state-%d, expecting 2nd\n“, pmstate); 
bp->b_flags |- B_ERROR; 
goto out; 

} 

/* 1st interrupt */ 

if < (prostatei-’READINGl) && (prostate'“ffRITINGl)) { 

printfC'Unix pmintr: state=%d, expecting IstXn**, prostate); 
bp->b_flags != B_ERROR; 
goto out; 


done: 


out: 


pracblkcnt—; 

if (prostate -= READINGl) 

pmrsect(punit); /* sets pmierror for parity */ 

else 

pmwsect(punit); 

pmstate++; /* set to READING2 or SJRITING2 */ 

addr->cmdreg = PMCBTI; /* clear block transfer intr */ 
addr = pmBWIaddr(prahwbase); /* setup for next intr */ 

status = addr->status; 
return; 

} else { /* cmd completed (error) */ 

if ((prostate1=READING2) £& (prostatef=WRITING2)) 

printfC'Unix pmintr: command complete, state=%d\n", prostate); 

if (status - pmackcc(addr)) { /* ack intr */ 

if ((prastate=*READING2) && (pmresults [0] ==* PMECCERR)) 

/* ECC err requiring scavenger write */ 
status = PMECCERR; 
else if (pmresults[0] =— PMDTIMOUT) 

/* dev timeout - they reissue read/write */ 
status = PMDTIMOUT; 

} 

if (pmierror I- status) 

bp->b_flags |- B_ERROR; 

/* 

* because a single buffer can take several io operations, 

* we leave it to pmstartO to figure out when it's done 
*/ 

if (bp->b_flags4B_ERROR || bp ““ fipmcbuf) { 
if (bp->b_flags & B_ERROR) { 

{ 

register bn - 0; 
struct deverreg prareg[2]; 


printfC'Unix; HARD I/O ERROR on /dev/pra%d%c ", 
punit, logical(bp->b_dev)+'a'); 
if (pmierror) { 

if (pmierror & PMPERROR) 

printf("parity error "); 
if (status - (pmierror & ~PMPERROR)) 

printf("error code 0x%x ", status); 

) 

if (bp 1“ ipmcbuf) { 


bn - bp->b_blkno + btod(bp->b_bcount - bp->b_residi 

+ pm_sizes[punit}[logical(bp->b_dev)].sz_offset; 


} 


} else 


printf("bn %d\n", bn); 

) else printf("\n"); 

/* error logging */ 

pmtab.io_stp = ipmstat [punit]; 

pmregEO] .draddr *= (long)O; 

pmreg[Q].drvalue = pmierror; 

pmregCO].drname = "pmierror"; 

pmreg[0].drbits - "Priam disk status code"; 

pmreg[1].draddr = (long)O; 

pmreg[1].drvalue - prostate; 

pmreg[1] .dmame = "prostate"; 

pnreg[l].drbits - "Priam driver state"; 

fmtberr(spratab, 

(unsigned)punit, 

(unsigned)0, /* cylinder */ 

(unsigned)0, /* track */ 

(unsigned)bn, /* sector */ 

(long)(sizeof(pmreg)/sizeof(pmregEO])), /* regent */ 
SpmregEO] ,£j»nreg[l]) ; 

} 

logberr(Spmtab, 1); /* log hard (unrecovered) error */ 

} 

blkacty S-(1«PM3); 

pmtab.b_active = 0; 
pmtab. b_errcnt = 0; 
pmtab.b_actf = bp->av_forw; 
iodone(bp); 


bp*->b_resid — 512; 


pnstate = IDLING; 


pmstart (); 


/* 

* read block to memory at pmma 

* from PRIAMASM.TEXT - READ_SECT 
*/ 

pmrsect(punit) 
register punit; 

{ 


register struct pa_base *pmhwbase; 
register struct pm_base *hwaddr; 
register short *waddr; 
register i; 


pmhwbase - proaddr(punit); /* base address for this card */ 

hwaddr == pmBHaddr (pmhwbase); /* byte mode - waiting */ 

while ((hwaddr->status & DTREQ) 0) 

hwaddr = pmPaddr(pmhwbase); /* parity checking enabled */ 

waddr - (short *)pmma; 

*waddr = hwaddr->data; /* start read of first word */ 

i = 12; 

do { /* read and throw away header */ 

*waddr - hwaddr->data; 

} while ( —i ); /* read 24-byte header */ 

waddr -= (short *)pmma; 
i - 255; 
do { 

*waddr++ - hwaddr->data; 

) while ( —i ); /* read 510 bytes */ 

hwaddr = pmNaddr(hwaddr); /* read last 2 avoiding device cycle */ 

*waddr - hwaddr->data; 

hwaddr « pmpaddr(punit); /* parity in lo select space */ 

pmierror |- (hwaddr->parity s PMPERROR); 


/* 

* write block from memory at pmma 

* from PRIAMASM.TEXT - WRITE_SECT 
*! 

pmwsect(punit) 
register punit; 

( 


register struct pm_base *prahwbase; 
register struct pm_base *hwaddr; 
register short *waddr; 
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register i; 

register short tmp = 0; 

panhwbase = pmaddr (punit); /* base address for this card */ 

hwaddr = praBffaddr(pmhwbase); /* byte mode - waiting */ 

while ((hwaddr-’>status & DTREQ) « 0) ; 

hwaddr =• pmhwbase; 
i - 12; 

do f /* write dummy header */ 

hwaddr->data - tmp; 

} while ( —i ); /* write 24 bytes */ 

waddr =• (short *)prama; 
i - 256; 
do { 

hwaddr->data - *waddr++; 

} while ( “i ); /* write 512 bytes */ 


/* 

* wait for register file not busy 

* from PRIAMASM.TEXT and PRIAMCARDASM.TEXT - WAITRF 
*/ 

pmwaitrf(addr) 

register struct pm_base *addr; 

{ 

register i; 
i - TIMELIMIT; 

while ({addr->status & ISR_BUSY) 1- 0) { 

if (--i) 

continued- 
return (-1) ; 

} 

return(Q); 


/* 

* acknowledge command completion 

* from PRIAMASM.TEXT and PRIAMCARDASM.TEXT - ACKCC 
*/ 

pmackcc(addr) 

register struct pni_base *addr; /* pmBWaddr */ 

{ 

register i; 
i “ TIMELIMIT; 

while ((addr“>status & CMD_DONE) 0) { /* wait for cmd done */ 

if (—i) 

continue; 

printf ("pmackcc: timeout waiting for CMD_DO}IE\n''); 
return(-1); 

pmresults[0] = addr->r0; /* transaction status */ 

praresuits[1] - addr->rl; 

praresults[2] - addr“>r2; 

pmresults[3] = addr->r3; 

praresults[4] = addr->r4; 

praxesults(5] = addr->r5; 

addr“>cmdreg « 0; /* send command acknowledge (clrb) */ 

i = TIMELIMIT; 

while ((addr->status & CMD_DONE) != 0) { /* wait 'til reset */ 

if (--i) 

continue; 

printf (“pmackcc: timeout waiting for CMD_DONE reset\n''); 
return(-1); 

} 

return(pmresults[0] & PMCTYPE); /* error completion type */ 


/* 

* acknowledge data transfer 

* from PRIAMASM.TEXT - ACKDT 

* Their code does not check the return value, so who knows what'll happen 

* if it times out? 

*/ 

pmackdt(addr) 


register struct pm_base *addr; /* pmBffaddr */ 

{ 

register i; 

addr->cmdreg = PMCBTI; /* clear block transfer intr */ 

i - TIMELIMIT; 

while ((addr->status & BTR_INT) i- 0) { 
if (—i) 

continue; 

printf("Unix pmackdt: timeoutXn"); 
return(-1); 

} 

addr “ praladdr(addr); /* pmBWIaddr */ 

i * addr“>status & BTR_INT; /* setup for next intr */ 
return(0); 

) 

/* 

* pmcinit - initialize controller (turn on motor) 

* called from oem7init (config.c) 

*/ 

pmcinit (unit) 
register unit; 

{ 

register struct pm_base *addr; 
register i; 

addr = pmaddr(unit); /* hwbase */ 

addr = pmBWaddr(addr); /* byte mode - waiting */ 

if ((addr->status & CMD_DOME) i= 0) { /* cmd complete must be false */ 

if (pmwaitrf(addr)) { 

printf("timeout with status CHD_DONE\n"); 
goto err; 

} 

addr“>ciiidreg = 0; /* command ack power up (clrb) */ 

i - TIMELIMIT; 

While ((addr->status & CMD_DONE) == 0) { 

if (—i) 

continue; 

printf("timeout waiting for power up\n"); 
goto err; 

} 

} 

if (pmwaitrf(addr)) { 

printf("timeout before software reset\n"); 
goto err; 

} 

addr“>cmdreg = PHRESET; /* issue software reset */ 

if ((i-pmackcc(addr)) I- PHICOMP) { 

printf("software reset error 0x%x\n", i); 
goto err; 

} 

if (jmiwaitrf (addr)) { 

printf("timeout before read mode\n"); 
goto err; 

} 

addr->p0 =0; /* (clrb) */ 

addr->cmdreg - PMRMODE; 
if (pmackcc(addr)) { 

printf("read mode cmd ack failed\n"); 
goto err; 

) 

if (pmwaitrf(addr)) { 

printf("timeout after read mode\n"); 
goto err; 

} 

addr->p0 “ 0; /* (clrb) */ 

if (pmresults[3] — 2) { 

printf ("Smart E controller not implemented'.n"); 
goto err; 

} 

addr->pl - PMLOGSECT; /* set mode "logical sector mode" */ 

addr->p2 - 0; /* (clrb) */ 

addr->cmdreg - PHSMODE; 
if (pmackcc(addr)) ( 

printf("set mode cmd ack failed\n"); 
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goto err; 

} 

if (prawaitrf(addr)) { 

printf("timeout after set mode\n"); 
goto err; 

addr“>p0 = 0x40; 
addr->pl - PMPSELl; 
addr->p2 « PMIPARMS; 
addr->C3adreg “ PMSETP; 
if (pmackcc(addr)) { 

printf("set parms 1 cmd ack failedXn"); 
goto err; 

} 

if (pmwaitrf(addr)) { 

printf("timeout after set parms l\n"); 
goto err; 

} 

addr->p0 - 0x40; 
addr->pl = PMPSELO; 
addr-->p2 = PHOPARMS; 
addr''>cmdreg = PMSETP; 
if (psmackcc(addr)) { 

printf("set parms 0 cmd ack failedXn"); 
goto err; 

} 

return 0; 

err: printf("Unix pmcinit: can't initialize controllerXn"); 

return(-1); 


pmread(dev) 
dev_t dev; 

{ 

physio(pmstrategy, 4pmrbuf, dev, B_READ); 

} 

jjmwrite (dev) 
dev_t dev; 

{ 

physio (pmstrategy, ftpiorbuf, dev, B_WRITE) ; 

) 

preprint(dev, str) 
char *str; 

{ 

printf ("%s on priam drive %d, slice %d\n", str, (dev»4)40xF, dev47); 

} 
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/**define NOERROR */ 

#define MOREASM 
/* 

* SY6522 disk driver 
*/ 

tinclude "sys/parasa.h*' 
tinclude "sys/config.h" 

^include "sys/inrau.h'' 
finclude "sys/types.h" 

^include "sys/sysmacros.h" 

#include "sys/dir.h** 

•^include "sys/signal,h" 

^include "sys/user.h" 

^include "sys/errno.h" 

^include "sys/utsname.h" 

♦include "sys/buf.h" 

♦include "sys/elog.h" 

♦include "sys/erec.h" 

♦include "sys/iobuf.h" 

♦include "sys/systra.h" 

♦include "sys/var.h“ 

♦include "sys/ttold.h" 

♦include "setjmp.h" 

♦include "sys/profile.h" 

♦include "sys/pport.h" 

♦include ••sys/djprofile.h" 

♦include "sys/cops.h" 

♦include "sys/swapsz.h" 

♦ifdef notdef 
♦define logical(x) 

♦define interleave(x) 

♦define physical(x) 

♦endif 

char pro_secitiap[NSEC] - { 

0, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1 

}; 

/* Logical Units */ 

/* The first 100 blocks are reserved for the boot program and 
are inaccessible via unix. 

*/ 

♦define MAXBOOT 100 
struct prlmap { 

daddr_t p(m_beg; /* Base address in blocks */ 

daddr_t pira_len; /* Number of blocks in logical device */ 

} prlmap[] - { 

/* a */ {PRNSWAP+101, 16955}, /* root filesystem on 10 Meg. disk */ 

/* b */ {101, PRNSWAP), /* swap area (2400 blocks) */ 

/* c */ (PRNSWAP+lOl, 7227), /* root filesystem on 5 Meg. disk */ 

/* d */ {9728, 9728], /* 2nd filesystem on 10 Meg. disk */ 

/* e */ {0, 0}, /* unused */ 

/* f */ {0, 7168}, /* old root filesystem (old a) */ 

/* g */ {7168, 2496}, /* old swap (old b) */ 

/* h */ {101, 19355}, /* f.s. using entire 10 Meg. disk */ 

}; 

/* THESE MAY REPLACE f AND g ABOVE */ 

/* f {4101, 15355}, /* alternate root f.s. on 10 Meg. disk */ 

/* g {101, 4000}, /* alternate swap */ 

struct iostat prostat[NPPDEVS]; 

struct iobuf protab = tabinit(PRO,prostat); /* active buffer header */ 

struct buf rprobuf; /* Raw input-output buffer */ 

struct proheader rphbuf; 
struct proheader phbuf; 

♦ifndef NOERROR 

♦define ERROR(x) printf("HARD DISK ERROR "); printf x 

char *pro_lefmt - "ASSERTION (%s) FAILED IN PROC %s 

♦define ASSERT(e, p, m, x) if ('(e)) {\ 

printf(pro_lefmt,"e","p");\ 

printf m;\ 

printf ("\n");\ 

x;}; 

♦ else 


/* these are in d__profile.h */ 

(minor (x) & 7) /* eight logicals per phys */ 

(minor(X) & 0x8) /* interleave bit for swaping */ 

((minor (x) & OxFO) » 4)/* 10 physical devs */ 


♦define ERROR(x) 

♦define ASSERT(e, p, m, x) 
♦endif 


/* Contrast change ok flag. Maintained by the disk driver. When 0 the 

* parallel port is not in use and may be switched to allow console contrast 

* changes. If the contrast is waiting for the disk then '12_rcflag' is one. 

* When convenient and this is set the disk will call 12ramp. 

*/ 

int ppinuse; 

extern char 12_rcflag; 

i* 

* proopen - check for existence of controller 
*/ 

proopen(dev) 

{ 

int i; 

register struct device_d *devp; 
int prointr(); 
extern char slot[]; 

i - physical(dev); 

if (i) { /* for expansion slot check slot number and type */ 

if (IPPOK(i) II (slottPPSLOT(i)] '-PRO)) { 
u.u_error - ENXIO; 
return 1; 

} 

) 

devp - pro__da[i]; 
u.u_error =0; 

if (iocheck(4devp->d_ifr)) { 

{ asra(" nop "); } 

if (prodata[i].pd_da •= devp) { /* not already setup */ 
if (setppint((prodata[i].pd_da - devp),prointr)) 
goto fail; 

if (proinit(&prodata[i])) { 
freeppin(devp); 
goto fail; 

} 

} 

} else { 
fail: 

u.u_error - ENXIO; 

prodata[i].pd_da = (struct device_d *)0; 
return 1; 

} 

return 0; 


/* 

* prostrategy - set up to start the transfer 
*l 

prostrategy(bp) 
register struct buf *bp; 

{ 

int pun - physical(bp->b_dev); 

register struct prodata *p - &prodata[pun]; 

register struct buf *up; 

if (ip->pd_da) { 

printf("Attempt to read/write unopened profile device\n"); 
printf("bp“%x dev-%x (Unit %d)\n",bp,bp->b_dev,pun); 
p->pd_err - "device not open"; 
goto haderr; 

} 

if (bp->b_blkno >- 0 44 

(bp->b_blkno < prlmap[logical(bp->b_dev)].pm_len)) { 

bp->av_fbrw - (struct buf *)NT7LL; /* last of all bufs and */ 
bp->ul_forw - (struct buf *)NULL; i* last of units bufs */ 

SPL6(); /* must be highest of all ints for this code*/ 

if (protab.b_actf -- NULL) 

protab.b_actf - bp; /* empty - put on front */ 

else 

protab.b_^actl->ay_forw - bp; /* else put at end */ 
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protab. b__actl •» bp; 

if (p->pd._actv =“ 0) { /* controller inactive */ 

p->pd__actv bp; /* start of unit blk list */ 

}- Since we might fail before ever getting an interrupt 
* we must be prepared to do the buffer cleanup here also. 

*/ 

while (prostart(p)) { /* start up the transfer */ 

bp->b_resid = bp->b_bcount; 
bp->b_flags |= B_ERROR; 
prorelse{p,bp); 

} 

} else { /* link onto unit list */ 

for (up“p->pd_actv; up->ul_forw; up«up->ul_forw) 

up->ul_forw = bp; 

} 

SPLOO ; 
return; 

} 

p->pd_err =• "invalid blkno"; 

haderr; 

bp->b_resid - bp->b_bcount; 
bp->b_flags |- B_ERROR; 
iodone(bp); 
return; 

/* 

* Release finished buffer and unlink from list. Two lists are maintained. 

* The av_forw pointers are used to link all the buffers in use by the driver 

* onto the protab iobuf header. The av__back pointers (dubbed ul_forw) are 

* used to link together the buffers into unit lists (headed by the prodata 

* entry for that unit). 

*/ 

prorelse (p, bp) 
register struct prodata *p; 
register struct buf *bp; 

{ 

register struct buf *up; 

if (protab.b_actf =” bp) { /* first buffer */ 

if ((protab.b_actf - bp->av_forw) —= (struct buf *)0) 
protab.b_actl (struct buf *)0; 

) else { /* middle or last buffer */ 

for (up=-protab.b_actf; up->av_forw '= bp; up-up->av_forw) 

if (Iup->av_forw) panic("prorelse: buf list error"); 
up->av_forw = bp->av_forw; 
if {!up->av_forw && (protab.b_actl = bp)) 
protab.b_actl =* up; 

} 

p->pd_actv = bp->ul_forw; /* next buf for this unit */ 

iodone(bp); 

) 

/* 

* proinit -- initialize drive first time or after severe error 
*/ 

proinit (p) 

struct prodata *p; 

{ 

register char zero - 0; 

register struct device_d *devp - p->pd_da; 
int pi; 

pi “ spl6(); 
devp->d_acr = zero; 

devp->d_pcr =“ 0x6B; /* set controller CA2 pulse mode strobe */ 

devp->d_ddra - zero; /* set port A bits to input **/ 

if (devp — PPADDR) 

devp->d_ddrb i- 0x5C; /* set BSY and OCD to input 

else 

devp->di_ddrb PxFC; /* two qr four port cards */ 


devp->d_ddrb 1* OxlC; /* set port B bits 2,3,4 to out */ 
devp->d_irb --DEN; /* set enable • true */ 

devp->d_irb 1” CMDIDRW; /* set command = false set direction - in */ 

devp->d_t2cl - zero; 

devp->d_t2ch = zero; 

devp->d_ier = FIRQIFCAI; 

zero - devp->d_irb; 

if (zero & OCD) { 

P“>pd_state = SERR; 
splx(pi); 
return 1; 

} 

p->pd__state =• SCMD; 
splx(pi); 
return 0; 

} 

/* 

* proread - process read from disk 
*/ 

proread(dev) 
dev_t dev; 

{ 

physio(prostrategy, srprobuf, dev, B_READ); 

} 

/* 

* prowrite - process write to disk 
*/ 

prowrite(dev) 
dev_t dev; 

{ 

physio(prostrategy, srprobuf, dev, B_»RITE); 

} 

/* 

* prostart - initiate the next logical io operation 
*/ 

prostart(p) 

register struct prodata *p; 

{ 

register struct buf *bp - p->pd_actv; 
if (Ibp) 

return 0; 

ASSERT(bps&p,prostart,("bp=x%x p=x%x",bp,p),while(1)) 

p->pd._limit “ prlmap[logical (bp->b_dev) ] .j»n_beg;/* logical offset */ 
p->pd_blkno - bp->b_blkno + p->pd_limit; /* starting blk # */ 

iifndef UNISOFT 

if (p->pd_blkno <= MAXBOOT) /* don't allow access to boot */ 

return(-1); 

#endif UNISOFT 

p->pd_limit +- prlmap[logical(bp->b_dev)].pm_len; /* max blk # + 1*/ 
p->pd_bcount = bp->b_bcount; 
p->pd_addr = bp->b_un.b_addr; 

return procmd(bp->b_flags, bp->b_dev, p->pd_blkno, (unsigned)p->pd_bcount) 

) 

/* 

* Procmd - initiate next physical io operation 
*/ 

procmd (func, dev, bn, ct) 

register daddr_t bn; 
unsigned ct; 

{ 

register int pun = physical(dev); 
register struct prodata *p - sprodata[pun]; 
register struct cmd *pc; 

ASSERT(ct'-O,Procmd,("ct-%d",ct),while(1)) 
tifndef UNISOFT 

if (bn <- MAXBOOT) /* check again to be sure */ 

return(-1); 

♦endif UNISOFT 
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} 


if (p“>pd_state SERR) { 
if (proinit(p)) 

return -1; 


/* initialize drive */ 


controller should not be busy now 


/* Build Command (ok to send extra bytes on write cmd) */ 
pc - &p->pd_cmdb; 

pc->p_cmd * (func & B_READ) ? PROREAD : PROWRITE; 
pc->p_high - bn » 16; 
pc->p_raid “ bn » 8; 
if (interleave(dev) -= 0) 
pc->p_low = bn; 

else 

pc->p_low ■= (bn & OxFO) 1 pro_secmap[bn&OxF] ; 
pc->p_retry * 10; 
pC“>p_thold = 3; 
p->pd_state - SCMD; 
p->pd_nxtst - SCMD; 


if (prochk(p,SCMD)) { /* sync controller to cmd state */ 

if (iprochk(p,SCMD)) /* if it failed it should work now */ 

return 0; 

p->pd_err - “cant force disk into CHD state"; 

P“>pd_state “ SERR; 
return -1; 

} 

return 0; 


prointr(pun) 
int pun; 

{ 

register struct device_d *devp; /* a5 */ 

register char *cp; /* a4 */ 

register char cs^3m; /* d7 */ /*NOTUSED*/ 

register char zero =0; /* d6 */ 

register struct buf *bp; 

register struct prodata *p - iprodata[pun]; 
register short i; 
struct proheader *ph; 
devp = p->pd_da; 


(void) spl6(); /* added April 4/84 to prevent panic in prorelse */ 

/* changed from spl5 August 30/84 to fix multi-user bug on 2/10 */ 

/* ASSERT((stats4BSY)-=-BSY,prointr,("disk %d busy: state=%d, irb=x%x",pun,p->pd_state,stats) 


#ifdef lint 

csiim « 0; 
i ~ csum; 

#endif 

if ((bp “ p->pd_actv) == 0) { /* spurious interrupt */ 

/* printf("Spurious INT on profile dev %d [at %x]\n",pun,devp); */ 
devp->d_ddrb i= 0x80; /* setup for a reset */ 

devp->d_irb |- 0x80; 
devp->d_ddrb &- 0x7F; 

devp->d_ifr - devp->d_ifr; /* reset interrupt trap */ 

/* proinit(p); */ 

return; 


/* ASSERT(bp! =»0,prointr,("dsk”%d ier-x%x ifr-x%x state“%d",pun,devp->d_ierfi255,devp->d_ifr42 
ASSERT((p->pd_state!-SERR&4p->pd_state!”SSTOP),prointr,("b_flags**0x%x",bp->b_flags),while(1) 
ASSERT(physical(bp->b_dev)“-=pun,prointr,("dev-x%x unit-%d",bp->b_dev,pun),while(1)) 


devp->d_ifr = devp->d_ifr; /* reset interrupt trap */ 

/* 

* Note that 10 operations fail when OCD. 

* This may result in a 'panic'. Allowing it to 

* block and be restarted has it problems also. 

*/ 

if (devp->d_irb & OCD) { /* cable disconnected 2 */ 

p->pd_err - "Open Cable Disconnect"; 
goto haderr; 

} 


if (p->pd_state “ SCMD) { /* Send command */ 

devp->d_irb 4= ~DRW; /* set dir-out */ 

devp->d_ddra = OxFF; /* set port A bits to output */ 

/* Now send command */ 
cp =*= (char *) (4p->pd_cmdb); 
if (*Gp — PROREAD) 

P“>pd_nxtst - SRDBLK; 

else 

P“>pd_nxtst = SWRTD; 

devp->d_ira - *cp++; devp->d__ira => *cp++; devp->d_ira = *cp++; 
devp->d_ira -= *cp++; devp->d_ira = *cp++; devp->d_ira = *cp; 

devp->d_irb 1= DRW; 
devp->d_ddra - zero; 
if (prociik(p,p->pd_nxtst)) { 

p->pd_err = "failed to issue cmd to disk"; 
goto haderr; 

} 

return; /* will send data or get status next */ 

} 

if (p->pd_state “ SRDBLK || p->pd_state ■= SFINI) {/* Read status word */ 
devp->d_irb != DRW; 
devp->d_ddra - zero; 
p->pd_sbuf “ 0; 
cp ■“ (char *) (4p->pd_sbuf) ; 

*cp++ - devp->d_ira; 

*cp++ = devp->d_ira; 

*cp++ = devp->d_ira; 

*cp =“ devp->d_ira; 

p->pd_sbuf 4= -STATMSK; /* mask off redund stat bits */ 
if (p->pd_sbuf) { 

ERROR (("dev %d: state“%d status=-x%x\n",p-prodata,p->pd_state,p->pd_sbuf)); 
p->pd_err = "bad status"; 
goto haderr; 

if (p->pd_state “= SRDBLK) { /* Read successful so pickup data*/ 

ASSERT(p->pd_bcount>0,prointr,(""),goto haderr) 

i = sizeof(rphbuf) - 1; /* sizeof header */ 

cp - (char *)(4rphbuf); 
do *cp++ = devp->d_ira; 
while (—i != -1); 
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tifdef MOREASM 
fendif 


) while (—i I- -1); 


/* Determine if 10 operation is completed or spans another block. */ 
p->pd_bcount — niin(SECSIZE, (unsigned) p->pd_bcount) ; 
if (p“>pd_bcount <- 0 | ! ++p->pd__blkno >- p->pd_limit) { 
bp->b_resid - p“>pd_bcount; 
pror€lse(p,bp); 

if (p-prodata == 0) ppinuse * 0; /* contrast */ 


if (prostart(p)) { /* startup next buf in chain */ 

p->pd_err * "prostart failed on next blk"; 
goto haderr; 

} 

return; /* next op started or no next op */ 

) 

p->pd_addr += SECSI2E; /* setup for next block of io trans */ 
if(procmd(bp->b_flags,bp->b_dev,p->pd_blkno,(unsigned)p->pd_bcount)){ 
p->pd_err = "Procrad failed to continue operation"; 
goto haderr; 

} 

return; /* end of i/o or beg of next blk */ 


if (p->pd_state =- SWRTD) ( /* send data */ 

p->pd_nxtst = SFINI; 

ASSERT (p-->pd_bcount>0,prointr, ("") , while (1)) 
devp->d_irb &- -DRW; /* set dir=out */ 

devp“>d_ddra OxFF; /* set port A bits to output */ 


ph = &phbuf; 

ph->ph_fileid « p->pd_blkno ?0 :0xAAAA; 

i = sizeof(phbuf) - 1; 

cp - (char *)(ph); 

do devp->d_ira =■ *cp++; 

while (—i !-1); 

cp = (char *)p->pd_addr; /* place to get data from */ 


*ifdef MOREASM 


♦endif 


♦ifdef MOREASM 


i =» min(SECSIZE, (unsigned) p->pd_bcount); 

if ((i 4 3) 0) { 

i - (i » 2) - 1; 
do { 

asm (" movb a40+,a50(9) ") 

asm (" movb a4g+,a5@(9) ") 

asm (" movb a4§+,a5@(9) ") 

asm (" movb a4e+,a5@(9) ") 


/* asm (« movb a4e+,d6 "); */ 
/* asm (" eorb d6,d7 "); *f 
/* asm (" movb d6,350(9) "); */ 
/* asm (" movb a4@+,d6 "); */ 
/* asm (" eorb d6,d7 "); */ 
/* asm (" movb d6,a5e(9) "); */ 
/* asm (« movb a4e+,d6 "); */ 
/* asm (" eorb d6,d7 "); */ 
/* asm (" movb d6,a5@(9) "); */ 
/* asm (" movb a4e+,d6 "); */ 
/* asm (" eorb d6,d7 "); */ 
/* asm (" movb d6,a5§(9) "); */ 


} while (—i !« -1); /* optimizes to DBRA */ 

} else { 

i—; 

do { 

asm (" movb a4§+,a50(9) "); 

/* asm (" movb a4g+^d6 "); */ 

/* asm (" eorb d6,d7 "); */ 

/* asm (" movb d6,a50(9) ■); */ 

} while (—i !- -1); 


■fendif 


if (prcchk(p,SPERFORM)) { 


p->pd_err « "didn't get to perfrom state"; 
goto haderr; 

} 

return; /* will pick up status next intr */ 

} 

p->pd_err “ "invalid state"; 

haderr: 

do { 

bp->b_resid = p->pd_bcount; 
bp->b_flags 1- B_ERROR; 

ERROR(("dev %d: %s\n«,p-prodata,p“>pd_err)); 
prorelse(p,bp); 
p->pd_state =“ SERR; 

) while (prostart(p)); 

} 

/* 

* Get in sync with disk. 

* (STibroutine FINDD2 4 CHKRSP from 'profrom.text' document) 

* Expects enable>==true and Direction—in at start. 

* If disk response is 'state' then returns 0 (success) 

* otherwise fails (returns -1 if timeout and cur state if bad state). 

*/ 

prochk(p, state) 

register struct prodata *p; 

{ 

register struct device_d *devp -= p->pd_da; 
register zero - 0; 
register i; 
int resp; 

/* while((devp“>d_irb4BSY)“—0); */ 

ASSERT ((devp->d_irb4BSY) ==BSY,prochk, ("state=»%d [waiting]", state),goto err) 
/* while ((devp->d_irb4BSY)=»-0); */ 

if (state — SCMD 44 (p-prodata — 0)) {/* PP inuse */ 

if {12_rcflag) /* ramp in progress */ 

12ramp(2); /* so help it along */ 

ppinuse =■ 1; 

} 

devp->d_irb 1“ DRW; /* set input mode */ 

devp->d_ddra - zero; /* set port A bits to input */ 

devp->d_irb 4= ~CMD; /* set cmd and enable bufs */ 

i “ RSPTIME; /* about 1ms */ 

while (devp->d_irb4BSY 44 i—); /* wait sig that resp byte is ready*/ 


resp = PIDL; /* reply to use if resp byte wrong */ 

if (i > 0) { /* didn't timeout */ 

i = devp->d_ira; /* get response from disk */ 

if (i — state) /* got correct state */ 

resp =“ PGO; /* reply to use if resp byte correct*/ 

devp->d_irb 4- -(DRW)CMD); /* set dir=out cmd=“true */ 

devp->d_ddra = OxFF; /* set port A bits to output */ 

devp->d_ira = resp; /* send reply (GO or RESET) */ 

devp->d_ier - FIRQIFCAI; /* enable interrupts */ 

devp->d_irb I- CMD; /* sig disk to read resp */ 

p->pd_state = p->pd__nxtst; /* setup next state */ 

return (i =“ state) ?0 :i; 

} 

if (p-prodata «=■ 0) ppinuse - 0; /* reset ppinuse flag */ 

p->pd_state =■ SERR; 

p->pd_err « "EXCESSIVE DISK DELAY — (is the drive plugged in??)"; 
ERROR(("dev %d; %s\n",p-prodata,p->pd_err)); 

devp->d_ddra = zero; /* set port A bits to input */ 

devp->d_irb I- CMDI DRW; /* set dir-in, disable buffers */ 

devp->d_ier * -FIRQ; /* disable all interrupts */ 

return (-1); 


/* ARGSUSED */ 

proioctl(dev, cmd, addr, flag) 
dev_t dev; 
int cmd; 
caddr_t addr; 

int flag; /*NOTUSED*/ 
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{ 

struct prodata *p - sprodata[physical(dev)]; 
switch (cmd) { 
case TIOCGETP: 

if (copyout((caddr_t)&p->pd_flags, addr, sizeof(p->pd_flags))) 
u.u_error = EFAULT; 

break; 
case TIOCSETP: 

if (copyin(addr, (caddr_t)4p->pd_flags, sizeof(p->pd_flags))) 
u.u_error = EFAULT; 

break; 

default: 

u.u_error « ENOTTY; 

} 

) 

proprint(dev, str) 
char *str; 

{ 


} 


printf(''%s on pro drive %d, slice %d\n'', str, (dev»4)&0xF, devs7); 
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/* proto.c 4.22 82/06/20 */ 

iinclude "sys/param.h" 
t include “sy s/config.h” 

^include "sys/types.h" 

^include "sys/ramu.h" 

♦include “sys/sysmacros.h** 

♦include "net/misc.h" 

♦include "net/socket.h" 

♦include "net/protosw.h" 

♦include "net/in.h" 

♦include "net/in_systm.h" 

/* 

* Protocol configuration table and routines to search it. 

* 

* SHOULD INCLUDE A HEADER FILE GIVING DESIRED PROTOCOLS 
*/ 

/* 

* Local protocol handler. 

*/ 

/* 

* TCP/IP protocol family: IP, ICMP, UDP, TCP. 

*/ 

int ip_output(); 

int ip_init(), ip_slowtimo(),ip_drain(); 

int icrap_input{); 

int udp_input(),udp_ctlinput(); 

int udp_usrreq <); 

int udp__init (); 

int tcp_input(),tcp_ctlinput(); 

int tcp_usrreq {); 

int tcp_init(),tcp_fa sttimo(),tcp_slowtimo(),tcp_drain(); 
int rip_input(),rip_output(); 

/* 

* IMP protocol family: raw interface. 

* Using the raw interface entry to get the timer routine 

* in is a kludge. 

*/ 

♦include "net/imp.h" 

♦if NIMP > 0 

int rimp_output(), hostslowtirao(); 

♦endif 

/* 

* PUP-I protocol family: raw interface 
*/ 

♦include "net/pup.h" 

♦if NPUP > 0 

int rpup_output(); 

♦endif 

/* 

* Sundries. 

*/ 

int raw_init(),raw_usrreq(),raw_input(),raw_ctlinput(); 

struct protosw protoswt] - { 

{ 0 , 0 , 0 , 0 , 

0, ip_output, 0, 0, 

0, 

ip_init, 0, ip_slowtimo, ip_drain, 

}, 

( 0, PF_INET, IPPROTO_ICMP, 0, 

icmp_input, 0, 0, 0, 

0, 

0, 0, 0, 0, 

), 

{ SOCK_DGRAM, PF_INET, IPPROTO_UDP, PR_ATOMICi?R_ADDR, 

udp_input, 0, udp_ctlinput, 0, 

udp_usrreq, 
udp_init, 0, 

}, 


0 , 


{ SOCK_STREAM, 

PF INET, 

IPPROTq_TCP, 

PR CONNREQUIRED|PR_WANTRCVD, 

tcp_input. 

0, 

tcp_ctlinput, 

0, 

tcp_usrreq, 

tcp_init. 

tcp_fasttimo. 

tcp_slowtimo. 

tcp_drainf 

} t 

{ 0, 

0.. 

Of 

Of 

raw_input. 

0, 

raw_ctlinput. 

Of 

raw_usrreq, 

raw_init. 

0, 

0, 

0, 

it 

♦ifdef SRI 

{ SOCK_RAW, 

PF_INET, 

15, 

PR_ATOMIC1PR_ADDR, 

rip_input. 

rip_output. 

0, 0, 


raw usrreq, 

0, 

0, 

Of 

0, 

it 

♦endif 

{ SOCK_RAW, 

PF_INET, 

IPPROTO RAW, 

PR_ATOHIC 1 PR_ADDR, 

rip_input. 

rip_output. 

0, 0, 


raw usrreq, 

0, 

0, 

Of 

0, 


) 

♦if NIMP > Q 


SOCK RAW, 

PF_IMPLINK, 

0, 

PR ATOMIC1PR_ADDR, 

0, 

rimp_output. 

Of 

0, 

raw usrreq, 
0, 

0, 

hostslowtimo. 

0, 


) 

♦endif 
♦if NPUP > 0 


SOCK RAW, 

PF_PUP, 

0, 

PR ATOMIC!PR ADDR, 

Of 

raw_usrreq. 

2:P^ip_OUtput, 

Of 

0, 

Of 

0, 

0, 

0, 


} 

♦endif 

♦define NPROTOSW (sizeof(protosw) / sizeof(protosw[0])) 

struct protosw *protoswLAST - 4protosw[NPROTOSW-l]; 

/* 

* Operations on protocol table and protocol families. 

*/ 

/* 

* Initialize all protocols. 

*/ 

pfinit () 

{ 

register struct protosw *pr; 


} 


for (pr = protoswLAST; pr >■= protosw; pr—) 
if (pr->pr_init) 

(*pr->pr_init)(); 


/* 

* Find a standard protocol in a protocol family 

* of a specific type. 

*/ 

struct protosw * 
pffindtype(family, type) 
int family, type; 

{ 


register struct protosw *pr; 


if (family — 0) 

return (0); 

for (pr - protosw; pr <>= protoswLAST; pr++) 

if (pr“>pr_family =•“ family ii pr->pr_type === type) 
return (pr); 


return (0); 
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) 


/* 

* Find a. specified protocol in a specified protocol family. 
*/ 


struct protosw * 
pffindproto(family, protocol) 
int family, protocol; 

{ 

register struct protosw *pr; 


if (family 0) 

return (0); 

for (pr ” protosw; pr <= protoswLAST; pr++) 

if (pr->pr_family == feimily && pr->pr_protocol == protocol) 
return (pr); 

return (0); 

) 


tifdef notdef 
pfctlinput(cmd, arg) 
int cmd; 
caddr_t arg; 

{ 

register struct protosw *pr; 

for (pr = protosw; pr <= protoswLAST; pr++) 
if (pr->pr_ctlinput) 

(*pr->pr_ctlinput)(cmd, arg); 

} 

#endif 

/* 

* Slow timeout on all protocols. 

*/ 

pfslowtimo () 

{ 

register struct protosw *pr; 


) 


for (pr “ protoswLAST; pr >- protosw; pr—) 
if (pr->pr_slowtimo) 

(*pr->pr_slowtimo)(); 


pffasttimoO 

{ 

register struct protosw *pr; 

for (pr =• protoswLAST; pr >- protosw; pr—) 
if (pr-'>pr_fasttimo) 

(*pr“>pr_fasttimo)(); 


} 
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/* pty.c 4.21 82/03/23 */ 

/* 

* Pseudo-teletype Driver 

* (Actually two drivers, requiring two entries in 'cdevsw') 

*/ 

/* 

* billn — 12/15/82. Mercilessly hacked for system 3. To do 

* Remote input editing, etc, need to rework it again 

* from the original. 

*f 

^include "net/pty.h" 

#if NPTY > 0 
^include “sys/param.h" 

^include ”sys/config.h" 

^include "sys/types.h" 

♦include "sys/mmu.h" 

♦include "sys/sysmacros.h" 

♦include "sys/systm.h*' 

♦include "sys/tty.h” 

♦include "sys/ttold.h" 

♦include “sys/termio.h" 

♦include "sys/ioctl.h" 

♦include "sys/dir.h" 

♦include "sys/signal.h” 

♦include "sys/errno.h" 

♦include "sys/user.h“ 

♦include **sys/conf .h" 

♦include "sys/buf.h" 

♦include "sys/file.h" 

♦include "sys/proc.h" 

♦include "sys/var.h" 

♦include "net/misc.h" 

♦define BUFSI2 100 /* Chunk size iomoved from user */ 

i* 

* pts = /dev/ttyIpP]? 

* ptc ■= /dev/pty[pP]? 

*/ 

struct tty pt_tty[NPTY]; 
struct pt_ioctl { 

int pt_flags; 

int pt_gensym; 

struct proc *pt__selr, *pt_selw; 
int pt_send; 

) pt_ioctl(NPTY3; 

♦define PF_RCOLL 0x01 

♦define PF_WCOLL 0x02 

♦define PF_NBIO 0x04 

♦define PF_PKT 0x08 

♦define PF_STOPPED 0x10 

♦define PF_REMOTE 0x20 

♦define PF_NOSTOP 0x40 

♦define PF_WTIMER 0x80 

/* billn — kludge */ 

♦define PF_PTSOPEN 0x100 

♦define PF_PTCOPEN 0x200 

/*ARGSUSED*/ 
ptsopen(dev, flag) 
dev_t dev; 

{ 

register struct tty *tp; 

register struct pt_ioctl *pti - frpt_ioctl[minor(dev)}? 

if (dev >- NPTY) { 

u.u_error - ENXIO; 
return; 

} 

tp - ipt_tty[dev]; 
if ((tp->t_state & ISOPEN) == 0) { 


/* packet mode */ 

/* user told stopped */ 

/* remote and flow controlled input */ 

/* waiting for timer to flush */ 

/* pts side is open */ 

/* ptc side is open */ 




pty.c 


Fri Sep 5 19:09:16 1986 


2 


wakeup({caddr_t)&tp->t_outq.c_cf); 
splx(s); 

) 

ptctimer() 

{ 

register struct tty *tp = ipt_tty[0]; 
register struct pt_ioctl *pti - &pt_ioctl[0]; 
register i; 

timeout(ptctimer, (caddr_t)0, v.v_hz » 2); 
for (i-0; i<NPTY; i++, pti++, tp++) { 

if ((pti->pt_flags & PF_WTIHER) 0) 
continue; 

pti~>pt_flags &=■ ~PF_WTIMER; 
if (tp->t_proc “ 0) 
continue; 
ptcwakeup(tp); 

} 

} 

/*ARGSUSED*/ 
ptcopen(dev, flag) 
dev_t dev; 
int flag; 

{ 

register struct tty *tp; 
struct pt_ioctl *pti; 
static first; 
extern int ptsstartO; 

if (first =“ 0) { 
first++; 
ptctimer(); 

1 

if (dev >= NPTY) { 

u.u_error = ENXIO; 
return; 

} 

tp = &pt_tty[dev]; 
if (tp->t_proc) { 

u.u_error -= EIO; 
return; 

} 

tp->t_iflag - ICRNLIISTRIPlIGNPAR; 
tp->t_oflag = OPOST|OHLCR|TAB3; 
tp->t_lflag = ISIGIICANON; /* no echo */ 
tp~>t_proc “ ptsstart; 
if (tp->t_state & WOPEN) 

wakeup((caddr_t)&tp->t_rawq); 
tp->t__state 1= CARR_ON; 
pti = ipt_iocti[dev]; 
pti->pt_flags = 0; 
pti->pt_send = 0; 
pti->pt_flags I- PF_PTCOPEN; 

} 

ptcclose(dev) 

dev_t dev; 

( 

register struct tty *tp; 

register struct pt_ioctl *pti - 6pt_ioctl[minor(dev)]; 

tp - 4pt_tty[dev]; 
if (tp->t_state & ISOPEN) 

signal(tp->t_pgrp, SIGHUP); 

tp“>t__state ~CARR_ON; /* virtual carrier gone */ 

ttyflush (tp, FREAD1 FlfRITE) ; 
pti->pft_flags 4- ~PF_PTCOPEN; 

if ((pti->pt_flags & PF_PTSOPEN) — 0) /* other end already gone? */ 

tp->t_proc - 0; /* mark closed */ 


ptcread(dev) 

dev_t dev; 

{ 


register struct tty *tp; 
register struct pt_ioctl *pti; 
register c; 

tp = &pt_tty[devl; 

if ((tp->t_state4(CARR_ON!ISOPEN)) =- 0) 
return; 

pti “ 4pt_ioctl[dev]; 
if (pti->pt_flags & PF_PKT) { 
if (pti->pt_send) { 

(void) passe(pti->pt_send); 
pti->pt_send = 0; 
return; 

} 

(void) passe(0); 

) 

while (tp->t_outq.c_cc =011 (tp->t_stateiTTSTOP)) { 
if (pti->pt_flags4PF__NBIO) { 

u.u_error = EWOULDBIOCK; 
return; 

} 

(void) sleep((caddr_t)4tp->t_outq.c_cf, TTIPRI); 

] 

while (tp->t_outq.c_cc 44 (c “ getc(4tp->t_outq)) >= 0) 
if (passc(c) < 0) 
break; 

tp->t_state 4- -BUSY; 
if (tp->t_state40ASLP) { 

tp->t_state 4-= -OASLP; 
wakeup((caddr_t)4tp->t_outq); 

} 

if (tp->t_state4TTIOW 44 tp->t_outq. c_cc-=“0) { 
tp->t_state 4= -TTIOW; 
wakeup((caddr_t)4tp->t_oflag); 

} 

} 

/* 

* System 5 does not have nbio normally 
*/ 

/* #define IF_NBIO */ 

ptewrite(dev) 

dev_t dev; 

{ 

register struct tty *tp; 
register char *cp, *ce; 
register int cc, c, ctmp; 
char locbuf[BUFSIZ]; 
tifdef IF_NBIO 

int ent = 0; 

i^endif 

tp = 4pt_tty[dev]; 

if ((tp->t_State4(CARR_ON|ISOPEN)) = 0) 
return; 

do { 

cc - MIN(u,u_count, BUFSIZ); 
cp “ locbuf; 

iomove(cp, cc, B_WRITE); 
if (u.u__error) 
break; 

ce =■ cp + cc; 

again: 

while (cp < ce) { 

while (tp->t_delct 44 tp->t_rawq.c_cc >* TTYHOG - 2) { 
wakeup((caddr_t)4tp->t_rawq); 

♦ifdef IF_NBlo 

if (tp“>t_state 4 TS_NBIO) { 
u.u_count +“» ce - cp; 
if (ent = 0) 

u.u_error - EWOULDBLOCK; 

return; 

) 

#endif 
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/* Better than just flushing iti */ 

/* Wait for something to be read */ 

(void) sleep((caddr_t)6tp->t_rawq-c_cf, TTOPRI); 
goto again; 

} 

c * *cp++; 

if (tp->t_iflag & IXON) { 
ctmp = c & 0177; 
if (tp->t_state & TTSTOP) { 

if (c = CSTART I I tp~>t_iflag & IXANY) 
(*tp->t_j)roc) (tp, T_RESUME); 

} else 

if (c — CSTOP) 

(*tp->t_proc)(tp, T_SUSPEND); 
if (c = CSTART I I C ““ CSTOP) 
continue; 


#ifdef IF_NBIO 
#endif 


if (tp->t_rbuf.c_ptr !- NULL) { 
if (tp->t__iflag4ISTRIP) 
c 0177; 

*tp->t_rbuf .c_j)tr = c; 
tp'->t__rbuf. c_count—; 
(*linesw[tp->t_line].l_input)(tp); 


cnt++; 


} while (u.u_count); 


} 


ptcioctl(dev, cmd, addr, flag) 
caddr_t addr; 
dev_t dev; 

{ 

register struct tty *tp “ &pt_tty[minor(dev)]; 
register struct pt_ioctl *pti - &pt_ioctl[dev]; 


if (cmd — TIOCPKT) { 
int packet; 

if <copyin((caddr_t)addr, (caddr_t)fipacket, sizeof (packet))) { 
u.u__error = EFAULT; 
return; 




} 

if 


} 

/* 


if (packet) 

pti->pt_flags 1= PF_PKT; 

else 

pti->pt_flags 4=» ~PF_PKT; 

return; 

(cmd = FIONBIO) { 
int nbio; 

if (copyin((caddr_t)addr, (caddr_t)&nbio, sizeof (nbio))) { 
u.u_error - EFAULT; 
return; 

} 

if (nbio) 

pti->pt_flags != PF_NBIO; 

else 

pti->pt_flags &-PF_NBIO; 

return; 

IF CONTROLLER STTY THEN MUST FLUSH TO PREVENT A HANG 2?? */ 


if ((cmd««TIOCSETP) I I (cmd“TCSETAW)) { 


While (getc(&tp->t_outq) >=* Q); 
tp->t_state 4- -BUSY; 


ptsioctl(dev, cmd, addr, flag); 


/*ARGSUSED*/ 

ptsioctl(dev, cmd, addr, flag) 
register caddr_t addr; 
register devt dev; 

{ 

register struct tty *tp =■ 4pt_tty [dev] ; 


register struct pt_ioctl *pti = 4pt_ioctl[dev]; 
register int stop; 

if (ttiocom(tp, cmd, (int)addr, dev) — 0) 

/* else -,,21 */ 
stop «= tp“>t_iflag4lXON; 
if (pti->pt_flags 4 PF_NOSTOP) { 
if (stop) { 

pti->pt_send 4= TIOCPKT_NOSTOP; 
pti->pt_send |= TIOCPKT_DOSTOP; 
pti->pt_flags 4= ~PF_NOSTOP; 
ptcwakeup(tp) ; 

) 

} else { 

if (stop == 0) { 

pti->pt_send 4-TIOCPKT_DOSTOP; 

pti->pt_send i= TIOCPKT_NOSTOP; 
pti->pt_flags i- PF_NOSTOP; 
ptcwakeup(tp); 


pt s sta rt(tp, cmd) 
register struct tty *tp; 

{ 

register struct pt_ioctl *pti - 4pt_ioctl[tp - 4pt_tty[0]]; 

extern ttrstrt(); 

switch(cmd) { 

case T_TIME: 

tp->t_state 4- -TIMEOUT; 
goto start; 

case T_WFLUSH: 

if (tp->t_outq.c__cc) { 

while (getc(4tp->t_outq) >= 0) 

tp->t_state 4- -BUSY; 

) 

/* fall through */ 

case T_RESUME: 

tp->t_state 4“ -TTSTOP; 

wakeup((caddr_t)4tp->t_outq.c_cf); 

/* fall through */ 

case T_OUTPUT: 

start: 

if (tp->t_state4(TIMEOUT[TTSTOP|BUSY)) 
break; 

if (tp->t_state4TTIC»f 44 tp->t_outq.c_cc—0) { 
tp->t_state 4- -TTIOW; 
wakeup({caddr_t)4tp->t_oflag); 

} 

if (pti->pt_flags 4 PF_STOPPED) { 

pti->pt_flags 4- ~PF_STOPPED; 
pti->pt_send - TIOCPKT_START; 

} 

if (tp->t_outq.c_cc <200) { 

pti->pt_flags PF_WTIMER; 
return; 

} 

pti->pt_flags 4= -PF_WTIMER; 
tp->t_state 1“ BUSY; 
ptcwakeup(tp); 
if (tp->t_state40ASLP 44 

tp->t_outq.c_cc <- ttlowat[tp->t_cflag4CBAUD}) { 

tp->t_state 4-OASLP; 

wakeup((caddr_t)4tp->t_outq); 

} 

break; 

case T_SUSPEND: 

tp'->t_state i“ TTSTOP; 
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pti->pt_flags 1= PF_STOPPED; 
pti->pt_send !=» TIOCPKT__STOP ; 
break; 

case T_BLOCK; 

tp->t__state !- TBIjOCK; 
tp->t__state 5= ~TTXON; 
if(tp“>t_outq.c_cc > 0) 

wakeup<(caddr_tj &tp“>t_outq.c_cf); 

break; 

case T_RFLUSH: 

if (i (tp->t__stateiTBLCX:K)) 
break; 

case T_UNBLOCK: 

tp“>t_state &= -(TTXOFFITBLOCK); 
if(tp->t_outq.c_cc > 0) 

wakeupC(caddr_t)&tp->t_outq.c_cf); 

break; 

case T_BREAK: 

tp->t_state I- TIMEOUT; 

timeout(ttrstrt, (caddr_t)tp, v.v_h2/4); 

break; 

} 

} 

ptcselect(dev, rw) 
dev_t dev; 
int rw; 

{ 

register struct tty *tp = &pt_tty[minor(dev)]; 
struct pt_ioctl *pti = &pt_ioctl[minor(dev)]; 
struct proc *p; 
int s; 

if ((tp->t_State&(CARR_ONiISOPEN)) = 0) 
return (1); /* 22? billn */ 

s - spl7(); 
switch (rw) { 

case FREIAD: 

if (tp->t_outq.c_cc && (tp->t_state&TTSTOP) 0) { 
splx(s); 
return {1); 

} 

if ((p = pti->pt_selr) £& p->p_wchan “ (caddr_t)sselwait) 
pti“>pt_flags I” PF_RCOLL; 

else 

pti“>pt_selr “ u.u_procp; 

break; 

case FWRITE; 

splx(s); 
return 1; 

♦ifdef notdef 

/* 

* only do this if using ''PF_REMOTE*' ala 4.1a . So why keep 

* it2 — history... 

*! 

if (tp*->t_rawq.c_cc -—0) { 
splx(s) ; 
return (1); 

} 

if ((p pti->pt_selw) && p->p_wchan = (caddr_t) iselwait) 
pti->pt_flags 1“ PF_WCOLL; 

else 

pti“>pt_selw - u,u_procp; 

♦endif 

break; 

} 

splx(s); 
return (0); 

} 

♦endif 
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pup.c 


/* pup.c 4.2 82/06/20 */ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"sys/param.h" 
“sys/config.h" 
"sys/errno.h” 
"sys/types.h" 
"sys/systm.h" 
"net/raisc.h" 
•net/iQbuf .h” 
"net/protosw.h" 
"net/socket.h" 
"net/socketvar.h" 
"net/in.h" 
"net/in_systni. h" 
"net/af.h" 

"net/pup.h" 


♦ifdef PUP 
pup_hash{spup, hp) 

struct sockaddr_pup *spup; 
struct afhash *hp; 


hp->afh_nethash * spup->spup_addr.pp_net; 
hp->afh_hosthash = spup“>spup_addr.pp_host; 
if (hp»>afh_hosthash < 0) 

hp->afh_hosthash = -hp->afh_iiosthash; 


pup_netmatch(spupl, spup2) 

struct sockaddr_pup *spupl, *spup2; 

return (spupl->spup_addr .pp__net =- spup2->spup_addr .pp_net) ; 

♦endif 
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/* 

f-include 
#include 
^include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


raw_cb.c 4.16 

"sys/param.h" 
"sys/config.h« 
"sys/errno.h” 
"sys/types.h" 

"sys/sysmacros.h" 
"sys/systm.h" 

"sys/sysmacros.h" 
"sys/dir.h" 

"sys/signal.h” 
"sys/user .h*' 
"net/misc.h* 

"net/socket.h" 
"net/socketvar.h" 
"net/mbuf.h" 
"net/protosw.h" 


83/02/lQ 


♦include "net/if.h" 
♦include "net/raw_cb.h" 


*/ 


/* 

* Routines to manage the raw protocol control blocks. 

* 

* TODO: 

* hash lookups by protocol family/protocol + address family 

* take care of unique address problems per AF? 

* redo address binding to allow wildcards 


!* 

* Allocate a control block and a nominal amount 

* of buffer space for the socket. 

*/ 

raw_attach(so) 

register struct socket *so; 

{ 

struct mbuf *m; 
register struct rawcb *rp; 


/* 

* Disconnect and possibly release resources. 
*/ 

raw_disconnect(rp) 

struct rawcb *rp; 

{ 


rp->rcb_flags -RAW_FADDR; 

/* billn — meld with old... 
if (rp->rcb_socket->so_state & SS_NOFDREF) 

*/ 

if (rp->rcb_socket->so_state & ss_USERGONE) 
raw_detach(rp); 

} 

♦ifdef notdef 
raw_bind(so, nam) 

register struct socket *so; 
struct mbuf *nam; 

{ 

struct sockaddr *addr - mtod(nam, struct sockaddr *); 
register struct rawcb *rp; 

if (ifnet = 0) 

return (EADDRNOTAVAIL); 

{ 

/* 

♦include "../h/domain.h" 

*/ 

♦include "net/in.h" 

♦include "net/in_systm.h" 

/* BEGIN DUBIOUS */ 

/* 

* Should we verify address not already in use? 

* Some say yes, others no. 

*/ 

switch (addr->sa_family) { 


/* billn, meld w/ old note don't gtclr — will it work? 
m =» m_getclr{M_DONTWAIT, MT_PCB) ; 

*/ 

m = ra_get(M_DONTWAIT); 
if {m —= 0) 

return (ENOBUFS); 

if (sbreserve(fiso->so_snd, RAWSNDQ) 0) 
goto bad; 

if (sbreserve<&so->so_rcv, RAWRCVQ) “»= 0) 
goto bad2; 

rp = mtod(m, struct rawcb *); 
rp->rcb_socket - so; 
insque(rp, irawcb); 
so->so__pcb = (caddr_t)rp; 
rp->rcfa_j)cb = 0; 
return (0); 

bad2: 

sbrelease{&so->so_snd); 

bad: 

(void) m_free(ra); 
return (ENOBUFS); 

} 

/* 

* Detach the raw connection block and discard 

* socket resources. 

*/ 

raw_detach(rp) 

register struct rawcb *rp; 
f 

struct socket *so - rp->rcb_socket; 

so“>so_pcb 0; 
sofree(so); 
remque(rp); 
ra_freem(dtora(rp)); 


case AF_IMPLINK: 
case AF_INET: 

if (((struct sockaddr_in *)addr)->sin_addr. s_addr 44 
if_ifwithaddr(addr) == 0) 
return (EADDRNOTAVAIL); 

break; 

♦ifdef PUP 
/* 

* Curious, we convert PUP address format to internet 

* to allow us to verify we're asking for an Ethernet 

* interface. This is wrong, but things are heavily 

* oriented towards the internet addressing scheme, and 

* converting internet to PUP would be very expensive. 

*/ 

case AF_PUP: { 

♦include "../netpup/pup.h" 

struct sockaddr^pup *spup = (struct sockaddr_pup *)addr 
struct sockaddr_in inpup; 

bzero((caddr_t)4inpup, (unsigned)sizeof(inpup)); 

inpup.sin_family - AF_INET; 

inpup. sin_addr. s_net - spup-->sp_net; 

inpup.sin_addr.s_impno - spup->sp_host; 

if (inpup.sin_addr. s_addr 4 4 

if_ifwithaddr((struct sockaddr *)4inpup) “= 0) 
return (EADDRNOTAVAIL); 

break; 

} 

♦endlf 

default: 

return (EAFNOSUPPORT); 

} 

) 

/* END DUBIOUS */ 

rp =- sotorawcb(so) ; 
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bcopy((caddr_t)addr, (caddr_t)&rp->rcb_laddr, sizeof (*addr)); 
rp->rcb_flags !- RAW_LADDR; 
return (0); 

} 

Jendif 

/* 

* Associate a peer's address with a 

* raw connection block. 

*/ 

raw_connaddr(rp, nara) 

struct rawcb *rp; 
struct mbuf *nam; 

{ 

struct sockaddr *addr = mtod(nam, struct sockaddr *); 

bcopy {(caddr__t) addr, (caddr_t) &rp->rcb_faddr, sizeof (*addr)); 
rp->rcb_flags 1=* RAW_FADDR; 
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/* raw_ip.c 4.13 82/06/20 */ 

♦include "sys/param.h" 

♦include "sys/config.h" 

♦include “sys/errno.h" 

♦include "sys/types.h” 

♦include "sys/systm.h“ 

♦include "net/misc.h" 

♦include "net/mbuf.h« 

♦include *net/socket .h** 

♦include ■net/protosw.h" 

♦include "net/socketvar.h" 

♦include "net/if.h** 

♦include "net/in.h" 

♦include "net/in_systm,h" 

♦include "net/ip.h" 

♦include "net/ip_var.h" 

♦include "net/raw_cb.h" 

♦include "net/route.h" 

♦include "errno.h" 

/* 

* Raw interface to IP protocol. 

*l 

static struct sockaddr_in ripdst = { AF_INET }; 

static struct sockaddr_in ripsrc - { AF_INET }; 

static struct sockproto ripproto = { PF_INET }; 

/* 

* Setup generic address and protocol structures 

* for raw_input routine, then pass them along with 

* mbuf chain. 

*/ 

rip_input(m) 

struct rabuf *m; 

{ 

register struct ip *ip = mtod(m, struct ip *); 
register int hlen - ip->ip_hl « 2; 

ripproto. sp__protocol = ip“>ip_p; 
ripdst.sin_addr - ip->ip_dst; 
ripsrc.sin_addr = ip->ip_src; 
m_adj(m, hlen); 

raw_input(m, &ripproto, (struct sockaddr *)&ripsrc, 
(struct sockaddr *)4ripdst); 

) 

/* 

* Generate IP header and pass packet to ip_output. 

* Tack on options user may have setup with control call. 

*/ 

rip_output(mO, so) 

struct mbuf *m0; 
struct socket *so; 

{ 

register struct mbuf *m; 

register struct ip *ip; 

int len - 0, error; 

struct rawcb *rp = sotorawcb(so); 

struct sockaddr_in *sin; 

/* 

* Calculate data length and get an mbuf 

* for IP header. 

*/ 

for (m =« mO; ra; m - ra-'>m_next) 
len +- m->m_len; 
m - ra_get(M_DONTWAIT); 
if (m — 0) ( 

error - ENOBUFS; 
goto bad; 

} 

/* 

* Fill in IP header as needed. 

*/ 


bad; 


} 


m->m_off = MMAXOFF - sizeof(struct ip); 

ra“>m_len “ sizeof(struct ip); 

m->m_next - mO; 

ip = mtod(m, struct ip *); 

ip->ip_p “ so->so_protO’->pr_j)rotocol; 

ip->ip_len “ sizeof(struct ip) + len; 

if (rp->rcb_flags & RAW_LADDR) { 

sin = (struct sockaddr_in *)&rp->rcb_laddr; 
if (sin-'>sin_family '= AF_INET) { 
error - EAFNOSUPPORT; 
goto bad; 

J 

ip->ip_src.s_addr - sin-->sin_addr.s_addr; 

} else 

ip->ip_src.s_addr = 0; 

ip“>ip_dst = ((struct sockaddr_in *) &rp->rcb__faddr) ~>sin_addr; 
ip->ip_ttl = MAXTTL; 

return (ip_output(m, (struct mbuf *)0, (struct route *)0, 1)); 

m_freem(m); 
return (error); 
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/* raw_usrreq.c 4.25 83/02/10 */ 

♦include “sys/param.h" 

♦include ••sys/config.h" 

♦include **sys/errno.h" 

♦include “sys/types.h" 

♦include "sys/sysmacros.h" 

♦include "sys/systm.h" 

♦include "sys/sysrtiacros.h" 

♦include "sys/dir.h” 

♦include “sys/signal.h" 

♦include "sys/user.h" 

♦include "net/misc.h” 

♦include "net/mbuf.h" 

♦include "net/socket.h" 

♦include "net/socketvar.h" 

♦include "net/protosw.h" 

♦include "net/in.h" 

♦include "net/in_systm.h" 

♦include "net/if.h" 

♦include "net/af.h" 

♦include "errno.h" 

♦include "net/raw_cb.h" 

/* 

* Initialize raw connection block q. 

*/ 

raw_init() 


rawcb.rcb_next rawcb.rcb_j>rev = £rawcb; 

rawintrq.ifq_iriaxlen “ IFQ_MAXLEN; 

} 

/* 

* Raw protocol interface. 

*/ 

raw_input(mO, proto, src, dst) 
struct mbuf *m0; 
struct sockproto *proto; 
struct sockaddr *src, *dst; 

{ 

register struct mbuf *m; 
struct raw_header *rh; 
int s; 

/* 

* Rip off an mbuf for a generic header. 

*/ 

/* billn — meld with old 
m = m_get(M_DONTWAIT, MT_HEADER); 

*/ 

m - m_get(M_DONTWAIT) ; 
if (m — 0) { 

ra_freem (mO) ; 
return; 

1 

m“>m_next - mO; 

m->m_len =- sizeof ^struct raw_header); 
rh = mtod(m, struct raw_header *); 
rh->raw__dst « *dst; 
rh“>raw_src = ’‘src; 
rh->raw_j5roto - *proto; 

/* 

Header now contains enough info to decide 

* which socket to place packet in (if any). 
Queue it up for the raw protocol process 

* rimning at software interrupt level. 

*/ 

s =• splimpO; 
if (IF_QFULL(&rawintrq)) 
ra_freera (m); 

else 

IF_ENQUEUE(4rawintrq, ra); 

splx(3); 

schednetisr(NETISR_RAW); 


} 


f* 

* Raw protocol input routine. Process packets entered 

* into the queue at interrupt time. Find the socket 

* associated with the packet(s) and move them over. If 

* nothing exists for this packet, drop it. 

*/ 

rawintr() 

{ 

int s; 

struct mbuf *m; 
register struct rawcb *rp; 
register struct protosw *lproto; 
register struct raw_header *rh; 
struct socket ’‘last; 


s = splirap(); 

IF_DEQUEUE(Srawintrq, m) ; 
splx<s); 
if (m “ 0) 

return; 

rh = mtod(m, struct raw_header *); 
last = 0; 

for (rp * rawcb.rcb_next; rp 1= irawcb; rp = rp->rcb_next) { 

Iproto “ rp->rcb_socket->so_proto; 
if (lproto-“>pr_family I- rh->raw_j>roto.sp_family) 
continue; 

if (lprotO’->pr_jprotocol £& 

lproto->pr__protocol *= rh->raw_j>roto.sp_protocol) 
continue; 

/* 

* We assume the lower level routines have 

* placed the address in a canonical format 

* suitable for a structure comparison. 

*/ 

♦define equal(al, a2) \ 

(bcmp((caddr_t)s(al), (caddr_t)&(a2), sizeof (struct sockaddr)) == 0) 
if ((rp->rcb_flags & RAW_IiADDR) && 

i equal(rp->rcb_laddr, rh->raw_dst)) 
continue; 

if ((rp->rcb_flags & RAW_FADDR) && 

I equal(rp->rcb_faddr, rh“>raw_src)) 
continue; 
if (last) { 

struct mbuf *n; 

if ((n = m_copy(m->m_next, 0, (int)M_COPYALL)) -=0) 
goto nospace; 

if (sbappendaddr (4last->so_rcv, 4rh->raw_src, n)»=->=0) { 
/* should notify about lost packet */ 
m_freem(n); 
goto nospace; 

} 

sorwakeup(last); 


rp->rcb_socket; 


if (last) { 


m = m_free(m); /* header */ 

if (sbappendaddr(4last->so_rcv, 4rh->raw_src, m) 
goto drop; 
sorwakeup(last); 
goto next; 


m_freem(ra); 
goto next; 


/*ARGSUSED*/ 
raw^ctlinput(crad, arg) 
int crad; 
caddr_t arg; 

{ 
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If {cmd < 0 I! cmd > PRC_NCMDS) 
return; 

/* INCOMPLETE */ 

} 

/*ARGSUSED*/ 

raw_usrreq(so, req, m, nam) 
struct socket *so; 
int req; 

struct robuf *ni, *nam; 

{ 

register struct rawcb *rp =■ sotorawcb(so) ; 
int error =■ 0; 

if (rp == 0 && req i- PRU_ATTACH) 
return (EINVAL); 

switch (req) { 

/* 

* Allocate a raw control block and fill in the 

* necessary info to allow packets to be routed to 

* the appropriate raw interface routine. 

*/ 

case PRU_ATTACH: 

if ((so->so_state & SS_PRIV) = 0) 
return (EACCES); 

if (rp) 

return (EINVAL); 
error » raw_attach(so); 
break; 

/* 

* Destroy state just before socket deallocation. 

* Flush data or not depending on the options. 

*/ 

case PRU_DETACH: 

if (rp == 0) 

return (ENOTCONN); 
raw_detach(rp); 
break; 

/* 

* If a socket isn't bound to a single address, 

* the raw input routine will hand it anything 

* within that protocol family (assuming there's 

* nothing else around it should go to). 

*/ 

case PRU_COHNECT; 

if (rp“>rcb_flags £ RAW_FADDR) 
return (EISCONN); 
raw_CQnnaddr(rp, nam); 
soisconnected(so); 
break; 

case PRU_DISCONNECT: 

if ((rp->rcb_flags & RAW_FADDR) -» 0) 
return (ENOTCONN); 
raw_disconnect(rp); 
soisdisconnected(so); 
break; 

/* 

* Mark the connection as being incapable of further input. 
*/ 

case PRU_SHUTDOWN; 

socantsendmore(so); 
break; 

/* 

* Ship a packet out. The appropriate raw output 

* routine handles any massaging necessary. 

*/ 

case PRU_SEND; 

if (nam) { 


2 


if (rp->rcb_flags & RAW_FADDR) 
return (EISCONN); 
raw_connaddr(rp, nam); 

} else if ((rp->rcb_flags & RAW_FADDR) = 0) 
return (ENOTCONN); 

error = (*so-’>so_j>roto->pr_output) (m, so); 
if (nam) 

rp->rcb_flags £= ~RAW_FADDR; 

break; 

case PRU_ABORT; 

raw_disconnect(rp); 
sofree(so); 
soisdisconnected(so); 
break; 

/* 

* Not supported. 

*/ 

case PRU_ACCEPT: 
case PRU_RCYD: 
case PRU_CONTROL: 
case PRU_SENSE: 
case PRU_RCVOOB: 
case PRU_SENDOOB: 

error = EOPNOTSUPP; 
break; 

case PRU_SOCKADDR: 

bcopy((caddr_t) 4 rp->rcb_laddr, mtod(nam, caddr_t), 
sizeof (struct sockaddr)); 
nam->m_len - sizeof (struct sockaddr); 
break; 

default: 

panic(“raw_usrreq”); 

} 

return (error); 
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/* §(#)rdwri.c 1.4 */ 

^include "sys/param.h” 

^include "sys/types.h" 

^include "sys/sysmacros,h" 

♦include "sys/inode.h*' 

♦include "sys/dir.h" 

♦include *sys/signal.h" 

♦include "sys/user.h” 

♦include "sys/proc.h" 

♦include "sys/errno.h" 

♦include "sys/buf.h" 

♦include "sys/conf-h" 

♦include "sys/file.h" 

♦include "sys/systm.h" 

♦include "sys/tty.h” 

/* 

* Read the file corresponding to 

* the inode pointed at by the argument. 

* The actual read arguments are found 

* in the variables: 

* u_base core address for destination 

* u_offset byte offset in file 

* u_count number of bytes to read 

* u_segflg read to kernel/user/user I 

*/ 

readi(ip) 

register struct inode *ip; 

{ 

register struct user *up; 
register struct buf *bp; 
register dev_t dev; 
register daddr_t bn; 
register unsigned on, n; 
register type; 
register struct tty *tp; 
struct cdevsw *cdevp; 

up * 4u; 

if (up->u_count == 0) 
return; 

if (up->u_offset < 0) { 

up->u_error =• EINVAL; 
return; 

} 

type = ip~>i_modeiIFMT; 
switch(type) { 
case IFCHR: 

dev “ (dev_t)ip->i_rdev; 
ip->i_flag j- lACC; 
cdevp = &cdevsw[(short)major(dev)]; 
if (tp =■ cdevp->d_ttys) { 

tp += (short)(minor(dev)&077); 

(*linesw[(short)tp->t_line].l_read)(tp); 

} else 

(*cdevp->d__read) (minor (dev)); 

break; 
case IFIFO: 

while (ip->i_size == 0) { 

if (ip->i_fwcnt “ 0) 
return; 

if (up->u_fraode&FNDELAY) 
return; 

ip->i_fflag |- IFIR; 
prele(ip); 

(void) sleep((caddr_t)&ip->i_frcnt, PPIPE); 
plock(ip); 

up->u_offset - ip->i__frptr; 
case IFBLK: 
case IFREG: 
case IFDIR; 
do { 

bn « bmap(ip, B_READ); 
if (up->u_error) 


0 ) 




break; 

on - up->u_jjboff; 
if ((n up->u__pbsi 2 e) = 
break; 

dev = up->u_jpbdev; 
if ((long)bn<0) { 

if (type IFREG) 
break; 

bp = geteblk() ; 
clrbuf(bp); 

) else if (up->u_rablock) 

bp = breads (dev, bn, up->u__rablock); 

else 

bp - bread(dev, bn); 
if (bp->b_resid) { 
n = 0; 

if (n'^O) 

iomove(bp->b_un.b_addr+on, (int)n, B_READ); 
if (type IFIFO) { 

ip->i_size -= n; 
if (up->u_offset >» PIPSIZ) 
up->u_offset = 0; 

if ((on+n) = FsBSI2E(dev) && ip->i_size < (PIPSIZ-FsBSIZE(dev))) 
bp->b_flags &= ~B_DEL59RI; 

} 

brelse(bp); 
ip->i_flag I- lACC; 

} while (up->u_error=0 && up->u__count(-0 5& n'-O); 
if (type =* IFIFO) { 

if (ip->i_si 2 e) 

ip->i_frptr * up->u_offset; 

else { 

ip->i_frptr - 0; 
ip->i_fwptr =* 0; 

} 

if {ip->i_fflag«IFIW) { 

ip->i_fflag -IFISf; 
curpri =>■ PPIPE; 

wakeup((caddr_t)sip->i_fwcnt); 

} 

break; 

default; 

up->u_error = ENODEV; 

) 


/* 

* Write the file corresponding to 

* the inode pointed at by the argument. 

* The actual write arguments are found 

* in the variables; 

* u_base core address for source 

* u_offset byte offset in file 

* u_count number of bytes to write 

* u_segflg write to kernel/user/user I 

*/ 


writei(ip) 

register struct inode *ip; 


register struct user *up; 
register struct buf *bp; 
register dev_t dev; 
register daddr_t bn; 
register unsigned n, on; 
register type; 
unsigned Int usave; 
register struct tty *tp; 
struct cdevsw *cdevp; 


up - 4u; 

if (up->u_offset < 0) { 

up->u_error - EINVAL; 
return; 
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} 

type >= ip->i_mode&IFMT; 
switch (type) { 
case IFCHR: 

dev “ (dev_t)ip->i_rdev; 
ip*->i_flag !- lUPDilCHG; 
cdevp - &cdevsw[(short)major(dev)]; 
if (tp “ cdevp->d_ttys) { 

tp += (short)(minor(dev)&077); 

(*linesw[ (short)tp->t__line] .l_write) (tp) ; 

) else 

(*cdevp~>d_write)(minor(dev)): 

break; 

case IFIFO: 
floop: 

usave “ 0; 

while ((up->u_count+ip->i_size) > PIPSIZ) { 
if (ip->i__frcnt =— 0) 
break; 

if ((up->u_count > PIPSIZ) && (ip->i_size < PIPSIZ)) { 
usave = up->u_count; 
up“>u_count “ PIPSIZ - ip->i_size; 
usave “= up“>u_count; 
break; 

} 

if (up->u_fraode&FNDEIAY) 
return; 

ip->i_fflag |- IFIW; 
prele(ip); 

(void) sleep((caddr_t) &ip’->i_fwcnt, PPIPE); 
plock(ip); 

) 

if (ip->i_frcnt == 0) { 

up->u_error - EPIPE; 

psignal(up“>u_pracp, SIGPIPE); 

break; 

} 

up->u_offset =- ip->i_fwptr; 
case IFBLK: 
case IFREG: 
case IFDIR: 

while (up->u_error=»=0 && up->u_count!»0) { 
bn - bmap(ip, B__WRITE); 
if (up->u_error) 
break; 

on = up“>u_j)boff; 
n = up->u_pbsize; 
dev “ up->u_pbdev; 
if (n -= FsBSIZE(dev)) 

bp = getblk(dev, bn); 

else if (type=-IFIFO && on“0 && ip->i_size < (PIPSIZ-FsBSIZE (dev))) 
bp =» getblk(dev, bn) ; 

else 

bp = bread(dev, bn); 

iomove(bp->b_un.b_addr+on, (int)n, B_WRITE); 
if (up->u_error) 

brelse(bp); 

else if (up->u_fmode4FSYNC) 
bwrite(bp); 

else if (type — IFBLK) { 

/* IFBLK not delayed for tapes */ 
bp->b_flags I- B_AGE; 
bawrite(bp); 

} else 

bdwrite(bp); 

if (type IFREG I I type IFDIR) ( 
if (up-'>u_Dff5et > ip->i_size) 

ip~>i_size ~ up->u_offset; 

} else if (type ” IFIFO) { 
ip->i_size +- n; 
if (up->u_offset “ PIPSIZ) 
up->u_offset - 0; 

} 

ip->i_fiag 1- lUPDiICHG; 


if (type IFIFO) { 

ip->i_fwptr = up->u_offset; 
if (ip->i_fflagtIFIR) { 

ip->i_fflag i- ~IFIR; 
curpri - PPIPE; 

wakeup((caddr_t)4ip->i_frcnt); 

} 

if (up->u_error=0 && usave !”0) { 
up->u_count “■ usave; 
goto floop; 

} 

} 

break; 


} 


default: 

up->u__error = ENODEV; 

} 


/* 

* Hove n bytes at byte location 

* &bp->b__un.b_addr[o] to/frora (flag) the 

* user/kernel (u.segflg) area starting at u.base. 

* Update all the argiraents by the number 

* of bytes moved. 

*/ 

iomove(cp, n, flag) 
register caddr_t cp; 
register n; 

{ 

register struct user *up; 
register t; 

if (n““0) 

return; 

up = &u; 

if (up->u_segflg I- 1) { 

if (flag-=B_S?RITE) 

t = copYin(up->u_base, (caddr_t)cp, n); 

else 

t - copyout((caddr_t)cp, up~>u_base, n) 

if (t) { 

up->u_error = EFAULT; 
return; 

1 

} 

else 

if (flag B_59RITE) 

bcopy(up~>u_base,(caddr_t)cp,n); 

else 

bcopy((caddr_t)cp,up->u_base,n); 

up->u_base +•=- n; 
up“>u_offset += n; 
up->u_count — n; 
return; 
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char _Version_[] - "(C) Copyright 1984 UniSoft Corp., Version V.1.0"; 
char _Origin_t] = "UniSoft Systems of Berkeley"; 


* reboot rootdev 

* Change rootdev, pipedev, dimpdev, swapdev and nswap 

* in the incore copy of unix and then restart unix. 

* This is used during installation after a minimal 

* filesystem has been set up on the hard disk. It 

* results in the first boot of unix from the hard disk. 


^include "stdio.h" 
iinclude "nmaddrs.h" 

#include "sys/types.h" 

^include "sys/config.h" 

♦include "sys/sysmacros.h" 

♦include "sys/swapsz.h" 

♦include "sys/reboot.h" 

♦define USAGE "usage; reboot rootdev" 

main(argc, argv) 
char **argv; 

{ 

register fp, cfp; 
short rootdev; 
long nswap; 
int i; 

if (argc I- 2) 

perr(USAGE); 

rootdev - (short)strtol(*(argv+1) , (char **)NULL, 16); 
if ((fp “ open("/dev/mem", 2)) < 0) 

perr("cannot open /dev/mem"); 

if (lseek(fp, RCXDTDEV, 0) < 0) 

perrC'lseek to rootdev %x failed", ROOTDEV); 
if (write(fp, srootdev, 2) i- 2) 

perr("write of rootdev 0x%x at %x failed", rootdev, ROOTDEV); 
printf("rootdev = 0x%x\n", rootdev); 

if (lseek(fp, PIPEDEV, 0) < 0) 

perrC'lseek to pipedev %x failed", PIPEDEV); 
if (write(fp, irootdev, 2) i= 2) 

perr("write of pipedev 0x%x at %x failed", rootdev, PIPEDEV); 
printf("pipedev - 0x%x\n", rootdev); 

if (lseek(fp, DUHPDEV, 0) < 0) 

perrC'lseek to dumpdev %x failed", DUMPDEV) ; 
if (write(fp, &rootdev, 2) i* 2) 

perr("write of dimpdev 0x%x at %x failed", rootdev, DUMPDEV); 
printf("dximpdev = Ox%x\n", rootdev); 

rootdev++; /* now it's swapdev */ 

if (lseek(fp, SWAPDEV, 0) < 0) 

perrC'lseek to swapdev %x failed", SWAPDEV); 
if (write(fp, firootdev, 2) 1= 2) 

perr("write of swapdev 0x%x at %x failed", rootdev, SWAPDEV); 
printf("swapdev « Ox%x\n", rootdev); 

if {lseek(fp, NSWAP, 0) < 0) 

perrC'lseek to nswap %x failed", NSWAP); 
if (major(rootdev) PRO) 
nswap PRNSWAP; 
else if (major(rootdev) -= CV2) 
nswap “ CVNSWAP; 
else if (major(rootdev) =>=- PM3) 
nswap - PMfSWAP; 

else 

perr("cannot determine size of swapdev"); 
if (write(fp, inswap, 4) 4) 

perrC'write of nswap %d at %x failed", nswap, NSWAP); 
printf("nswap - %d\n", nswap); 
for (i-0; i<200000; i++) ; 


if ((cfp = open('*/dev/console", 2)) < 0) 
perr("cannot open /dev/console"); 

ioctKcfp, RESTART, (caddr_t)0); /* jump to start of unix */ 

perr("restart failed"); 


perr(mes, par) 
char *mes, *par; 

( 

fprintf(stderr, mes, par); 
fprint f(stderr, "\n"); 
perror("reboot"); 
exit(l); 
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/* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

* reinit.c - reinitialize parts of data segment for restarting iinix 
*/ 


^include "sys/param.h'' 
finclude "sys/config.h" 

^include "sys/types.h" 

^include ••sys/systm.h" 

^include **sys/dir .h** 

*include "sys/signal.h" 

♦include "sys/user .h*' 

♦include •*sys/errno.h” 

♦include "sys/file.h" 

♦include "sys/tty.h" 

♦include "sys/termo-h” 

♦include "sys/conf.h” 

♦include "sys/sysinfo.h" 

♦include "sys/var.h" 

♦include "sys/reg.h" 

♦include "setjmp.h" 

♦include "sys/kb.h" 

♦include "sys/sysmacros.h" 

♦include "sys/iobuf.h” 

♦include "sys/map.h" 

♦define CHAPSIZ 50 /* also in conf.c 

♦define SMAPSI2 50 /* also in conf.c 


/ 

/ 


extern mpid; /* used by newproc to decide whether first “init" or not */ 

extern struct iostat prostat[]; 
extern struct iobuf protab; 
extern struct iostat snstat[]; 
extern struct iobuf sntab; 
extern struct iostat cvstat[]; 
extern struct iobuf cvtab; 

extern char *kb_keytab; 
extern char ToLA[]; 
extern char kb_altkp; 
extern int (*te_jputc) (); 
extern int vt_j)utc () ; 
extern char vt_tabset[]; 

/* 

* reinit - called from RESTART console ioctl call in sunix 

*/ 

reinit 0 

{ 

extern int teslotsused; 
register i; 

rapid » 0; 

retabinit(fiprotab, PRO, prostat); 
retabinit(isntab, SNl, snstat); 
retabinit(icvtab, CV2, cvstat); 


kb_keytab ■= ToLA; 
kb_shft “ ]cb__lock - kb_altkp = 0; 
te_putc = vt_j)utc; 
for (i - 0 ; i < 88 ; i++ ) 
vt_tabset[i3 - 0; 

remapinit(scoremap[0], CMAPSIZ); 
remapinit(&swapmapt0], SMAPSIZ); 
/* 

* reset tecmar four port card 
*/ 

teslotsused - 0; 


retabinit(tab, dev, stat) 
register struct iobuf *tab; 
struct iostat stat[]; 

{ 

tab->b_flags =0: 
tab->b_forw - 0; 
tab->b_back = 0; 
tab->b_actf - 0; 
tab->b_actl = 0; 
tab->b_dev - makedev(dev, 0); 
tab->b_active » 0; 
tab->b_errcnt “ 0; 
tab->io_erec = 0; 
tab->io_nreg =0; 
tab->io_addr =0; 
tab->io_stp = stat; 
tab->io_start - 0; 
tab->io_sl = 0; 
tab->io_s2 = 0; 

} 

remapinit(map, szmap) 
struct map *map; 

{ 

raap->m__size - szmap - 2; 
map->m_addr - 0; 

for (map++, szmap—; szmap >0; map++, szmap—) ( 
map->m_size = 0; 
map->m_addr ” 0; 

} 

} 
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/* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

* 

* '•rom_mon'' is used by the software power off feature (see kb.c) 

* and the reboot system call (see config.c, doboot) to return to 

* the ROM monitor in “Customer Mode”. 

*/ 


^include “sys/ramu.h” 
typedef int (*pfri)(); 

♦define ROMADDR ((pfril(0xFE0084)) 

rom_mon() 

{ 


asm(" 

movl 

#0,d0«); 

asra(" 

subl 

a2,a2”); 

asm(" 

subl 

a3,a3''); 

asra(“ 

movl 

OxlOOQ,sp"); 

RCSiADDRO ; 



/* no error code */ 
f* no icon */ 

/* no message */ 
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/* route.c 4.16 83/02/10 */ 

♦include "net/misc.h" 

♦include "sys/param.h*' 

♦include "sys/config.h" 

♦include "sys/errno.h” 

♦include "sys/types.h" 

♦include “sys/systm-h" 

♦include "net/mbuf.h” 

♦ include "net / socket. h '• 

♦include "net/protosw-h" 

♦include "sys/ioctl.h" 

♦include "net/in.h" 

♦include "net/in_systm.h" 

♦include "net/if.h" 

♦include "net/af.h" 

♦include "net/route.h" 

♦include "ermo.h** 

int rttrash; /* routes not in table but not freed */ 

/* 

* Packet routing routines. 

*/ 

rtalloc(ro) 

register struct route *ro; 

{ 

register struct rtentry *rt, *rtmin; 
register struct mbuf *m; 
register unsigned hash; 
register int (*!natch)(); 
struct afhash h; 

struct sockaddr *dst = 4ro->ro_dst; 
int af = dst“>sa_faiBily; 

if (ro->ro_rt && ro“>ro_rt->rt_ifp) /* XXX */ 

return; 

if (af >= AF__MAX) 
return; 

(*afswitch[af].af_hash)(dst, th); 
rtmin = 0, hash •= h.afh_hosthash; 

for (m = rthost[hash % RTHASHSIZ]; m; m - m->ni_next) { 
rt - mtod(m, struct rtentry *); 
if (rt->rt_hash !- hash) 
continue; 

if ((rt->rt_flags & RTF_UP) ”011 

(rt->rt_ifp->if_flags & IFF_UP) == 0) 
continue; 

if (bcmp((caddr_t)4rt->rt_dst, (caddr_t)dst, sizeof (*dst))) 
continue; 

if (rtmin =» 0 || rt->rt_use < rtmin“>rt_use) 
rtmin = rt; 

if (rtmin) 

goto found; 


found: 


} 


hash = h.afh_nethash; 

match = afswitch[af],af_netmatch; 

for (m = rtnet[hash % RTHASHSIZ]; m; m = m->m_next) { 
rt “ ratod(m, struct rtentry *); 
if (rt“>rt_hash i- hash) 
continue; 

if ((rt->rt_flags & RTF_UP) ” 0 || 

(rt->rt_ifp->if_flags & IFF_UP) — 0) 
continue; 

if (rt->rt_dst.sa_family i- af I I !(*match)(&rt“>rt_dst, dst)) 
continue; 

if (rtmin ”01! rt->rt_use < rtmin->rt_use) 
rtmin = rt; 

) 

ro->ro_rt - rtmin; 
if (rtmin) 

rtmin->rt_refcnt++; 


rtfree(rt) 


register struct rtentry *rt; 

{ 

if (rt ” 0) 

panic("rtfree") ; 
r t - > r t__r e f cnt—; 

if (rt->rt_refcnt == 0 (rt->rt_flags&RTF_trp) == 0) { 
rttrash—; 

(void) m_free(dtom(rt)); 

} 

} 

/* 

* Carry out a request to change the routing table. Called by 

* interfaces at boot time to make their "local routes" known 

* and for ioctl's. 

*/ 

rtrequest(req, entry) 
int req; 

register struct rtentry *entry; 

{ 

register struct mbuf *m, **mprev; 
register struct rtentry *rt; 
struct afhash h; 
unsigned hash; 

int af, s, error “ 0, (*match)(); 
struct ifnet *ifp; 

af “ entry“>rt_dst.sa_family; 
if (af >“ AF_MAX) 

return (EAFNOSUPPORT); 

(*afswitch[af].af_hash)(Aentry->rt_dst, &h); 
if (entrY->rt_flags & RTF_HOST) { 
hash “ h.afh_hosthash; 
mprev = &rthost[hash % RTHASHSIZ]; 

) else { 

hash - h.afh_nethash; 

mprev = &rtnet[hash % RTHASHSIZ]; 

match ■= af switch [af] .af__n6tmatch; 
s = splimpO ; 

for (; m = *mprev; mprev - &m->m_next) { 
rt = mtod(m, struct rtentry *); 
if (rt->rt_hash *= hash) 
continue; 

if (entrY->rt_flags & RTF_HOST) ( 

♦define equal(al, a2) \ 

(bcmp((caddr_t)(al), (caddr_t)(a2), sizeof (struct sockaddr)) == 0) 
if ([equal(&rt->rt_dst, Sentry->rt_dst)) 
continue; 

} else { 

if (rt->rt_dst.sa_familY i= entry->rt_dst.sa_family |) 
(*match) (&rt->rt_dst, &entry->rt_dst) ==• 0) 
continue; 

} 

if (equal (&rt->rt_gateway, &entry'->rt_gateway)) 
break; 


} 

switch (req) { 


case SIOCDELRT: 

if (m ” 0) ( 

error = ESRCH; 
goto bad; 

} 

*mprev == m->m_next; 
if (rt->rt_refcnt >0) { 

rt->rt_flags 4- -RTF_UP; 

rttrash++; 

m“>m_next » 0; 

} else 

(void) ia_free(m); 

break; 


case SIOCADDRT: 

if (m) { 
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error - EEXIST; 
goto bad; 

} 

ifp = if_ifwithaddr (&entry-‘>rt_gateway) ; 
if (ifp — 0) { 

ifp =• if_ifwithnet («entry->rt_aatewav) ; 
if (ifp 0) { 

error « ENETUNREACH; 
goto bad; 

> 

} 

/* billn — meld with old 
m = ra_get(M_DONTffAIT,MT_RTABLE); 

*/ 

m “ m_get(M_DONTWAIT); 
if (m “ 0) { 

error = ENOBUFS; 
goto bad; 

} 

*mprev == m; 

m->m_off = HHINOFF; 

m->m_len =* sizeof (struct rtentry); 

rt = mtod(m, struct rtentry *); 

rt->rt_hash = hash; 

rt->rt_dst = entry->rt_dst; 

rt->rt_gateway = entrY->rt_gatewaY; 

rt->rt_flags -* 

RTF_UP i (entry->rt_flags & (RTF_HOST1RTF_GATEWAY)); 
rt->rt_refcnt » 0; 
rt->rt_use = 0; 
rt->rt_ifp “ ifp; 
break; 


splx(s) ; 
return (error); 


/* 

* Set up a routing table entry, normally 

* for an interface. 

rtinit(dst, gateway, flags) 

struct sockaddr *dst, *gateway; 
int flags; 


struct rtentry route; 


bzero((caddr_t)Sroute, sizeof (route)); 
route. rt__dst - *dst; 
route.rt_gatewaY = *gateway; 
route.rt_flags - flags; 

(void) rtrequest((int)SIOCADDRT, &route); 
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/* #define HOWFAR */ 

/* 

* Real time clock driver 

* 

* <C) 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 


* Only reads and writes of 4 bytes (sizeof time_t, the standard unix 

* representation of time) are allowed for the real time clock. 

* The rtime structure contains the time most recently read or written. 


* 

struct rtime 

{ 

See page 35 LHRM 


* 

time_t 

rt_tod; 

Seconds since the 

Epoch (Unix time) 

* 

long 

rt_alrm; 

Seconds remaining 

to trigger alarm (unused) 

* 

short 

rt_year; 

year 

(0 - 15) 

* 

short 

rt_day; 

julian day 

(1 - 366) 

* 

short 

rt_hour; 

hour 

(0 - 23) 

* 

short 

rt_min; 

minute 

(0 - 59) 

* 

short 

rt_sec; 

second 

(0 - 59) 

* 

short 

rt_tenth; 

tenths of a second (0-9) 


* ); 

*/ 

#include **sys/param.h” 

^include **sys/config.h'' 

#include "sys/rarau.h” 

#include "sys/types.h" 

^include ’•sys/sysraacros.h" 
tinclude "sys/dir.h” 

♦include "sys/signal.h*' 

♦include "sys/user.h” 

♦include '•sys/errno.h* 

♦include "sys/utsname.h" 

♦include "sys/buf.h" 

♦include "sys/elog.h" 

♦include "sys/erec.h** 

♦include "sys/iobuf.h" 

♦include "sys/systm.h** 

♦include “sys/var ,h'* 

♦include "setjmp.h" 

♦include "sys/reg.h" 

♦include "sys/tty.h" 

♦include "sys/local.h" 

struct rtime rtime; 

int rtcrwait; /* flag to sleep on waiting for read to complete *l 

/* 

* Read the real time clock. The command to do this is issued through 

* the COPS. In response, the keyboard gets 6 special interrupts with 

* the data, kbintr stores this data in rtime and calls rtcsettod when 

* the sixth one has been handled, rtcsettod calculates the time as 

* Unix likes to think of it, which is as it is returned. 

*/ 

/* ARGSUSED */ 
rtcread(dev) 
dev_t dev; 

{ 

time_t rt; 

if (u.u_count !* sizeof(time_t)) { 
u.u_error - ENXIO; 
return; 

} 

rt - rtcdoread(); 

iomove (<caddr_t) * rt, si zeof (t iine_t), B_READ) ; 

) 

/* 

* This routine is normally called from rtcread. However the kernel 

* reads the clock by calling rtcdoread directly from clkset. 

*/ 

rtcdoread0 


12copscmd(READCLOCK); 
rtcrwait =1; 
while (rtcrwait) 

(void) sleep((caddr_t)firtcrwait, TTIPRI); 
return(rtime,rt_tod); 

/* 

* Set rt_tod (real time in seconds since epoch) given the real 

* time clock time currently in the rest of the rtime structure. 

* Those values ( 2 rt_year, rt_day, rt_hour, rt_rain, rt_sec) are 

* set in response to 12copscmd(READCLOCK), and are returned through 

* special keyboard interrupts (kbintr). 

*/ 

♦define dsize(x) (x%4==0 2366 :365) 

♦define YEAR 70 
rtcsettod () 

{ 

register struct rtime *p = &rtime; 
register short i, j; 

i = “1; 

for (j=YEAR; j-YEAR<p->rt_year; j++) 
i += dsize(j); 

p->rt_tod “ i + p-->rt_day; /* Days since epoch */ 

p->rt_tod *= 24; 

p->rt_tod +“ p->rt_hour; 

p>’>rt_tod *” 60; 

p->rt_tod += p->rt_min; 

p->rt_tod *= 60; 

p->rt_tod +“ p->rt_sec; 

♦ifdef HOsaFAR 

print f(“DATE: %d.%d %d:%d.%d\n“, p->rt_jyear, p->rt_day, 
P“>rt_hour, p->rt_min, p->rt_sec); 

♦endif HOWFAR 

if (rtcrwait) { 

rtcrwait - 0; 

wakeup((caddr_t)&rtcrwait); 

} 


/* 

* Set the real time clock to the time indicated. Note that nt is in 

* seconds since midnight 1/1/1970 GMT. The timezone has already been 

* corrected for. 

*/ 

/* ARGSUSED */ 
rtcwrite(dev) 
dev_t dev; 

{ 

register struct rtime *p - irtime; 
register long nt; 
register long i, j; 

if (u.u_count i= sizeof(time_t)) { 
u.u_error - ENXIO; 
return; 

) 

iomove ((caddr_t) firtime. rt__tod, sizeof (tirae_t), B_HRITE) ; 
nt - p->rt_tod; 

i - nt % 86400; /* 86400 - 24*60*60 -= number secs./day */ 

j - nt / 86400; 
if (i < 0) { 

i +” 86400; 
j -= 1; 

nt - j; 

p->rt_5ec -> i % 60; 

i /- 60; 

p->rt_min - i % 60; 
i /- 60; 

p“>rt_hour = i % 24; 
j - YEAR; 

for (j-YEAR; i-«dsize(j); j++) { 
if (nt < i) 
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break; 

nt -= i; 

} 

p->rt_year = j - YEAR; 
if {p->rt_year < 10) { 
iifdsf HOSJFAR 

printf(“can't remember dates before 1980\n“); 

♦endif HOWFAR 

u.u_error - EINVAL; 
return; 

} 

P“>rt_day - ++nt; 

12copscrad(SETCLOCK); /* stop clock, start setup mode */ 

for (i**0; i<5; i++) 

12copscrad(CLKNIBBLE); /* no alarm implemented yet */ 

12copscmd(CLKNIBBIiE 1 (p->rt_year - 10)); 
i =“ p->rt_day / 10; 
j = i / 10; 

12copscmd((char)(CLKNIBBLE 1 j)); 

12copscmd((char)(CLKNIBBLE 1 (i%10))); 

12copscmd(CLKNIBBLE ( (p->rt_day % 10)); 

12copscrad(CLKNIBBLE 1 (p->rt_hour / 10)); 

12copscmd(CLKNIBBLE | (p->rt_hour % 10)); 

12copscmd(CLKNIBBLE I (p->rt_min / 10)); 

12copscmd(CLKNIBBLE | (p->rt_min % 10)); 

12cQpscmd (CLKNIBBLE | (p->rt_sec / 10)); 

12copscmd(CLKNIBBLE | (p->rt_sec % 10)); 

12copscmd(STRTCLOCK); /* start clock, leave timer disabled */ 

/* 12copscrad(READCLOCK); /* Now read it back */ 

} 
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/* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

* co.c - "console" (ie, bitmap screen and keyboard) driver for the lisa. 

*/ 

^include "sys/param.h" 

^include "sys/config.h" 

^include "sys/types.h" 
finclude "sys/systm.h" 

^include "sys/dir.h" 

#include "sys/signal.h" 

^include "sys/user.h" 

^include "sys/errno.h" 

^include "sys/file.h" 
finclude "sys/tty.h" 

^include "sys/termio.h" 

♦include "sys/conf.h" 

♦include "sys/sysinfo.h" 

♦include "sys/var.h" 

♦include "sys/reg.h" 

♦include "setjmp.h" 

♦include "sys/ioctl.h“ 

♦include "sys/kb.h" 

♦include •sys/al_ioctl.h" 

♦ifdef SUNIX 
♦include "sys/reboot.h" 

♦endif SUNIX 
♦include "sys/inmu.h* 

♦include "sys/cops.h" 

♦include «sys/12.h" 

int coproc(); 

extern int co_cnt; 
extern struct tty CQ__tty [ ]; 
extern struct ttyptr co_ttptr[]; 

extern char trnibck, bmnorraal; 

extern char *hmscrn; /* pointer to screen — initialized in bminit */ 

/* calls to the putc routine are made indirectly through 

* the te_putc pointer which is used to 

* keep track of the current state for escape character 

* processing, ie, although initialized to point to 

* the normal putc, an escape character causes other 

* functions to process the next character(s) 

*/ 

extern int vt_putc(); 
int (*te_j)utc) ()=vt_putc; 

/’‘♦ifdef SUNIX 
extern caddr_t start; 

♦endif SUNIX 
*/ 


struct device { 

char csr; 

char idum[21 

char dbuf; 

}; 


/* ARGSUSED */ 
coopen(dev, flag) 
register dev; 

{ 

register struct tty *tp; 

if (dev >- co_cnt) { 

u.u_error - ENXIO; 
return; 


/* Command status register */ 
/* fillers */ 

/* data buffer */ 


} 

tp = co_ttptr[dev].tt_tty; 
tp->t_index “ dev; 

SPL6() ; 

if ((tp->t_statei(ISOPENIWOPEN)) 0) { 

tp->t_proc = coproc; 
ttinit(tp); 

tp->t_State - WOPEN I CARR_ON; 
if (dev = CONSOLE) { 

tp->t__iflag - ICRNL I ISTRIP; 
tp->t_oflag = OPOST 1 ONLCR I TAB3; 
tp->t_lflag - ISIG ! ICANON I ECHO ! ECHOK; 
tp->t_cflag = sspeed | CSS | CREAD | HUPCL; 

} 

SPLO(); 

(*linesw[tp“>t_line].l_open)(tp); 

} 

/* ARGSUSED */ 
coclose(dev, flag) 

{ 

register struct tty *tp; 

tp = co_ttptr[dev].tt_tty; 

(*linesw[tp->t_line].l_close)(tp); 

} 

coread(dev) 

{ 

struct tty *tp; 

tp =• co_ttptr [dev] .tt_tty; 

(*linesw[tp->t_line3.l_read)(tp); 

) 

cowrite(dev) 

{ 

struct tty *tp; 

tp “ co_ttptr[dev].tt_ttY; 

(*linesw[tp->t_line3.l_write)(tp); 

} 

/* ARGSUSED */ 

coioctKdev, cmd, arg, mode) 
int i; 

switch (cmd) { 

case AL_SBVOL; 

12_bvol - arg & 7; 
break; 

case AL_SBPITCH: 

12_bpitch - arg & OxlFFF; 
break; 

case AL_SBTIME: 

if (arg <= 0) 

arg - 1; 

if (arg > 10 * v.v_hz) /* limit to 10 seconds */ 

arg - 10 * v.v_hz; 

12_btime - arg; 
break; 

case AL_SDIMTIME: 

12_dtime - arg; 

12_dtrap - Ibolt + 12_dtime; 
break; 

case AL_SDIMCONT: 

12_dimcont - (~arg) & OxFF; 
break; 

case AL_SDIMRATE: 

12_crate - arg; 
break; 

case AL_SCONTRAST: 

12_defcont - (~arg) & OxFF; 
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12_desired - 12_defcont; 

12ramp{0); 
break; 

case AL_SREPKAIT: 

kb_repwait - arg; 
break; 

case AL_SREPDELAY: 

kb_repdlay = arg; 
break; 
case AIi__GBVOL: 

i » 12_bvol; 

if (copyout C(caddr_t)4i, (ca ddr_t)arg, 4)) 
u.u_error = EFAULT; 

break; 

case AL_GBPITCH: 

if (copyout((caddr_t) & 12_bpitch, (caddr_t)a rg, 4)) 
u.u_error = EFAULT; 

break; 

case AL_GBTIME: 

if (copyout((caddr_t)412_btime, <caddr_t)arg, 4)) 
u.u_error - EFAULT; 

break; 

case AL_GDIMTIME: 

if (copyout((caddr_t) & 12_dtime, {caddr_t)arg, 4)) 
u.u_error - EFAULT; 

break; 

case AL_GDIMCONT: 

i =* (-'12_dijacont) & OxFF; 
if (copyout((caddr_t)&i, {caddr_t)arg, 4)) 
u.u_error =- EFAULT; 

break; 

case AL_GDIMRATB: 

if (copyout ((caddr_t) il2_crate, (caddr__t) arg, 4) > 
u.u_error = EFAULT; 

break; 

case AL__GCONTRAST: 

i = (~12_defcont) & OxFF; 
if (copyout({caddr_t)4i, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 

break; 

case AL_GREPWAIT; 

i == kb_repwait 4 OxFFFF; 

if (copyout ((caddr__t) 4i, {caddr_t) arg, 4)) 
u.u_error = EFAULT; 

break; 

case AL_GREPDELAY: 

i “ kb_repdlay 4 OxFFFF; 
if (copyout((caddr_t)4i, (caddr_t)arg, 4)) 
u.u_error =* EFAULT; 

break; 

case AL_GBMADDR: 

if (copyout ((caddr_t) 4bniscrn, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 

break; 

case AL_REWIDEO; 

if (arg > 0) 

i - 0; 

else if (arg == 0) 
i - -1; 

else 

i - (bmbck)? 0 : -1; 
if (bmbck != i) ( 

bmswitch(); 
bmsinv () ; 

} 

tanbck * i; 
tatinormal - bmbck; 
break; 

♦ifdef SUNIX 

case RESTART; /* jump to the start of unix */ 

reinit(); 

((int (*) 0)0xC000) 0; 
break; 

♦endif SUNIX 

default: 

(void) ttiocom(co_ttptr [0] . tt_T:ty, cmd, arg, mode); 


coproc(tp, cmd) 
register struct tty *tp; 

{ 

register struct ccblock *tbuf; 
extern ttrstrt(); 

switch (cmd) { 
case T_TIHE; 

tp->t_state 4= -TIMEOUT; 
goto start; 

case T_WFLUSH: 

tbuf = 4tp->t_tbuf; 
tbuf->c_size -= tbuf->c_count; 
tbuf->c_count - 0; 

/* fall through */ 
case T_RESUME; 

tp->t_state 4- -TTSTOP; 
goto start; 

case T_OUTPUT: 

start: 

if (tp->t_state 4 (TTSTOPI TIMEOUT}BUSY)) 
break; 

tbuf -> 4tp->t_tbuf; 

if ((tbuf“>c_ptr “= 0) II (tbuf->c_count =*-0)) { 
if (tbuf->c_ptr) 

tbuf->c_ptr — tbuf->c_size; 
if (i(CPRES 4 {*linesw[tp->t_line3.l_output)(tp))) 
break; 

) 

(*te_putc)((*tbuf->c_ptr++)40x7f); 
tbuf->c_count—; 

sysinfo.xratint++; /* this is the xmit interrupt */ 

splx(spll()); 
goto start; 

case T_SUSPEND: 

tp->t_state 1= TTSTOP; 
break; 

case T_BLOCK; 

break; 


case T_RFLUSH: 

if { I (tp->t_state4TBLOCK)) 
break; 

/* fall through */ 

case T_UNBLOCK: 

break; 



cointr(dev) 

{ 

register struct ccblock *cbp; 
register int c, lent, fig; 
struct tty *tp; 
register char ctmp; 
char lbuf[3]; 

sysinfo.rcvint++; 
c •” kb_chrbuf; 
tp ” co_ttptr[dev].tt_tty; 
if (tp->t_rbuf.c_ptr — NULL) 
return; 

4undef NULLDEBUG 
♦ifdef NULLDEBUG 
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if( c ==“ 0x00 ) { 

sccdebug(); 
return; 

} 

#en(iif 

if (tp->t_iflag & IXQN) { 
ctmp = c 4 0177; 
if (tp->t_state 4 TTSTOP) { 

if (ctmp — CSTART I I tp->t_iflag 4 IXANY) 

(* tp->t_J)r OC) (tp, T_RESUME) ; 

} else { 

if (ctmp ”= CSTOP) 

(*tp->t_proc)(tp, T_SUSPEND); 

} 

if (ctmp “ CSTART I I Ctmp == CSTOP) 
return; 

} 

/* 

* Check for errors 
*/ 

lent =»= 1; 

fig “ tp->t_iflag; 
if (flg4ISTRIP) 

c 4= 0177; 

else { 

if (c =« 0377 44 flg4PARHRK) ( 
lbuf[l] « 0377; 
lent =2; 

} 

/* 

* Stash character in r_buf 
*/ 

cbp “ 4tp->t_rbuf; 
if (lent !- 1) { 

IbufEO] = c; 
while (lent) { 

*cbp->c_j)tr++ *= Ibuff—lent}; 
if (—cbp->c_count »=“ 0) { 

cbp->c_ptr -= cbp->c_size; 

(*linesw[tp->t_line].l_input)(tp); 

} 

} 

if (cbp->c_size cbp->c_CQunt) { 

cbp->c_j>tr -= cbp->c_size - cbp->c_count; 
(*linesw[tp->t_line] .l__input) (tp) ; 

) 

} else { 

*cbp->c_ptr = c; 
cbp-> c_count—; 

(*linesw[tp->t_line].l_input)(tp); 

} 

/* 

* This version of putchar writes directly to the bitmap display 

* for those last-ditch situations when you just have to get stuff to the CRT. 
*/ 

coputchar(c) 
register c; 

{ 

(*te_putc)(c 4 0x7F); 
if (c -= '\nM 

(*te_putc)('\r'); 
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/* 

* Configuration information 
*l 

/* fdefine DISK_0 1 */ 

^define NBUF 30 
♦define NINODE 50 
♦define NFILE 60 
♦define NHOUNT 8 

♦define CMAPSIZ 50 /* also in reinit.c */ 

♦define SMAPSI2 5Q /* also in reinit=c */ 

♦define CXMAPSIZ 50 

♦define NCALL 15 

♦define NPROC 30 

♦define NTEXT 20 

♦define NSVTEXT 20 

♦define NCLIST 100 

♦define STACKGAP 8 

♦define NSABUF 5 

♦define POWER 0 

♦define HAXUP 25 

♦define NHBUF 64 

♦define NPBUF 4 

♦define NFLOCK 200 

♦define X2SLINKS 1 

♦define X25BUFS 256 

♦define X25MAPS 30 

♦define X25BYTES {16*1024) 

♦define CSIBNUM 20 
♦define VPMBSZ 8192 
♦define MESG 1 
♦define HSGMAP 100 
♦define HSGHAX 8192 
♦define HSGMNB 16384 
♦define HSGMNI 50 
♦define MSGSSZ 8 
♦define MSGTQL 40 
♦define MSGSEG 1024 
♦define SEMA 1 
♦define SSHHAP 10 
♦define SEHHNI 10 
♦define SEMMNS 60 
♦define SEMMNU 30 
♦define SEMMSL 25 
♦define SEMOPM 10 
♦define SEMUME 10 
♦define SEMVMX 32767 
♦define SEMAEM 16384 
♦define SHMEM 1 
♦define SHMMAX (128*1024) 

♦define SHMMIN 1 
♦define SHHMNI 100 
♦define SHMBRK 16 
♦define SHMALL 512 
♦define STIHBUT (ST_0*4) 

♦define STOHBUF (ST_0*4) 

♦define STNPRNT (ST_0»2) 

♦define STIBSZ 8192 
♦define STOBSZ 8192 


♦include “sys/param.h" 

♦include "sys/config.h" 

♦include ”sys/rnrau.h" 

♦include "sys/types.h" 

♦include “sys/sysmacros.h" 

♦include "sys/conf.h” 

♦include "sys/cpuid.h" 

♦ include '• sys/space, h" 

♦include "sys/io.h" 

♦include "sys/termio.h” 

♦include "sys/reg.h" 

♦include "sys/scc.h" 

♦include "sys/pport .h‘* 

♦include "sys/swapsz.h" 


extern nodev(), nulldev(); 

extern proopen (), proread()^ prowrite (), prostrategy (), proprint (), proioctlO; 

extern snbopenO, sncopenO, snbcloseO, snccloseO, snreadO, snwriteO, snstrategyO, snprint(), sni 

extern cvopen(), cvread{), cvwrite (), cvstrategy (), cvprint(); 

extern pmopenO, pmreadO, psnwriteOprastrategy(), pmprintf), pmioctl(); 

extern coopen(), coclose(), coread(), cowrite (), coioctl{); 

extern syopen(), syread(), sywrite (), syioctl(); 

extern mmread (), mmwrite(); 

extern scopenO, sccloseO, screadO, scwriteO, scioctlO; 
extern erropenO, errcloseO, errreadO; 
extern proread()- prowrite(), proioctl(); 
extern ejioctl(); 

extern msopen{), msclose{), msread(), msioctl(); 
extern Ipopen(), Ipclose(), Ipwrite(), Ipioctl(); 
extern skopen(), skclose(), skwrite(); 
extern rtcread(), rtcwrite{); 

extern teopen (), tecloseO, tereadO, tewriteO, teioctlO; 

♦ifdef UCB_NET 

extern int ptsopenO, ptscloseO, ptsreadO, ptswriteO; 
extern int ptcopen(), ptcclose{), ptcread(), ptcwrite(); 
extern int ptsioctl(), ptcioctl(); 

♦endif 

struct bdevsw bdevsw[] - { 

proopen, nulldev, prostrategy, proprint, /* 0 */ 

snbopen, snbclose, snstrategy, snprint, /* 1 */ 

cvopen, nulldev, cvstrategy, cvprint, /* 2 */ 

pmopen, nulldev, prastrategy, pmprint, /* 3 */ 

}; 


struct 

cdevsw cdevsw[] = { 
coopen, coclose. 

coread. 

cowrite. 

coioctl. 

Or 

/* 

0 * 

/ 


syopen. 

nulldev. 

syread. 

sywrite. 

syioctl. 

0, 

/* 

1 * 

/ 


nulldev. 

nulldev. 

mmread. 

mmwrite. 

nodev. 

Or 

/* 

2 * 

/ 


erropen. 

errclose. 

errread. 

nodev. 

nodev. 

Or 

/* 

3 * 

/ 


scopen. 

scclose. 

scread. 

scwrite. 

scioctl. 

Or 

/* 

4 * 

/ 


proopen. 

nulldev. 

proread. 

prowrite. 

proioctl. 

0, 

/* 

5 * 

/ 


sncopen. 

sncclose. 

snread. 

snwrite. 

snioctl. 

Or 

/* 

6 * 

/ 


nulldev. 

nulldev. 

nodev. 

nodev. 

ejioctl. 

0, 

/* 

7 * 

/ 


Ipopen, 

Ipclose, 

nodev. 

Ipwrite, 

Ipioctl, 

Or 

/* 

8 * 

/ 


msopen. 

msclose. 

msread. 

nodev. 

msioctl. 

0, 

/* 

9 * 

/ 


skopen. 

skclose. 

nodev. 

skwrite. 

nodev. 

Or 

/* 

10 

*/ 


cvopen. 

nulldev. 

cvread. 

cvwrite. 

nulldev. 

0, 

/* 

11 

*/ 


pmopen. 

nulldev. 

praread. 

pmwrite. 

proioctl. 

0, 

/* 

12 

*/ 


nulldev. 

nulldev. 

rtcread. 

rtcwrite. 

nulldev. 

0, 

/* 

13 

*/ 


teopen. 

teclose. 

teread. 

tewrite. 

teioctl. 

0, 

/* 

14 

*/ 

♦ifdef 

UCB_NET 

nodev. 

nodev. 

nodev. 

nodev. 

nodev. 

Or 

/* 

15 

*/ 


nodev. 

nodev. 

nodev. 

nodev. 

nodev. 

0, 

/* 

16 

*/ 


nodev. 

nodev. 

nodev. 

nodev. 

nodev. 

0, 

/* 

17 

*/ 


nodev. 

nodev. 

nodev. 

nodev. 

nodev. 

0, 

/* 

18 

*/ 


nodev. 

nodev. 

nodev. 

nodev. 

nodev. 

0, 

/* 

19 

*/ 


ptcopen. 

ptcclose. 

ptcread. 

ptcwrite. 

ptcioctl. 

0, 

/* 

ptc 

: 20 


ptsopen. 

ptsclose. 

ptsread. 

ptswrite. 

ptsioctl. 

Or 

/* 

pts 

: 21 


♦endif 

); 


int bdevcnt = sizeof(bdevsw)/sizeof(bdevsw[0]); 
int cdevcnt = sizeof(cdevsw)/sizeof(cdevsw[0]); 

♦ifdef SUNIX /* Sony (installation) root filesystem */ 
dev_t rootdev - makedevd, 0); 

dev_t pipedev makedevd, 0); 

dev_t dumpdev - makedevd, 0); 

/* nswap and swapdev are set in lisainit in config.c */ 

dev_t swapdev - raakedev(0, 1); 

daddr_t swplo - 0; 

int nswap - PRNSWAP; 

♦else SUNIX /* ProFile root filesystem */ 

♦define ROOTBASE 0 /* (port * 16) for port-0,1,2,4,5,7, or 8 */ 

dev_t rootdev - makedeviO, ROOTBASE); 

dev_t pipedev - makedev(0, ROOTBASE); 

dev_^t dumpdev - makedev(0, ROOTBASE); 
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dev_t swapdev - makedev(0, ROOTBASE + 1); 

daddr_t swplo “ 0; 

int nswap = PRNSWAP; 

#endif SUNIX 

int {*duisp} {) = nulldev; 

int duiap_addr = 0x0000; 

int (*pwr_clr[l) 0 - { 

(int (*)())0 

}; 

int {*dev_init []) 0 - 

{ 

(int (*) 0)0 

); 

♦ifdef SCC_CONSOLE 

int scputchar(); 

int (*putchar)<) - scputchar; 

#else 

int coputchar(); 

int (*putchar)() = coputchar; 

Oendif 

♦ifdef UCB_NET 
♦define PTC_DEV 20 
int ptc_dev “ PTC_DEV; 

♦endif 

int co_cnt =» 1; 

St ruct tty co_ttY[1]; 

struct ttyptr co_ttptr[l » { 

1, &co_tty[0], /* tt_addr field not used */ 

0, 

}; 

int sc_cnt = NSC; 
struct tty sc_tty[NSC]; 
char sc_modem[NSCl; 

struct ttyptr sc_ttptr[] « { 

0XFCD240, &sc_tty[l}, 

0XFCD242, 4sc_ttY[01, 

0, 

}; 

struct scline sc_line[] =■ { 

W9BRESET, (4000000/16), /* clock frequency b */ 

W9ARESET, (4000000/16), /* clock frequency a */ 

}; 

♦if NTE !- 0 
int te_cnt = NTE; 
struct tty te_tty[NTE]; 
char te_dparam[NTE]; 
cha r t e_modem[NTE]; 

struct ttyptr te_ttptr[NTE+l]; /* +1 for pstat */ 

♦endif 

/* 

* pointers to ttyptr structures for terminal monitoring programs 
*/ 

struct ttyptr *tty_stat[] = { 
co_ttptr, 
sc_ttptr, 

♦if NTE !- 0 

te_ttptr, 

♦endif 

0 

}; 


/* 

* tty output low and high water marks 


V 

♦define TTHIGH 
♦ifdef TTLOW 
♦define M 1 

♦define N 1 

♦endif 

♦ifdef TTHIGH 
♦define M 3 

♦define N 1 

♦endif 

int tthiwat[16] = { 



0*M, 

60 *M, 

60*H, 

60 *M, 

60 *M, 

60*M, 

60 *M- 

120*M, 


120*M, 

180*M, 

180*M, 

240*M, 

240*M, 

240*M, 

100*M, 

100*H< 

}; 

int 

ttlowat[16] ” 
0*N, 20*N, 

{ 

20*N, 

20*N, 

20*N, 

20*N, 

20*N, 

40*N, 


40*N, 

60 *N, 

60*N, 

80*N, 

80*N, 

80*N, 

50*N, 

50*N, 


}; 


/* 

* Default terminal characteristics 
*/ 

char ttcchar[NCC] ” { 

CINTR, 

CQUIT, 

CERASE, 

CKILL, 

CEOF, 

0, 

0 

}; 

♦ifdef lint 
/* LINTLIBRARY */ 
forlint() 

{ 

taainit 0; 
nmikey(); 

llintr((struct args *)0); 
kbintr(); 

scintr((struct args *)0); 
pmintr((struct args *)0); 
ebintr(0); 
netintr(); 

} 

♦endif 

♦ifdef UCB_NET 
♦include <net/misc.h> 

♦include <net/ubava r.h> 

extern struct uba_driver ebdriver; 

struct uba_device ubdinitt] “ { 

/* driver, unit, addr, flags*/ 

{ &ebdriver, 0, (caddr_t)5, 0x59002908 }, /* net 89 */ 

0 

}; 

int iff_noarp - 0; /* 0 -> do ARP; not 0 -> no ARP */ 

♦endif 
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/* 

* This file contains 

* 1. oem modifiable configuration personality parameters 

* 2. oem modifiable system specific kernel personality code 

*/ 

finclude "sys/param-h" 

^include "sys/config.h" 

^include "sys/mmu.h" 

♦include "sys/types.h" 

♦include “sys/sysmacros.h" 

♦include "sys/systm.h" 

♦include “sys/map,h" 

♦include "sys/dir.h" 

♦include "sys/signal.h« 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/proc-h” 

♦include "sys/buf.h" 

♦include "sys/iobuf.h" 

♦include "sys/reg.h” 

♦include "sys/file.h" 

♦include ■sys/inode.h" 

♦include "sys/seg.h" 

♦include "sys/acct.h" 

♦include "sys/sysinfo.h" 

♦include "sys/var.h" 

♦include "sys/ipc.h" 

♦include "sys/shm.h** 

♦include "sys/terraio.h" 

♦include **sys/conf .h" 

♦include "sys/cops.h" 

♦include “sys/pport.h" 

♦include "sys/local.h" 

♦include ■sys/12-h” 

♦include "sys/kb.h" 

♦include **sys/swapsz .h" 

/*char oeramsgt] = “UniSoft Systems distribution system release 1.5";*/ 

char oemmsg[] = “UniSoft Systems pre-distribution system (release 1.5+)"; 

int sspeed = B9600; /* default console speed */ 

int parityno =28; /* parity interrupt vector */ 

int cmask = CMASK; /* default file creation mask */ 

int cdlimit = CDLIMIT; /* default file size limit */ 

char slot[NSLOTS]; /* card ID numbers for expansion cards */ 

/* 

* Kernel initialization functions. 

* Called from main.c while at spl7 in the kernel. 

*/ 

oem7init() /* alias (formerly) "lisainit" */ 

{ 

♦ifdef SUNIX 

int dev; 

extern dev_t swapdev; 
extern int nswap; 

♦endif SUKIX 

extern struct rtime rtime; 
extern int pmvect[]; 
extern int tevect[]; 

register short *sidp; /* slot ID pointer */ 

register slotid, i; 
register long *ip; 

12init(); /* setup the COPS ports */ 

/* This mess disables the vertlcle retrace interrupt, for now, 

*/ 

do { 

VRON “ 1; 

) while ((STATUS « S_VR) !- 0); 
do { 

VROFF « 1; 

} while ((STATUS & S_VR) — 0); 


/* Some of the initialization requires that interrupts be enabled to 

* pick up coded sequences from the keyboard cops. If interrupts were 

* masked out then the time returned by READCLOCK would fill the 

* buffer and KBENABLE, which also returns a value, would have trouble. 

*/ 

SPLIO; /* ok, do it to me */ 

12copscmd(HOUSEOFF); /* shut off mouse interrupts */ 

12copscmd(READCLOCK); /* get time of day */ 

12copscmd(KBENABLE); /* enable keyboard */ 

sninitO; /* Sony initialization */ 

/* Wait 'til the clock data (from READCLOCK) and keyboard ID (from 
KBENABLE) have come in, and the keyboard is back in NORMALWAIT */ 
while (kb__state) ; 
time =“ rtime.rt_tod; 

SPL7(); /* it should be at level 7 for the rest (2) */ 

/* Find out what's in each of the expansion slots. 

*/ 

for (i = 0, sidp - SLOTIDS; i < NSLOTS; i++, sidp++) { 

slot[i] = OxFF; /* not supported */ 

slotid = *sidp & SLOTMASK; 
if (Islotid) { 

if (iocheck((caddr_t)(STDIO+i*0x4000+l))) { 

printf("Expansion slot %d: quad serial cardXn", 
i+1); 

if (teinit(i) — 0) { 

/* 

* point to interrupt vector, 

* set tecmar quad serial board inter loc, 

* and initialize hdwr 
*/ 

ip - 4((long *) 0)[EXPIVECT+devtoslot(i)]; 

*ip ” (long)tevect + (long) (devtoslot(i)«2) ; 

} 

} 

continue; 

} 

printf("Expansion slot %d: ", i+1); 
switch (slotid) { 
case ID_APLNET; 

printf("applenet cardXn"); 
break; 

case ID_PRO: 

printf("ProFile cardXn"); 
break; 
case ID_2PORT: 

printf("two port cardXn"); 
slot[i] - PRO; /* valid */ 

break; 
case ID_PRIAM: 

printf("Priam cardXn"); 

ip = s((long *) 0)[EXPIVECT+devtoslot(i)1; /* point to int vector */ 

*ip - (long)pmvect + (long) (devtoslot(i)«2); /* set to Priam intr */ 

if (pmcinit(i) “ 0) /* initialize controller */ 

slot[i] = PM3; /* valid */ 

break; 

default: 

printf("card ID 0x%xXn", slotid); 


} 

scinitO; /* SCC serial initialization */ 

♦ifdef UCB_NET 

netinit(); 

♦endif 

/* Now enable the verticle retrace Interrupt, used for the system clock. 
*/ 

do { 

VRON - 1; 

} while ((STATUS C S_VR) 0); 

♦ifdef SUNIX 

SPLO 0 ; 

{* This is the first unix booted during installation so find swapdev. */ 
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if (rootdev = niakedev(SNl, 0)) { 

while (chkdev(dev * getdevnam())) 

printf("Unable to use that device\nTry again:\n"); 
printf ("\n\nswapdev =>= 0x%x\n\n", dev) ; 
swapdev - dev; 

if (laajor(dev) == PRO) nswap - PRNSWAP; 
else if (major(dev) =“ PM3) nswap = PMNSHAP; 
else if (major (dev) -=■ CV2) nswap - CVNSWAP; 
else panic("cannot determine size of swapdev"); 

} 

#endif SUNIX 
} 

/* 

* Kernel initialization functions, 

* Called from main.c while at splO in the kernel- 

V 

oemOinit() 

{ 

) 


/* 

* parityerror() 

* Called from trap for parity error traps via 

* interrupt level “parityno" (conf.c). 

* Should return non-zero for fatal errors. 

* Should return zero for a transient warning error, 

*/ 

parityerror() 

{ 

printf("parity errorXn"); 
return(-1); 

} 

/* 

* reboot the system 

* called from reboot function 

V 

doboot() 

{ 

kb_state = SHUTDOWN; 

SPL7() ; 
rom_mon(); 

/*NOTREACHED*/ 

) 

/* 

* OEM supplied subroutine called on process exit 

V 

/* ARGSUSED */ 
oemexit (p) 

register struct proc *p; 

{ 

♦ifdef lint 

/* for lint use p */ 
p->p_flag++; 

#endif 

} 

struct device_d *pro_da[NPPDEVS] » { /* DEV Description */ 

PPADDR, /* 0x00 parallel port */ 

(struct devlce_d *)(STDIO+0x2000), /* 0x10 FPC port 0 slot 1 */ 

(struct device_d *)(STDIO+0x2800), /* 0x20 FPC port 1 slot 1 */ 

(struct device_d *)(STDIO+0x3000), /* 0x30 FPC port 2 slot 1 !!!*/ 

(struct device_d *)(STDIO+0x60Q0), /* 0x40 FPC port 0 slot 2 */ 

(struct device_d *)(STDIO+0x6800), /* 0x50 FPC port 1 slot 2 */ 

(struct device_d *)(STDIO+0x7000), /* 0x60 FPC port 2 slot 2 !!!*/ 

(struct device_d *)(STDIO+OxAOOO), /* 0x70 FPC port 0 slot 3 */ 

(struct device_d *)(STDIO+0xA800), /* 0x80 FPC port 1 slot 3 */ 

(struct devlce_d *)(STDIO+QxBOOQ) /* 0x90 FPC port 2 slot 3 III*/ 

}; 

int (*pi_fnctNPPDEVS])0; /* slots for interrupt handler addresses */ 

/* Set the interrupt handler for a given parallel port controller. 

*/ 


/* SHUTDOWN (see kb.c)*/ 

/* extreme priority */ 

/* return to the ROM monitor */ 


setppint(addr, fnc) 
struct device_d *addr; 
int (*fnc)(); 

{ 

register int i; 

extern int cvint()^ prointr(), Ipintr(); 


for (i-O; i<NPPDEVS; i++) 

if (pro_da[i3 “■ addr) { /* foimd dev number */ 

if (pi_fnc[i]) { /* in use */ 

if (pi_fnc[i] — fnc) /* same handler */ 
return 0; 

if (pi_fnc[i] prointr) 

printf("ALREADY assigned to profileXn"); 
else if (pi_fnc[i] = Ipintr) 

printf("ALREADY assigned to lp\n"); 
else if (pi_fnc[i] cvint) 

printf("ALREADY assigned to corvusXn"); 

else 

printf("Assigned to unknown handler at 0x%x\n",pi_fnc[i3); 

break; 

} 

pi_fnc[i] = fnc; 


/* Free the interrupt handler slot for a given controller. 
*/ 

freeppin(addr) 

struct device_d *addr; 

{ 


register int i; 


for (i-0; KNPPDEVS; i++) 

if (pro_da[i] == addr) { 
pi_fnc[i] =0; 
return; 

} 


/* 

* ppintr - handle interrupt from parallel port controllers 
*/ 

ppintr (ap) 
struct args *ap; 

{ 

register int i, j; 

register char a; 

register struct device_d *dp; 

int (* fnc)(), ebintr(), prointr(), cvint(), Ipintr(); 
extern char Ipflg[]; 

if({i = ap->a_dev) =- 0) { /* special case for pp 0 */ 

if(fnc - pi_fnc[i]) { 
fnc(i) ; 
return; 

} 

} 

j = i + 2; 
while (i < j) { 

dp » pro_da[i]; 
if ((a = dp->d_ifr) & FCAl) { 
asm(" nop ") ; 

dp->d_ifr -a; /* reset interrupt */ 

if (fnc - pi_fnc[i]) { 

if (fnc =“ Ipintr) 

Ipflg[i] - 0; 
else if (fnc 1- ebintr && 
fnc I- prointr && 
fnc I- cvint) ( 

printf{"pi_fnc[%d] - 0x%x invalid!!\n", 
i, fnc); 


return; 
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#ifdef INTDUMP 
#-endif INTDUMP 

} 

i++; 

} 

} 


fnc{i); 

return; 

} 

ppdump(i,dp); 
return; 


#ifdef INTDUMP 
ppdump(n, p) 

register struct device_d *p; 

{ 

printf("pport %d: ",n); 

printf (*'ifr=%x acr-%x pcr-%x ddra=%x ddrb-%x irb=%x\n", 

p->d_ifr40xFF, p->d_acr40xFF, p->d_pcr40xFF, p->d_ddra40xFF, 
p->d_ddrb40xFF, p~>d_irb4QxFF); 

} 

#endif INTDUMP 
/* 

* called from clock: if there's a panic in progress 

*/ 

clkstopO 


} 


VROFF « 1; 


/* disable vertical retrace intr */ 


nmikey() 

{ 

int i; 

register short status; 


/* added 7/25/84 to provide more info than "NMI key”. 

* (taken from section 2.8 of Lisa Theory of Operations) 
*i 

printf("non-maskable interrupt: "); 
status = STATUS; 
if (status 4 S_SMEMERR) 

printf("soft memory error\n"); 
else if (status 4 S_HMEiMERR) 

printf("hard memory errorXn"); 

else 


printf("power failure/keyboard resetXn"); 

4ifdef HOWFAR 


showbus(); 


tendif HOWFAR 


} 


for (i“OxCOOOOO; i>0; i—) ; /* delay */ 


iifdef SUNIX 
/* Get swap device name 
*/ 

getdevnam () 

{ 

char *p, *gets(); 
int unit, dev; 


retry: 

printf("\n\nWhere is the swap area?\n"); 

printf("Enter: 'p' for builtin disk or a profile disk\n"); 

printf(" 'c' for Corvus disk\n"); 

printf(" 'pm' for Priam disk\n"); 

p - gets 0; 

switch (ptO]) { 

case 'p': 

dev - PRO; 
if (p[l] -= 'm') 

dev » PM3; 

break; 
case 'c': 

dev - CV2; 
break; 


default; 


} 


printf("Invalid input. Try again.\n"); 
goto retry; 

} 

printf("Where will the disk be?\n"); 
if ((dev =* PRO) U (dev = CV2)) { 

printf("Enter: '0' for builtin portVn"); 

printf(" '1' for Expansion Slot 1, Bottom Port\n"); 

printf(" '2' for Expansion Slot 1, Top Port\n"); 

printf(" '4' for Expansion Slot 2, Bottom Port\n"); 

printf(" '5' for Expansion Slot 2, Top Port\n"); 

printf(" '7' for Expansion Slot 3, Bottom Port\n“); 

printf(" '8' for Expansion Slot 3, Top PortNn"); 

p - getsO; 

switch (p[0]) { 

case '0'; 

case '1': 

case '2'; 

case '4': 

case '5': 

case '7': 

case '8': 

unit = p[0] - '0'; 
break; 

default: 

printf("Invalid input. Try again.\n"); 
goto retry; 

} 

} else { /* dev " PH3 */ 

printf("Enter: '0' for Slot l\n"); 

printf(" '1' for Slot 2\n"); 

printf(" '2' for Slot 3\n"); 

p - getsO; 

switch (p[0]) { 

case '0' : 

case '1': 

case '2': 

unit = pIO] - '0'; 
break; 

default: 

printf("Invalid input. Try again.\n"); 
goto retry; 

) 

return makedev(dev, (unit«4) I 1 ); 


chkdev(d) 

{ 

return (*bdevsw [hanajor (d) ] .d_open) (minor (d), FREAD | FWRITE); 

} 


/* 

* This version of getchar reads directly from the keyboard in order to get 

* swapdev when the parallel port is not available. It will not work once 


* the console has been formally opened. 
*/ 

char kb_getchr; 
cogetchar() 

( 

SPLO(); 

while(kb_5tate) ; /* wait 

kb_getchr - 1; /* wait 

while (kb__getchr) ; /* wait 

return kb chrbuf; 


for kb driver to finish special cmd */ 
flag */ 

for it to happen */ 


/* Kernel get string routine. 

* Useful for getting Information from the console before the system 

* comes up. The getchar routine will not work once the console has 

* been opened. 

*/ 

int (*getchar)() - cogetchar; 
extern int (*putchar)(); 


char getsbuf[100]; 
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char * 
gets {) 

{ 

register char *p; 
register char c; 
extern short kb_ksycouTit; 

p “ getsbuf; 

while (c “ (*g6tchar)0) { 
switch (c) { 
case '\r': 
case '\n'; 

goto out; 
case '\b': 

if (p > getsbuf) { 
p—; 

} 

break; 
case 'g' : 

case 'X'&OxlF; /* line kill */ 

if (p > getsbuf) { 

p “ getsbuf; 

c - '\n'; /* echo a newline */ 

) 

break; 

default: 

*p++ = c; 

} 

(*putchar)(c); 

if (p >== getsbuf + sizeof (getsbuf)) { 

printfCXnInput line too long, try again ...\n**); 
p = getsbuf; 

} 


out: 

*p = '\0'; 

(*putchar)('W); 
return getsbuf; 

) 

#endif SUNIX 
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/* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlus Source Code. This program is proprietary 

* with Unisoft corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

* 

* Interrupt handler for level 2 interrupts. 

* keyboard, mouse, real time clock, on/off switch 
*/ 

^include ''sys/param.h" 

♦include "sys/types.h" 

♦include "sys/ramu.h" 

♦include "sys/reg.h” 

♦include “sys/local.h" 

♦include "sys/cops.h” 

♦include "sys/keyboard.h“ 

♦include “sys/mouse.h" 

♦include "sys/ms.h" 

♦include '*sys/12.h*' 

♦include "sys/kb.h" 

extern struct rtime rtime; 

char *kb_keytab - ToIA; 

char kb_altkp; /* are we in alternate keypad mode? {set in vtlOO.c) */ 

char pportplug; 
char ms_plg, ms_btn; 
short ms_row, ms_col; 

kbintr() 

{ 

register char i; 

register struct device_e *p * COPSADDR; 
register char a, ud; 
register int trap; 
extern time_t Ibolt; 

♦ifdef SUNIX 

extern char kb_getchr; /* flag for polling keyboard */ 

♦endif SUNIX 

a “ p->e_ifr; /* Read and save reason for interrupt */ 

if (as FCAl) { /* keyboard input */ 

i = p->e__ira; /* get keyboard/raouse input */ 

if (a & FTIMERl) 

a - COPSADDR->e_tlcl; /* prime timer */ 

} else { /* no character input */ 

a = COPSADDR->e_tlcl; /* prime timer */ 

if (—kb_reptrap — 0) 

kbrepeatO; /* possible char repeat */ 

return; 

} 

switch (kb_state) { 

case NORMALWAIT: /* IDLE LOOP */ 

ud * i i 0x80; /* whether up or down keycode */ 

12_dtrap - Ibolt + 12_dtime; /* reset dim delay */ 
if (12_dimmed) /* restore screen intensity */ 

12undim(); 

a ” kb_keytab{i & 0x7F];/* convert to ascii */ 
if (ud) { /* “key went down“ bit */ 

/* clickO; /* key click */ 

if (ARROW(i,a)) { /* check arrow keys */ 

kfa_chrbuf “ Esc; /* send 3-char sequence */ 

cointr(0); 

kb_Chrbuf = ' 

cointr(0); 

kb_chrbuf » a; 

cointr(0); 

goto out; 

} 

if {kb_altkp) { /* send special sequence for keypad chars */ 

if (a “ altkpad[i & 0x7Fj) {/* is it in the keypad? */ 


kb_chrbuf - Esc; /* send 3-char sequence */ 

cointr(0); 

kb_chrbuf =• 'O'; 

cointr(0); 

kb_chrbuf - a; 

cointr(0); 

goto out; 

} 

a = kb_keytab[i & 0x7F];/* reset to ascii */ 

} 

if (a >= 0) { /* ascii ? */ 

kb_keycount++; 
if (kb_ctrl) a OxlF; 
else if (kb_keycount 1) { 

kb_reptrap “ kb_repwait; 
kb_lastc - a; 

} else kb_reptrap = 0; 
kb_chrbuf “= a; 
cointr(0); 
goto out; 

} 

} else { /* key went up */ 

kb_reptrap - 0; 
if (a >= 0) { 

if (kb_keycount— < 0) { 
kb_keycount = 0; 

} 

goto out; 

} 

} 

switch (a & OxF) { 

case KB_CTRL: kb_ctrl = ud; kb_reptrap = 0; msintr(M_CTL); 

goto out; 

case KB_SHFT; kb_shft = ud; kbsetcvtab<); msintr(M_SFT); 

goto out; 

case KB_LOCK: kb_lock - ud; kbsetcvtab(); goto out; 

case KB_OFF: printf(“[SOFT OFF %x]\n“,i); goto out; 

case KB_MSP: msjplg == ud; msintr (M_PLUG); goto out; 

case KB_HSB: ms_btn = ud; msintr(H_BUT); goto out; 

case KB_PPORT: pportplug = ud; goto out; 

case KB_D2B; printf(”[disklbutton %xj\n“,i); goto out; 

case KB_D2P: printf("[diskl %x]\n",i); goto out; 

case KB_D1B: printf("[disk2button %x]\n“,i); goto out; 

case KB_D1P; printf(“[disk2 %x]\n",i); goto out; 

case KB_STATE: if (ud = 0) { 

kb_state - MOUSERD; 

) else 

kb_state = RESETCODE; 
goto out; 

default: printf{“invalid keyt0x%xl“,i); 

} 

goto out; 

case MOUSERD: /* PICKUP Y axis change in mouse pos */ 

kb_state - YWDUSE; 
ras_col - (short)i; 
goto out; 

case Y5«)USE; /* PICKUP Y axis change in mouse pos */ 

kb_state - NORHALWAIT; 
ms_row - (short)i; 
msintr(M_HOVE); 
goto out; 

case RESETCODE: /* special condition */ 

switch (i & OxFF) { 

case KB_KBCOPS: /* keyboard cops failure detected */ 
printf(“KEYBOARD COPS FAILURE\n“); 
break; 

case KB_IOCOPS: /* 10 board cops failure detected */ 
printf("10 BOARD COPS FAILURE\n"); 
break; 

case KB_UNPLUG; /* keyboard unplugged */ 

kb_chrbuf - 's'iOxlF; /* cntl S */ 
cointr(0); 
break; 

case K3_CL0CKT; /* clock timer interrupt */ 

printf(“Real Time Clock interrupt\n“); 
break; 
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case KB_SFTOFF: /* soft power switch */ 
kh^state - SHUTDOWN; 
printf("Shutting down...\n"); 
update(); 

for (tmp = 0; tmp < 500000; tmp++); 

12_crate - 2; 

12_desired “ TOTALDIM; /* completely blacken screen */ 
12ramp(0); 

12ramp(0); 

SPL7(); /* extreme priority */ 

12copscmd(SHUTOFF); 

romjmonO; /* return to the ROM monitor */ 

/*NOTREACHED*/ 

default: switch (i & OxFO) { 
case KB_RESERV: 

printf("[Reserved keycode 0x%x]\n",i); 
break; 
case KB_RDCLK: 

rtime. rt__year “(is OxF) + 10; 
kb_state = CLKREAD; 
goto out; 

default: 

kb_idcode - i; 

kb_chrbuf = 'q'&OxlF; /* cntl Q */ 
cointr(0); 

printf("Keyboard type 0x%x\n",i); 

} 

} 

kb_state - NORHALWAIT; 
goto out; 
case CLKREAD; 

rtime, rt_day - (((ifi0xF0)»4) *10 + (i&0xF))*10; 
kb_state++; 
goto out; 
case CLKREAD+1: 

rtime.rt_day += (iiOxFQ) » 4; 
rtinie.rt_hour = (i & OxF) * 10; 
kb_state++; 
goto out; 
case CLKREAD+2: 

rtime.rt_hour += (i & OxFO) » 4; 
rtime.rtjmin - (i 4 QxOF) * 10; 
kb_state++; 
goto out; 
case CLKREAD+3: 

rtime.rt_min += (i & OxFO) » 4; 
rtime.rt_sec = (i 4 OxOF) * 10; 
kb_state++; 
goto out; 
case CLKREAD+4; 

rtime.rt_sec += (i 4 OxFO) » 4; 
rtime.rt_tenth - i 4 OxOF; 
kb_state = NORHALWAIT; 
rtcsettod(); 
goto out; 
case SHUTDOWN: 

goto out; 

} 

out: 

#ifdef SUNIX 

if (lud) 

kb_getchr - 0; 

♦endif SUNIX 
} 

kbrepeat () 

{ 

kb_reptrap - kb_repdlay; /* reset repeat timeout */ 

if (kb_keycount =»= 1) { 

kb_chrbuf ■= kb_lastc; 

/* clickO; /* key click */ 
cointr(0); 

} else 

kb_reptrap - 0; /* reset repeat timeout */ 

) 


kbsetcvtab() 

{ 

kb_keytab =■ ccvtab [ (kb_shft22:0) + (kb_lock?l: 0) ] ; 
kb_reptrap * 0; 



s_slp. c 


Fri Sep 5 19:08:51 1986 


1 


/* e(#)sip.c 1.8 */ 
finclude "sys/param.h'* 

♦include "sys/config.h” 

♦include "sys/mmu.h" 

♦include "sys/types.h" 

♦include ''sys/sysmacros.h" 

♦include "sys/dir.h” 

♦include "sys/signal.h" 

♦include **sys/user .h" 

♦include "sys/proc.h" 

♦include "sys/context.h" 

♦include "sys/text.h" 

♦include "sys/systm.h" 

♦include "sys/sysinfo.h" 

♦include "sys/map.h" 

♦include "sys/file.h" 

♦include "sys/inode.h" 

♦include "sys/buf.h" 

♦include "sys/var.h" 

♦include "sys/ipc-h" 

♦include "sys/shm.h" 

♦include •‘sys/errno.h" 

♦include "sys/scat.h" 

typedef int meia_t; 

♦define NHSQUE 64 /* must be power of 2 */ 

♦define sqhash(X) (&hsque[((int> (X) » 3) & (NHSQUE-1)]) 

struct proc *hsque[NHSQUE]; 

char runin, runout, runrun, curpri; 

struct proc *curproc, *runq; 

/* 

* sleep according to a cpu adjusted priority 
*/ 

asleep[chan, pri) 
caddr_t chan; 

{ 

return(sleep[chan, pri + ([u.u_procp->p_cpu&OxFF) » 5))); 

} 

/* 

* Give up the processor till a wakeup occurs 

* on chan, at which time the process 

* enters the scheduling queue at priority pri. 

* The most important effect of pri is that when 

* pri<==PZERO a signal cannot disturb the sleep; 

* if pri>PZERO signals will be processed. 

* Callers of this routine must be prepared for 

* premature return, and check that the reason for 

* sleeping has gone away. 

*/ 

♦define TZERO 10 
sleep[chan, disp) 
caddr_t chan; 

[ 

register struct proc *rp - u.u_procp; 
register struct proc **q « sqhash[chan); 
register s; 

s = splhi(); 
if (panicstr) { 

SPLOO; 
splx(s); 
return(0); 

} 

rp->p_stat - SSLEEP; 
rp-->p_wchan - chan; 
rp->p_link - *q; 

*q - rp; 

if [rp->p_time > TZERO) 

rp->p_time - TZERO; 

if ((rp->p_pri “ [dispiPMASK)) > PZERO) { 
if (rp~>p_sig 4& issigO) { 
rp->p_wchan - 0; 

^P“>P_stat = SHUN; 


*q - rp->p_link; 

SPLOO ; 
goto psig; 

} 

SPLO () ; 

if [runin 1= 0) { 
runin =0; 

wakeup([caddr_t)irunin); 

} 

swtch[); 

if [rp“>p_sig && issigO) 
goto psig; 

{ 

SPLO () ; 
swtch(); 


splx(s); 
return[0); 


* If priority was low [>PZERO) and there has been a signal, 

* if PCATCH is set, return 1, else 

* execute non-local goto to the qsav location. 


splx[s); 

if (dispiPCATCH) 

return[1); 

♦ifdef NONSCATLQAD 

resume[u.u_procp->p_addr, u.u_qsav); 

♦else 

resume (ixtoc (u.u_j 5 rocp->p_scat), u.u_qsav); 

♦endif 

/* NOTREACHED */ 


* Wake up all processes sleeping on chan. 

*/ 

wakeup(chan) 
register caddr_t chan; 

{ 

register struct proc *p; 
register struct proc **q; 
register s; 

s = splhi[); 

for [q - sqhash[chan); p *= *q; ) 

if [p->p_wchan”Chan && p->p_stat~SSLEEP) { 
p->p_stat - SRUN; 
p->p_wchan = 0; 

/* take off sleep queue, put on run queue */ 

*q - p->p_link; 
p->p_link - runq; 
runq = p; 

if (!(p->p_flag4SLOAD)) { 
p->p_tirae - 0; 

/* defer setrun to avoid breaking link chain */ 
if (runout > 0) 

runout - -runout; 

} else if [p->p__pri < curpri) 
runrun++; 

} else 

q = &p->p_link; 
if [runout < 0) { 

runout ** 0; 
setrun[&proc[0]); 


setrq(p) 

register struct proc *p; 


register struct proc *q; 
register s; 
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s “ splhiO; 

for(q-r\inq; qI=NULL; q“q->p_link) 
if (q =■ p) { 

printfC'proc on qNn") ; 
goto out: 

} 

p->P_link runq; 
runq = p; 

out; 

splx(s); 


/* 

* Set the process running; 

* arrange for it to be swapped in if necessary. 

*/ 

setrm (p) 

register struct proc *p; 

{ 

register struct proc **q; 
register s; 

s - splhi(); 

if (p“>p_stat = SSLEEP) { 

/* take off sleep queue */ 

for (q = sqhash(p->p_wchan); *q != p; q *= & (*q)->p_link) ; 
*q “ p->p_link; 
p->p_wchan =0; 

} else if (p->p_stat =- SRUN) { 

/* already on run queue - just return */ 

splx(s); 

return; 

1 

/* put on run queue */ 
p->p_stat - SRUN; 
p->p_link = runq; 
runq = p; 

if (!(p->p_flag&SLOAD)) { 
p->p_tiine =0; 
if (runout >0) { 

runout >= 0; 
set run (fiproc [ Q ]) ; 

} 

) else if (p->p_j)ri < curpri) 
runrun++; 

splx(s); 

} 

/* 

* The main loop of the scheduling (swapping) process. 

* The basic idea is: 

* see if anyone wants to be swapped in; 

* swap out processes until there is room; 

* swap him in; 

* repeat. 

* The runout flag is set whenever someone is swapped out. 

* Sched sleeps on it awaiting work. 

* 

* Sched sleeps on runin whenever it cannot find enough 

* memory (by swapping out or otherwise) to fit the 

* selected swapped process. It is awakened when the 

* memory situation changes and in any case once per second. 

*/ 

sched() 

{ 

register struct proc *rp, *p; 
register outage, inage; 
int maxbad; 
int tmp; 

/* 

* find user to swap in; 

* of users ready, select one out longest 
*l 


loop: 


SPL6(); 

outage = -20000; 

♦ifdef NONSCATLOAD 

for (rp - 4proc[0]; rp < (struct proc *)v.ve_j3roc; rp++) 
if (rp->p_stat—SRUN && (rp->p_flag4SLOAD) 0 && 
rp->p_time > outage) { 
p = rp; 

outage = rp->p_time; 

} 

felse 

for (rp = 4proc(0]; rp < (struct proc *)v.ve_proc; rp++) 
if ( (rp->p_*flag&(SSWAi»IT|SLOAD)) •== (SSWAPITISLOAD) ) { 
p = rp; 

SPLOO; 
goto swapit; 

} else if (rp->p_stat“SRUN && (rp->p_flag4SLOAD) =« 0 44 
rp->p_time > outage) { 
p = rp; 

outage = rp->p_time; 

} 

♦endif 

/* 

* If there is no one there, wait. 

*/ 

if (outage =*• -20000) { 
runout++; 

(void) sleep((caddr_t) 4runout, PS5SP); 
goto loop; 

} 

SPLO(); 

/* 

* See if there is memory for that process; 

* if so, swap it in. 

*/ 

if (swapin(p)) 

goto loop; 

/* 

* none found. 

* look aroimd for memory. 

* Select the largest of those sleeping 

* at bad priority; if none, select the oldest. 

*/ 


SPL6() ; 
p « NULL; 
maxbad - 0; 
inage =0; 

for (rp * 4procE0]; rp < (struct proc *)v.ve_j>roc; rp++) { 
if (rp->p_stat==SZOMB |) 

(rp->p_flag4(SSYS|SLOCKiSLOAD))I-SLOAD) 
continue; 

if (rp->p_textp 44 rp->p_textp->x_flag4XLOCK) 
continue; 

if (rp->p_stat—SSLEEP I I rp->p_stat—SSTOP) { 
tmp = rp->p_j)ri - PZERO + rp->p_time; 
if (maxbad < tmp) { 

P - rp; 
ma.xbad - tmp; 

} 

} else if (maxbad<=0 44 rp->p_stat“=SRUN) { 

tmp ” rp->p_time + rp->p_nice - NZERO; 
if (trap > inage) { 

P - rp; 
inage “ tmp; 


* Swap found user out if sleeping at bad pri, 

* or if he has spent at least 2 seconds in memory and 

* the swapped-out process has spent at least 2 seconds out. 
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* Otherwise wait a bit and try again. 

*! 

if (maxbad>0 || (outage>-=2 £& inage>*2)) { 
tifndef NONSCATLOAD 
swapit: 

fendif 

p->p_flag &= "SLOAD; 
xswapCp, 1, 0); 
goto loop; 

} 

SPL6(); 
runin++; 

(void) sleep((caddr_t) ftrunin, PSSfP); 
goto loop; 

} 

/* 

* Swap a process in. 

*/ 

*ifdef NONSCATLOAD 
swapin(p) 

register struct proc *p; 

{ 

register struct text *xp; 
register int a, x; 
int ta; 


=* malloc (coremap, p->p_size)) = NULL) 
return(0); 

“ p->p_textp) { 
xlock(xp); 

if (ixnilink(xp) && xp->x_ccount”'0) { 

if ((x = malloc(coremap, xp->x_size)) •“ NULL) 
mfree(coremap, p->p_size, a); 
if ((x - malloc(coremap, xp->x_size)) 
xunlock(xp); 
return(0); 

} 

if ( (a = malloc(coremap, p->p_size)) = 
mfree(CQremap, xp’->x_si2e, x); 
xunlock(xp) ; 
return(0); 


xp->x_caddr “ x; 

if ((xp->x_flagtXLOAD)==0) 

swap(xp“>x_daddr, x, xp->x_size, B_READ); 

} 

xp->x_ccount++; 
xunlock(xp); 

} 

if (p“>p_xaddr[0]) { 
ta - a; 

for (X“0; X < NSCATSWAP; x++) { 
if (p->p_xaddr[x] — 0) 
continue; 

swap(p->p_xaddr[x], a, p->p_xsize[x], B_READ); 

mfree(swapraap, ctod(p->p_xsize[x]), (int)p->p_xaddr[x]); 

a +=> p->p_xsi 2 elx] ; 

p->p_xaddr[x] - 0; 


swap((daddr_t)p->p_dkaddr, a, p->p_size, B_READ); 
mfree(swapraap, ctod(p->p_size), (int)p->p_dkaddr); 
p->p_addr ” a; 

} 

cxrelse(p->p_context); 
p->p_flag !- SLOAD; 
p->p_time “ 0; 
return(1); 


ter struct proc *p; 


register struct text *xp; 
register int a, x; 
int ta; 

if (p->p_flag4SCONTIG) { 

if ((a - cmemalloc{p“>p_size)) =« NULL) 
return(0); 

} else if ((a - memalloc(p->p_size)) “ NULL) 
return(0); 

if (xp “ p->p_textp) { 
xlock(xp); 

if (!xmlink(xp) SS xp“>x_ccount—0) { 

if ((X = raemalloc(xp->x_si 2 e)) -- NULL) { 
memfree(a); 
xunlock(xp); 
return(0); 

) 

xp->x_scat “ x; 

if ((xp“>x_flag4XLOAD)=0) 

(void) swap(xp“>x_daddr, x, xp->x_size, B_READ); 

1 

xp->x_ccount++; 
xunlock(xp); 

} 

p->p_flag I” SNOMMU; /* swapping in, do not set ramu registers */ 
if (p''>p_xaddr [0]) { 
ta = a; 

for (X“0; X < NSCATSWAP; X++) { 

if (p“>p_xaddr[x] 0) 

continue; 

a - swap(p-->p_xaddr [x], a, p->p_xsize [x], B_READ); 
mfree(swapmap, ctod(p->p_xsize[x]), (int)p->p_xaddr[x]); 
p->p_xa ddr [ X 3 •= 0 ; 

} 

p->p_scat ”■ ta; 

} else { 

(void) swap{(daddr_t)p->p_dkaddr, a, p->p_si 2 e, B_READ); 
mfree(swapmap, ctod(p->p_si 2 e), (int)p->p_dkaddr); 
p->p_scat = a; 

} 

p->p_flag 4-SNOMMU; 

p->p_addr = ixtoc(p->p_scat); 
cxrelse(p->p_context); 
p->p_flag I- SLOAD; 
p->p_time =0; 
return(1); 

} 

Oendif 

/* 

* put the current process on 

* the Q of running processes and 

* call the scheduler. 

*/ 

qswtch() 

{ 

setrq(u.u_procp); 
swtch{); 


/* 

* This routine is called to reschedule the CPU. 

* if the calling process is not in RUN state, 

* arrangements for it to restart must have 

* been made elsewhere, usually by calling via sleep, 

* There is a race here. A process may become 

* ready after it has been examined. 

* In this case, idle() will be called and 

* will return in at most IHZ time. 

* i.e. its not worth putting an spl() in. 

*/ 

swtch() 

{ 

register n; 

register struct proc *p, *q, *pp, *pq; 

♦ifdef rac68881 /* MC68881 floating-point coprocessor */ 
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extern short fp881; 
mc68881 


/* is there an MC68881? */ 


* If not the idle process, resume the idle process, 
*/ 

sysinfo.pswitch++; 
if (u.u_procp !- iproctO]) { 
if (save(u.u_rsav)) { 
sureg(); 
return; 

} 

FLOAT /* sky floating point board */ 

if (u.u_fpinuse && u.u_fpsaved“=Q) { 
savfp(); 

u.u_fpsaved = 1; 


/* MC68881 floating-point coprocessor */ 
if (fp881} 

fpsave(); 


mc68881 

NONSCATLOAD 


resume(proc[0].p_addr, u.u_qsav); 


resume(ixtoc(proc[0].p_scat), u.u_qsav); 


* The first save returns nonzero when proc 0 is resumed 

* by another process (above); then the second is not done 

* and the process-search loop is entered. 

* 

* The first save returns 0 when swtch is called in proc 0 

* from sched(). The second save returns 0 immediately, so 

* in this case too the process-search loop is entered. 

* Thus when proc 0 is awakened by being made runnable, it will 

* find itself and resume itself at rsav, and return to sched{). 
*/ 

if (save(u.u_qsav) “ 0 save(u.u_rsav)) 
return; 

SPL6() ; 
runrun =0; 

I* 

* Search for highest-priority runnable process 
*/ 

if (p = rung) ( 

q = NULL; 
pp = NULL; 
n = 128; 
do { 

if ((p->p_flag&SLOAD) && p->p_pri <= n) { 

PP - p; 

pq - q; 

n ” p->p_j)ri; 

} 

q “ p; 

} while (p - p->p_link); 


If no process is runnable, idle. 


if (pp “ NULL) { 

curpri =>= PIDLE; 
curproc -= 4proc[0]; 
idleO ; 
goto loop; 

} 

P - pp; 

q - pq; 

if (q — NULL) 

rung = p->p_link; 

q->p_link = p->p_link; 


else 


curpri = n; 
curproc “ p; 

SPLO(); 

/* 

* The rsav (ssav) contents are interpreted in the new address space 

* / 

n - p->p_flag&SSWAP; 
p->p_flag i- -SSSfAP; 

#ifdef NONSCATLOAD 

resume(p->p_addr, n? u.u_ssav: u.u_rsav); 

#else 

resume(ixtoc(p->p_scat), n? u,u_ssav: u,u_rsav); 

iendif 

} 

int mpid; /* external for sxinix so it can be reinitialized */ 

/* 

* Create a new process— the internal version of 

* sys fork. 

* It returns 1 in the new process, 0 in the old. 

*/ 

newproc(i) 

( 

register struct proc *rpp, *rip; 
register struct user *up; 
register n; 
register a; 
struct proc *pend; 

/* static mpid; */ 

/* 

* First, just locate a slot for a process 

* and copy the useful info from this process into it. 

* The panic "cannot happen" because fork has already 

* checked for the existence of a slot. 

*/ 

up = iu; 
rpp = NULL; 

retry: 

mpid++; 

if (mpid >= MAXPID) { 
mpid - 0; 
goto retry; 

} 

rip “ fiproctO]; 

n * (struct proc *)v.ve_j>roc - rip; 
a = 0; 
do { 

if (rip->p_stat =“ NULL) { 
if (rpp -- NULL) 

rpp - rip; 
continue; 

} 

if (rip->p_pid’=-mpid) 
goto retry; 

if (rip->p_uid up->u_ruid) 
a++; 

pend — rip; 

} while(rip++, —n); 
if (rpp»=NULL) { 

if ((struct proc *)v.ve_proc >=- 4proc[ (short)v.v__proc]) { 

if (i) { 

syserr.procovf++; 
up->u_error - EAGAIN; 
return(-1); 

} else 

panicl"no procs"); 
rpp = (struct proc *)Y.ve_proc; 

} 

if (rpp > pend) 

pend - rpp; 

pend++; 

#ifcef lint 

v.ve_proc - pend; 


♦else 
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v.ve_proc * (char *)pend; 

tendif 

if (up->u_uid && up->u_ruid) { 

if (rpp —= sproc[ (short) (v.v_j)roc-l) ] 11 a > v.v_maxup) { 
up->u_error =“ EAGA.IN; 
return{“!); 

} 

} 

/* 

* make proc entry for new proc 
*/ 

rip =• up-'>ujprocp; 

rpp->p_stat “ SRUN; 

rpp->p_clktim = 0; 

rpp->p_flag = SLOAD; 

rpp->p_uid = rip->p_uid; 

rpp“>p_suid ” rip->p_suid; 

rpp->p_pgrp “ rip->p_pgrp; 

rpp->p_nice = rip“>p_nice; 

rpp->p_textp “ rip->p_textp; 

rpp->p_pid ” rapid; 

rpp->p__j)pid = rip'->p_pid; 

rpp->p_tirae - 0; 

rpp->p_cpu - rip->p_cpu; 

rpp->p_sigign = rip->p_sigign; 

rpp->p_pri = PUSER t rip->p_nice - NZERO; 

*ifndef NONSCATLOAD 

rpp->p_scat = rip->p_scat; 

#endif 

rpp->p_addr = rip->p_addr; 
rpp->p_size = rip->p_size; 

/* 

* make duplicate entries 

* where needed 
*/ 

for(n-0; n<NOFILE; n++> 

if (up->u_ofile[nJ 1= NULL) 

up->u_oflie[n]->f_count++; 
if (rpp->p_textp 1= NULL) { 

rpp->p_textp->x_count++; 
rpp->p_textp->x_ccount++; 

} 

up-->u_cdir->i_count++; 
if (up->u_rdir) 

up->u_rdir->i_count++; 

shmfork(rpp, rip); 

/* 

* Partially simulate the environment 

* of the new process so that when it is actually 

* created (by copying) it will look right. 

*l 

up->u_j)rocp * rpp; 
curproc = rpp; 

/* 

* When the resume is executed for the new process, 

* here's where it will resume. 

*/ 

if (save(up->u_ssav)) { 
sureg(); 
return(1); 

} 

/* 

* If there is not enough memory for the 

* new process, swap out the current process to generate the 

* copy. 

*/ 

if (procdup(rpp) — NULL) { 
rip->p_stat - SIDL; 
xswap(rpp, 0, 0); 
rip->p_stat - SRUN; 

} 


/* only do if not scheduler */ 


^P“>u_pi'ocp “ ^iP'" 
curproc = rip; 
if (rip != «proc[0]) 
sureg(); 
setrq(rpp); 

i“ SSWAP; 

up->u_rvall = rpp->p_j)id; /* parent returns pid of child */ 

return(0); 


/* 

* Change the size of the data+stack regions of the process. 

* If the size is shrinking, it's easy— just release the extra core. 

* If it's growing, and there is core, just allocate it 

* and copy the image, taking care to reset registers to account 

* for the fact that the system's stack has moved. 

* If there is no memory, arrange for the process to be swapped 

* out after adjusting the size requirement— when it comes 

* in, enough memory will be allocated. 

* 

* After the expansion, the caller will take care of copying 

* the user's stack towards or away from the data area. 

*/ 

#ifdef NONSCATLOAD 
expand(newsize) 
register newsize; 

{ 

register struct proc *p; 
register al, a2; 
register i, n; 


p = u.u_j>rocp; 
n = p->p_size; 
p->p_size * newsize; 
if (n ““ newsize) 
return; 
al = p->p_addr; 
if (n >= newsize) { 

EXPANDTRACE 

printf(“expand:shrinking process by %d clicks\n“, n-newsize) 

mfree(coremap, (mem_t)(n-newsize), (mem_t)(al+newsize)); 
return; 

} 

if (save(u.u_ssav)) { 
sureg(); 
return; 

} 

/ * 

* See if can just expand in place 
*/ 

a2 = mallocat(coreraap, newsize-n, (mem_t)(al+n)); 
if (a2 >= NULL) { 

EXPANDTRACE 

printf("expanding in place by %d clicks at click %d\n", 
newsize-n, al+n); 

cxrelse(p->p_context); 

sureg(); 

return; 


* will we be releasing shared text space anyway. 

* If so, then release it now and try in place 

* expansion again. 

*/ 

if ((a2 ■= domall (coremap, (mera_t)newsize)) NULL) 
if (xmrelseO) 

goto loop; 

if (a2 “ NULL £& (a2 » malloc(coremap, {raem_t)newsize)) =“ NULL) { 
EXPANDTRACE 

printf(“expand:calling xswap\n"); 


xswap(p, 1, n); 
p“>P_flag 1“ SSWAP; 
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qswtch(); 

/* no return *l 

} 

P’->p_addr - a2; 
for(i=0; i<n; i++) 

copyseg(al+i, a2+i): 
fifdef expandtrace" * 

printf("expand:copyseg %d from Qx%x to 0x%x\n", n, al, a2); 

♦endif 

rafree(coremap, (mem_t)n, (mem_t)al); 
cxrelse(p~>p_context); 
resume ((mera t)a2, u.u_ssav); 

} 

#else 

expand(newsize) 
register newsize; 

{ 

register struct scatter *s; 
register struct proc *p; 
register al, a2; 
register i, n; 
int t; 

p = u.u_j)rocp; 
n »= p->p_size; 
p->p_size = newsize; 
if (n “= newsize) 
return; 
s ” scatmap; 
al = p->p_scat; 
if (n >= newsize) { 

/* 

* shrink memory 
*f 

for (i-1; i<newsize; i++) 

al - s[al].sc_index; 
t - scatfreelist.sc_index; 
scatfreelist.sc_index ■= s[al] .sc_index; 
i - al; 

while ((a2 = s[al].sc_index) '= SCATEND) 
al = a2; 

s[i].sc_index = SCATEND; 
s[al].sc_index - t; 
nscatfree += n-newsize; 

/* 

* Wake scheduler when freeing memory 
*/ 

if (runin) { 

runin - 0; 

wakeup((caddr_t)&runin); 

} 

return; 

} 

if (save(u.u_ssav)) { 
sureg(); 
return; 

} 

/* 

* expand memory 
*/ 

if (a2 =» memalloc(newsize-n)) { 

/* printf("expanding from %d clicks to %d clicks\n", 
n, newsize); */ 
for (i-1; i<n; i++) 

al - s[al].sc_index; 
if {s[al].sc_index i- SCATEND) 

printf("expand;SCATEND expected\n"); 
s{al].sc_index - a2; 
return; 

} 

xswap(p, 1, n); 
p->p_flag t- SSWAP; 
qswtch(); 

/* no return */ 


#endif 


#ifndef NONSCATLOAD 
checkscat(s) 
char *s; 

{ 

register struct proc *p: 
register struct text *xp; 
register i; 


i = countscat(scatfreelist.sc_index); 

printf ("%s nscatfree-%d actual=-%d\n", s, nscatfree, i) ; 
if (nscatfree < 30) { 

printf(" freelist chain is "); 
dumpscat(scatfreelist-sc_index); 


for (p = &proc[0]; p < (struct proc *)v,ve_proc; p++) { 
if (p->p_stat“0) 
continue; 
xp - p->p_textp; 

printf(" pid-%d %d used (%d text)\n", 
p->p_j>id, countscat (p->p_scat), 
xp 2 countscat(xp->x_scat) ; 0); 
dumpscat(p->p_scat); 
if (xp) { 

dumpscat(xp->x_scat) ; 


dumpscat(al) 
register al; 

{ 

register struct scatter *s; 


s - scatmap; 

printf(" "); 

while (al 1= SCATEND) { 

printf(" %d,%x", al, ixtoc(al)); 
al - s[al].sc_index; 

} 

printf ("\n*') ; 

) 


countscat(al) 
register al; 

( 

register struct scatter *s; 
register i; 


i - 0; 

s - scatmap; 

while (al 1= SCATEND) { 

al = s[al].sc_index; 
i++; 

} 

return(i); 

} 

♦endif 
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♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"sys/param.h" 

"sys/config.h" 

■sys/types.h" 

"sys/systm.h" 

"sys/dir.h" 

"sys/signal.h" 

■sys/user.h" 

"sys/errno.h" 

"sys/file.h" 

"sys/tty.h" 

"sys/termio.h" 
"sys/conf.h" 
"sys/sysinfo.h" 
"sys/var.h" 
•sys/reg.h" 
<sys/scc.h> 
"sys/proc.h" 
”setjmp.h" 


int scproc(); 

extern int sc_cnt; 

extern struct tty sc_tty[]; 

extern struct ttyptr sc_ttptr[]; 

extern char sejraodem [ ] ,* 

extern struct scline sc line[]; 


♦define MODEM 0x80 
♦define scdev(d) 


/* modem control on bit */ 

/* from Unix device number to device */ 


♦define DELAY () asm(*'\tnop*‘) ; 


♦define SCTIME (v.v hz*5) 


/* scscan interval */ 


* Note; to select baud rate 

* k - chip__input_frequency/(2 * baud * factor) - 2 

* put factor in register 9 and k in registers D 4 C 

* NOTE; 

* normally, factor =16 

* for this driver, chip_input_frequency = 2400000 Hz 

* sespeeds is a table of these numbers by UNIX baud rate 
*/ 

int sespeeds[] - { 

If 50, 75, 110, 134, 150, 200, 300, 

600, 1200, 1800, 2400, 4800, 9600, 19200, 38400, 


* table to initialize a port to 9600 baud 


char scitable[] = { 
WONULL, 

9, 0, 

♦define SCCIRESET 


/* set according to sc_line reset value */ 
scitable[2] 


4, W4CLK16 I W41STOP, 

10 , 0 , 


11, WllRBR I WllTBR, 

12 , 0 , 

♦define SCCISPLO scit 

13, 0, 

♦define SCCISPHI scit 


/* 12/13 are baud rate, from sc_line speed value */ 
scitabie[10] 


SCCISPHI scitabletl2} 

14, lfl4BRGE : W14BRINT, 

3, W38BIT I W3RXENABLE, 

5, W58BIT I W5TXENABLE, 

1, WIRXIALL I WITXIEN /*| WlEXTIEN*/, 

2, 0, /* auto vector */ 

0, WORXINT, 

15, 0, 

9, W9MIE I W9DLC, 


}; 

/* 

* we call this in startup() to preinitialize all the ports 
*/ 

scinit{) 

{ 

register struct device *addr; 
unsigned short nsc; 

for(nsc=0;nsc<500;nsc++); 

for (nsc “■ 0; nsc < sc_cnt; nsc++) { 

addr = (struct device *)sc_ttptr [nsc] .tt__addr; 

/* do proper reset */ 

scinil(addr, W9NVIsc_line[nsc].reset, (int)sc_line[nsc].speed); 

} 

printf(*'%d serial portsXn”, nsc) ; 

/* scscanO; /* start modem scanning */ 

) 

scinil(addr, reset, speed) 
struct device *addr; 
int reset, speed; 

{ 

register int i; 
int s; 

s = spl6(); 

SCCIRESET *= reset; 

speed “ (speed/(9600«1)) - 2; 

SCCISPHI - (speed » 8) & OxFF; 

SCCISPLO = speed 4 OxFF; 

for (i = 0; i < sizeof(scitable); i++) { 

DELAY(); 

addr->csr = scitable[i]; 

} 

DELAY 0; 
splx(s); 

} 

/* ARGSUSED */ 
scopen(dev, flag) 
register dev; 

{ 

register struct tty *tp; 
register struct device *addr; 
register d; 

♦ifdef SINGLEUSER 

register struct proc *p; 

♦endif SINGLEUSER 

d = scdev(dev); 
if (d >= sc_cnt) { 

u.u_error = ENXIO; 
return; 

} 

tp - sc_ttptr[d].tt_tty; 

♦ifdef SINGLEUSER 

p - u.u_procp; 

if ((p->p_pid ““ p->p_pgrp) 

44 (u.u_ttyp “ NULL) 

44 <tp->t_j>grp — 0)) { 

u.u_error - ENOTTY; 
return; 

♦endif SINGLEUSER 

tp->t_index = d; 

SPL6(); 

if ((tp->t_state&{ISOPEN IWOPSN)) == 0) ! 

tp->t_proc - scproc; 
ttinit(tp); 

sc_modem[d] *• dev 4 MODEM; 

addr - (struct device *)sc_ttptr[d].tt_addr; 
if (dev 4 MODEM 44 (addr->C9r 4 RODCD) — 0) 
tp->t_state - WOPEN; 


else 
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tp-“>t_state - WOPEN I CARR_ON; 

#ifdef SCC_CONSOLE 

if (d — CONSOLE) { 

tp->t_iflag - ICRNL I ISTRIP; 
tp->t_oflag = OPOST 1 ONLCR | TAB3; 
tp->t_lflag - ISIG ! ICANON ! ECHO } ECHOK; 
tp->t_cflag = sspeed j CSS | CREAD I HUPCL; 

} 

#endif SCC_CONSOLE 

scparani(dev) ; 

) 

if (Mflag & FNDELAY)) 

while ((tp->t_state4CARR_ON) 0) 

(void) sleep ((caddr_t) stp->>t_rawq, TTOPRI) ; 

SPLOO; 

(*linesw[tp->t_line3.l_open)(tp); 

} 

/* ARGSUSED */ 
scclose(dev, flag) 

{ 

register struct tty *tp; 

register int d; 

d » scdev(dev); 

tp “ sc_ttptr[d].tt_tty; 

(*liiiesw[tp->t_iine] .Inclose) (tp) ; 

if (tp~>t_cflag & HUPCL) 

schup(dev); /* hang up */ 


scread(dev) 

{ 

register struct tty *tp; 

tp sc_ttptr [scdev(dev) ] .tt_ttY; 
(*linesw[tp->t_line].l_read)(tp); 

) 

scwrite(dev) 

{ 

register struct tty *tp; 

tp= sc_ttptr[scdev(dev)].tt_tty; 
(*linesw[tp->t_line].l_write)(tp); 

} 

scproc(tp, and) 
register struct tty *tp; 

{ 

register struct ccbloclc *tbuf; 
register struct device *addr; 
register dev_t dev; 
extern ttrstrt(); 
int s; 

s - spl6 0; 

dev - tp->t_index; 

addr =■ (struct device *) sc_ttptr [dev]. tt_addr; 
switch (and) { 

case T_TIME: 

scw5(tp, addr, 0); /* clear break */ 

tp->t_state 4-= ~TIMEOUT; 
goto start; 

case T_WFLUSH: 

tbuf - &tp->t_tbuf; 
tbuf->c_9ize — tbuf->c_countf 
tbuf->c_count - 0; 

/* fall through */ 
case T_RESUME: 

tp->t_state t- -TTSTOP; 
goto start; 


case T OUTPUT: 


Start: 


if (tp->t_State & (TTSTOPI TIMEOUT I BUSY)) 
break; 

if (tp->t_state & TTXOFF) { 

tp->t_state S- -TTXOFF; 
tp->t_state != BUSY; 
addr“>data - CSTOP; 
break; 

if (tp->t_state & TTXON) { 

tp->t_state 4“ -TTXON; 
tp->t_state 1= BUSY; 
addr->data = CSTART; 
break; 

} 

tbuf =*= 4tp->t__tbuf; 

if ((tbuf->c_j)tr "0) li {tbuf->c_count ==0)) { 
if (tbuf->c_j>tr) 

tbuf->c_ptr -= tbuf->c_si 2 e; 
if (MCPRES 4 (*linesw[tp->t_line] .l_output) (tp))) 


tp->t_state 1= BUSY; 
addr->data -= *tbuf->c_j>tr++; 
tbuf->c_count—; 
break; 

case T_SUSPEND: 

tp->t_state != TTSTOP; 
break; 

case T_BLOCK: 

tp->t_state 4“ -TTXON; 
tp->t_state 1= TBLOCK; 
tp->t_state 1= TTXOFF; 
goto start; 

case T_RFLUSH: 

if ( I (tp->t_state4TBLOCK)) 
break; 

/* fall through */ 
case T_UNBLOCK: 

tp“>t_State 4= -(TTXOFFITBLOCK); 
tp->t_state 1= TTXON; 
goto start; 

case T_BREAK: 

scw5(tp, addr, W5BREAK); 
tp->t_state I- TIMEOUT; 

timeout (ttrstrt, (caddr_t)tp, v.v_hz»2); 
break; 

} 

splx(s); 

} 

scw5(tp, addr, d) 
struct tty *tp; 
struct device *addr; 
int d; 

{ 

register int w5; 
int s; 

w5 “ W5TXENABLE | d; 
switch(tp->t_cflag 4 CSIZE) { 
case CSS; 

w5 I- W55BIT; break; 
case CS6: 

w5 j* W56BIT; break; 
case CS7: 

w5 I- W57BIT; break; 
case CSS: 

w5 I- W58BIT; break; 

) 

s - spl5(); 




scc.c 


Fri Sep 5 19:08:45 1986 


3 


addr->csr - 5; 
addr“>csr = w5; 
splx(s); 


scioctl 

{ 

} 


(dev, crad, arg, aods) 

if (ttiocom(sc_ttptr[scdev(dev)].tt_tty, cmd, arg, mode)) 
scparain(dev); 


scparam(dev) 

{ 

register flag; 
register struct tty *tp; 
register struct device *addr; 
int s; 

register int w4, w5, speed; 


tp ■= sc_ttptr [scdev(dev) ] .tt_tty; 
flag ” tp~>t_cflag; 

if (((flag&CBAUD) *=» BO) && (dev&MODEM)) { /* hang up line */ 
schup(dev); 
return; 

} 

addr -= (struct device *) sc__ttptr [scdev(dev) ] .tt_addr; 
w4 = W4CLK16; 
if (flag & CSTOPB) 

w4 [= W42STOP; 

else 

w4 I- W41STOP; 
w5 “ W5TXEKABLE; 
switch(flag & CSIZE) { 
case CSS: 

w5 I- W55BIT; break; 
case CSS: 

w5 1= W56BIT; break; 
case CS7: 

w5 I- W57BIT; break; 
case CSS: 

w5 [- W58BIT; break; 

} 

if (flag & PARENB) 

if (flag £ PARODD) 

w4 1= W4PARENABLE; 

else 

w4 I” W4PARENABLE ! W4PAREVEN; 
speed - sc_line[scdev(dev)].speed; 
speed = (speed/(scspeeds [flag£CBAUDJ «1)) - 2; 
s - spl6() ; 
addr->csr - 4; 

DELAY 0 ; 
addr~>csr = w4; 

DELAY(); 
addr->csr - 12; 

DELAY(); 

addr->csr = speed; 

DELAY(); 
addr->csr = 13; 

DELAY(); 

addr->csr = speed » 8; 

DELAY(); 
addr->csr - 5; 

DELAY(); 
addr->csr - w5; 
splx(s); 


schup(dev) 

{ 

register struct device *addr; 
int s; 

dev - scdev(dev); 

addr - (struct device *)scttptr[dev].ttaddr; 
s - spl6 () ; 


/* turn off DTR/RTS */ 


addr->csr = 5; 

DELAY(); 

addr->csr “ WSTXENABLE | W58BIT; 
splx(s); 

} 

scintr(ap) 

register struct args *ap; 

{ 

register struct device *addr; 

for (ap->a_dev - 0; ap->a_dev < sc_cnt; ap->a_dev++) { 

addr = (struct device *)sc_ttptr[ap->a_dev].tt_addr; 
while (addr->csr fi RORXRDY) { 
addr->csr =• 1; 

DELAY(); 

if (addr->csr £ (R1PARERR|R10VRERR|R1FRMERR)) 
scsintr(ap); 

else 

scrintr(ap); 

} 

if (addr->csr £ ROTXRDY) 
scxintr(ap); 

} 

} 

scrintr(ap) 

register struct args *ap; 

{ 

register struct device *addr; 
register struct ccblock *cfap; 
register int c, lent, fig; 
struct tty *tp; 
register char ctmp; 
char lbuf[3]; 


addr = (struct device *)sc_ttptr[ap->a_dev].tt_addr; 
addr->csr = WORXINT; /* reinable receiver interrupt */ 
addr->csr = WORIUS; /* reset interrupt */ 

c = addr->data £ OxFF; 
sysinfo,rcvint++; 
tp = sc_ttptr [ap->a__dev] .tt_tty; 
if (tp->t_rbuf.c_ptr = NULL) 
return; 

if (tp->t_iflag £ IXON) { 
ctmp - c £ 0177; 
if (tp->t_state £ TTSTOP) { 

if (ctmp ““ CSTART I I tp->t_iflag £ IXANY) 
(*tp->t_proc)(tp, T_RESUME); 

] else { 

if (ctmp CSTOP) 

(* tp->t_j)roc) (tp, T_SUSPEND) ; 

} 

if (ctmp “ CSTART I 1 ctmp — CSTOP) 
return; 

} 

lent = 1; 

fig - tp->t_iflag; 
if (flg£ISTRIP) 

c fi- 0177; 

else { 

/* c £- 0377; not needed */ 
if (c ox- 0377 && flgfiPARMRK) { 

Ibuffl] - 0377; 
lent - 2; 

} 

} 

/* 

* Stash character in r_buf 
*/ 

cbp - £tp->t_rbuf; 
if (lent i- 1) { 

lbuf[0] - c; 
while (lent) ( 

*cbp->c_ptr++ - lbuf[—lent]; 
if (—cbp->c_count =<» 0) { 
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cbp->c_ptr c±ip->>c_si 2 e; 
(*linesw[tp->t_line].l_input)(tp); 

1 

} 

if (cbp->c_si 2 e cbp->c_count) { 

cbp-'>c:_ptr -= cbp->c_si 2 e - cbp->c_count; 
(*linesw[tp->t_line].l_input)(tp); 

} 

} else { 

*cbp->c_ptr =“ c; 
cbp->c_coimt—; 

(*linesw[tp->t_line] .l_input) (tp); 

} 

) 

scxintr(ap) 

register struct args *ap; 

{ 

register short dev; 

struct tty *tp; 

register struct device *addr; 

sysinfo.xmtint++; 
dev - ap“>a_dev; 

addr = (struct device *)sc_ttptr[dev]-tt_addr; 

addr->csr - WORTXPND; /* reset transmitter interrupt */ 

addr“>csr - WORIUS; /* reset interrupt */ 

tp * sc__ttptr [dev] .tt_tty; 

tp->t_state &- -BUSY; 

scproc(tp, T_OUTPUT); 


scsintr(ap) 

register struct args *ap; 

{ 

register struct ccblock *cbp; 
register int c, lent, fig; 
struct tty *tp; 
register char ctmp; 
char lbuf[3]; 

register struct device *addr; 
unsigned char stat; 

sysinfo.revint++; 

addr * (struct device *)sc_ttptr[ap->a_dev].tt_addr; 
c - addr->data & QxFF; /* read data BEFORE reset error */ 
addr->csr - 0x1; /* and to read register 1 */ 

stat “= addr'->csr; /* read the status */ 

addr->csr == WORERROR; /* reset error condition */ 
addr->csr “ WORXINT; /* reinable receiver interrupt */ 
addr->csr = WORIUS; /* reset interrupt under service */ 

tp - sc_ttptr[ap->a_dev).tt_tty; 
if (tp“>t_rbuf.c_ptr == NULL) 
return; 

if (tp->t_iflag & IXON) ( 
ctmp = c s 0177; 
if (tp->t_state & TTSTOP) { 

if (ctmp — CSTART I I tp->t_iflag & IXANY) 
(*tp->t_proc)(tp, T_RESUHE); 

) else { 

if (ctmp — CSTOP) 

(*tp->t_J)roc) (tp, T_SUSPEND); 

if (ctmp = CSTART || ctmp — CSTOP) 
return; 

} 

/* 

* Check for errors 
*/ 

lent - 1; 

fig » tp->t_iflag; 

if (stat 4 (RIPARERR |RIOVRERR1RIFRMERR)) { 

if ((stat & RIPARERR ) 44 (fig 4 INPCK)) 
c I- PERROR; 
if (stat 4 RIOVRERR) 
c 1 - OVERRUN; 


if (stat & RIFRMERR) 
c I- FRERROR; 
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if (tp->t_state4CARR_ON && sc_modem[i]) { 
tp~>t_state 4- ~CARR_ON; 
if (tp->t_state&ISOPEN) { 

ttyflush(tp, FREADIFWRITE); 
signal(tp->tjpgrp, SIGHUP); 


#ifdef SCC_CONSOLE 
scputchar(c) 

{ 

register struct device *addr ; 
int Sf i; 

addr = (struct device *)sc_ttptr[CONSOLE].tt_addr; 
s = spl6(); 
if (c -= '\n') 

scputchar(' \r'); 
i - 100000; 

While ( (addr->csr & ROTXRDY) -= 0 — i) ; 

addr->data = c; 
splx(s); 

} 

#endif SCC CONSOLE 
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/* 

* see device driver 

* 

* eopyright 1982 UniSoft eorporation 

*/ 

#include "sys/param.h" 

#include "sys/config.h" 

#include “sys/types.h" 

♦include "sys/systm.h" 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/file.h" 

♦include "sys/tty.h" 

♦include "sys/termio.h" 

♦include "sys/conf.h" 

♦include "sys/sysinfo.h" 

♦include "sys/var.h” 

♦include "sys/reg.h" 

♦include <sys/scc.h> 

♦include ''sys/proc.h" 

♦include "setjmp.h" 

int scproc(); 

extern int sc_cnt; 

extern struct tty sc_tty[]; 

extern struct ttyptr sc_ttptr[]; 

extern char sc_modera[3; 

extern struct scline sc_line[]; 

♦define f40DEM 0x80 /* modem control on bit */ 

♦define scdev{d) ((d)&0x7f) /* from unix device number to device */ 

♦define DELAY{) asm(«\tnop«); 


♦define SCTIHE (v.v_hz*5) /* scscan interval */ 

/* 

* Note: to select baud rate 

* k “ chip_input_frequency/(2 * baud * factor) - 2 

* put factor in register 9 and k in registers D & C 

* NOTE: 

* normally, factor =• 16 

* for this driver, chip_input_frequency = 2400QQ0 Hz 

* sespeeds is a table of these numbers by UNIX baud rate 

int sespeeds[] - { 


1, 

50, 

75, 

110, 

134, 

150, 

200, 

300, 

600, 

1200, 

1800, 

2400, 

4800, 

9600, 

19200, 

38400, 


}; 

/* 

* table to initialize a port to 9600 baud 
*/ 

char scitablef] - { 

WONULL, 

9, 0, /* set according to sc_line reset value */ 

♦define SCCIRESET scitable[23 

4, W4CLK16 I W41STOP, 

10 , 0 , 

11, WllRBR 1 WllTBR, 

12, 0, /* 12/13 are baud rate, from sc_line speed value */ 

♦define SCCISPLO suitable[10] 

13, 0, 

♦define SCCISPHI suitable[12] 

14, W14BRGE : W14BRINT, 

3, Sf38BIT I W3RXENABLE, 

5, W58BIT I WSTXENABLE, 

1, WIRXIALL ! WITXIEN /*! WIEXTIEN*/, 

2, 0, /* auto vector */ 

0, WORXINT, 

15, 0, 

9, W9MIE 1 W9DLC, 


}; 

/* 

* we call this in startup() to preinitialize all the ports 
*/ 

scinrt{} 

{ 

register struct device *addr; 
unsigned short nsc; 

for(nsc“0;nsc<50Q;nsc++); 

for (nsc - 0; nsc < sc_cnt; nsc++) { 

addr - (struct device *)sc_ttptr[nsc].tt_addr; 

/* do proper reset */ 

scinil(addr, W9NV!sc_line[nsc].reset, (int)sc_line[nsc]- speed); 

} 

printf("%d serial ports\n", nsc); 

/* scscanO; /* start modem scanning */ 

} 

scinil(addr, reset, speed) 
struct device *addr; 
int reset, speed; 

{ 

register int i; 
int Si 

s “ spl6(); 

SCCIRESET - reset; 

speed = (speed/(9600«1)) - 2; 

SCCISPHI * (speed » 8) 4 OxFF; 

SCCISPLO “ speed 4 OxFF; 

for (i - 0; i < sizeof(scitable); i++) { 

DELAY(); 

addr->csr - scitable[i]; 

} 

DELAY(); 
splx(s); 

} 

/* ARGSUSED */ 
scopen(dev, flag) 
register dev; 

{ 

register struct tty *tp; 
register struct device *addr; 
register d; 

♦ifdef SINGLEUSER 

register struct proc *p; 

♦endif SINGLEUSER 

d - scdev(dev); 
if (d >- sc_cnt) { 

u.u_error - ENXIO; 
return; 

} 

tp = sc_ttptr[d].tt_tty; 

♦ifdef SINGLEUSER 

p - u.ujprocp; 
if ((p“>p_pid “ p->p_pgrp) 

44 (u.u_ttyp — NULL) 

44 (tp->t_pgrp — 0)) { 

u.u_error = ENOTTY; 
return; 

) 

♦endif SINGLEUSER 

tp->t_index - d; 

SPL6() ; 

if ((tp“>t_state4(ISOPENIWOPEK)} G) { 
tp->t_proc - scproc; 
ttinit(tp); 

sc_modem[d3 - dev 4 MODEM; 

addr - (struct device *)sc_ttptr[d].tt_addr; 
if (dev 4 MODEM &S (addr~>csr £ RODCD) — 0) 
tp->t_Btate - WOTEN; 


else 
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tp->t_state - WOPEN ( CARR__ON; 

#ifdef SCC_CONSOLE 

if (d =» CONSOLE) { 

tp->t_iflag - ICRNL 1 ISTRIP; 
tp->t_oflag = OPOST I ONLCR | TAB3; 
tp“>t_lflag = ISIG 1 ICANON I ECHO j ECHOK; 
tp->t_cflag = sspeed | CSS | CREAD | HUPCL; 

} 

#endif SCC_CONSOLE 

scparam(dev); 

} 

if (I(flag & FNDELAY)) 

while ((tp->t_state4CARR_ON) “=* 0) 

(void) sleep((caddr_t)&tp->t_rawq, TTOPRI); 

SPLO(); 

(*linesw[tp->t_line].l_open)(tp); 

} 

/* ARGSUSED */ 
scclose(dev, flag) 

{ 

register struct tty *tp; 
register int d; 

d “ scdev(dev); 

tp “ sc_ttptr[d].tt_ttY; 

(*linesw[tp->t_line].l_close)(tp); 
if (tp->t_cflag & HUPCL) 

schup(dev); /* hang up */ 

} 


scread(dev) 

{ 

register struct tty *tp; 


tp ” sc_ttptr[scdev(dev)].tt_tty; 
(*linesw[tp->t_line].l_read)(tp); 


scwrite(dev) 

{ 

register struct tty *tp; 


tp= sc_ttptr[scdev(dev)].tt_tty; 

(*linesw[tp->t__line] .l_write) (tp) ; 


scproc(tp, cmd) 
register struct tty *tp; 

{ 

register struct ccblock *tbuf; 
register struct device *addr; 
register dev_t dev; 
extern ttrstrt(); 
int s; 


s “ spl6 (); 

dev = tp->t_index; 

addr •=• (struct device *) sc__ttptr [dev] .tt_addr; 
switch (cmd) { 

case T_TIME; 

scw5(tp, addr, 0); /* clear break */ 

tp->t_state 4- -TIMEOUT; 
goto start; 

case T_WFLUSH: 

tbuf - 4tp->t_tbuf; 
tbuf->c_size tbuf->c_count; 
tbuf->c_count - 0; 

/* fall through */ 
case T_RESUME: 

tp->t_3tate 4- -TTSTOP; 
goto start; 

case T OUTPUT; 


start; 


if (tp“>t_state 4 (TTSTOPI TIMEOUT[BUSY)) 
break; 

if (tp->t_state 4 TTXOFF) { 

tp->t_state 4= -TTXOFF; 
tp“>t_state 1= BUSY; 
addr->data - CSTOP; 
break; 

} 

if (tp->t_state 4 TTXON) { 

tp->t_state 4“ -TTXON; 
tp->t_state != BUSY; 
addr->data - CSTART; 
break; 

) 

tbuf = 4tp->t_tbuf; 

if ((tbuf->c_j>tr == 0) It (tbuf“>c_count == 0)) { 
if (tbuf->c_ptr) 

tbuf“>c_ptr -= tbuf->c_size; 
if (MCPRES 4 (*linesw[tp->t_line] .l_output) (tp))) 


tp->t_state 1“ BUSY; 
addr->data = *tbuf->c_j>tr++; 
tbuf->c_count—; 
break; 

case T_SUSPEND: 

tp->t_state 1= TTSTOP; 
break; 

case T_BLOCK: 

tp->t_state 4- -TTXON; 
tp->t_state 1= TBLOCK; 
tp->t_state I- TTXOFF; 
goto start; 

case T_RFLUSH; 

if (1(tp->t_state4TBLOCK)) 
break; 

/* fall through */ 
case T_UNBIiOCK: 

tp->t_state 4= -(TTXOFFITBLOCK); 
tp->t_state I- TTXON; 
goto start; 

case T_BREAK: 

scw5(tp, addr, W5BREAK); 
tp->t_state 1“ TIMEOUT; 

timeout (ttrstrt, (caddr_t)tp, v.v_h 2 » 2 ) ; 
break; 

} 

splx(s); 

) 

scw5(tp, addr, d) 
struct tty *tp; 
struct device *addr; 
int d; 

( 

register int w5; 
int s; 


w5 » W5TXEHABLE | d; 
switch(tp->t_cflag 4 CSIZE) { 
case CSS: 

w5 1“ W55BIT; break; 
case CSS: 

w5 I- W56BIT; break; 
case CS7: 

w5 1- W57BIT; break; 
case CS8: 


W58BIT; break; 


s - spl S U ; 
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addr->csr =5; 
addr->csr - «5; 
splx(s); 


scioctKdev, csad, arg, lacds) 

{ 

if (ttiocom(sc_ttptr[scdev(dev)].tt_tty, 
scparam(dev); 


} 


cand. 


arg, mode)) 



register flag; 
register struct tty *tp; 
register struct device *addr; 
int s; 

register int w4, wS, speed; 


tp - sc_ttptr[scdev(dev)].tt_tty; 
flag =“ tp">t_cflag; 

if {((flagsCBAUD) = BO) && (dev&MODEM)) { /* hang up line */ 
schup(dev); 
return; 

} 

addr - (struct device *)sc_ttptr[scdev(dev)].tt_addr; 
w4 = W4CLK16; 
if (flag & CSTOPB) 

w4 I- W42STOP; 

else 

w4 1= W41STOP; 
w5 ” W5TXENABLE; 
switch(flag & CSIZE) { 
case CSS: 

w5 1= W55BIT; break; 
case CS6: 

w5 1= W56BIT; break; 
case CS7: 

w5 I” 5f57BIT; break; 
case CSS: 

w5 !- W58BIT; break; 

} 

if (flag & PARENB) 

if (flag & PARODD) 

w4 1= W4PARENABLE; 

else 

w4 |=» W4PARENABLE | W4PAREVEN; 
speed = sc_line[scdev(dev)].speed; 
speed =“ (speed/(scspeeds [flagiCBAUD] «1)) - 2; 
s “ spl6 0; 
addr'->csr - 4; 

DELAY(); 
addr“>csr =» w4; 

DELAY(); 
addr->csr =*■ 12; 

DELAY(); 

addr“>csr = speed; 

DELAY(); 
addr->csr - 13; 

DELAY() ; 

addr->csr = speed » 8; 

DELAY(); 
addr“>csr - 5; 

DELAY() ; 
addr->csr "= w5; 
splx(s); 


setup(dev) 

{ 

register struct device *addr; 
int s; 


dev scdev(dev); 

addr - (struct device *)sc_ttptr[dev].tt_addr; 
s - spl6 0; 


/* turn off DTR/RTS */ 


addr->csr = 5; 

DELAY 0; 

addr->csr - W5TXENABLE I W58BIT; 
splx(s) ; 


scintr(ap) 

register struct args *ap; 

{ 

register struct device *addr; 


} 


for (ap->a_dev “ Or ap->a__dev < sc_cnt; ap->a_dev++) { 

addr =* (struct device *)sc_ttptr[ap“>a_dev].tt_addr; 
while (addr->csr & RORXRDY) { 
addr->csr = 1; 

DELAY(); 

if (addr->csr & (R1PARERR1R10VRERR|R1FRMERR)) 
scsintr(ap); 

else 

scrintr(ap); 

} 

if (addr->csr & ROTXRDY) 
sexintr(ap); 


} 


scrintr(ap) 

register struct args *ap; 

{ 

register struct device *addr; 
register struct ccblock *cfap; 
register int c, lent, fig; 
struct tty *tp; 
register char ctmp; 
char lbuf[3]; 


addr - (struct device *)sc_ttptr[ap->a_dev].tt_addr; 
addr->csr = WORXINT; /* reinable receiver interrupt */ 
addr->csr - WORIUS; /* reset interrupt */ 

c = addr->data & OxFF; 
sysinfo.revint++; 
tp = sc_ttptr[ap“>a_d6v].tt_tty; 
if (tp->t_rbuf .c__ptr = HULL) 
return; 

if (tp->t_iflag & IXON) { 
ctmp - c S 0177; 
if (tp->t_state & TTSTOP) { 

if (ctmp «« CSTART I 1 tp->t_iflag & IXANY) 
(*tp“>t_proc)(tp, T_RESUME); 

} else { 

if (ctmp “ CSTOP) 

(*tp->t_j)roc) (tp, T_SUSPBND); 

} 

if (ctmp — CSTART iI ctmp =- CSTOP) 
return; 

} 

lent = 1; 

fig - tp->t_iflag; 
if (flgilSTRIP) 

c 0177; 

else { 

/* c 6“ 0377; not needed */ 
if (c “ 0377 && flg&PARMRK) { 
lbuf[l] “ 0377; 
lent - 2; 

) 

/* 

* Stash character in r_buf 
*/ 

cbp “ 4tp->t__rbuf; 
if (lent i- 1) { 

lbuf[0] - c; 
while (lent) ( 

*cbp->c_ptr++ “ lbuf[—lent]; 
if (—cbp->c_count 0) { 
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cbp->c_ptr cbp->c_size; 
(*linesw[tp->t_line].l_input)(tp); 

} 

} 

if (cbp“>c_size !- cbp->c_coimt) { 

cbp->c_ptr — Gbp->c_size - cbp->c_count; 
(*lineswi:tp->t_line] .l_input) (tp) ; 

) 

} else { 

*cbp“>c_ptr - c; 
cbp-> c_count—; 

(*lin6sw[tp->t_line].l_input) ftp); 

) 

} 

scxintr(ap) 

register struct args *ap; 

{ 

register short dev; 

struct tty *tp; 

register struct device *addr; 

sysinfo.xmtint++; 
dev •= ap->a_dev; 

addr = (struct device *)sc_ttptr[dev].tt_addr; 

addr->csr = WORTXPND; /* reset transmitter interrupt */ 

addr->csr = WORIUS; /* reset interrupt */ 

tp =" sc_ttptr [dev] .tt_ttY; 

tp->t_state &=■ -BUSY; 

scproc(tp, T_OUTPUT); 


scsintr(ap) 

register struct args *ap; 

{ 

register struct ccblock *cbp; 
register int c, lent, fig; 
struct tty *tp; 
register char ctmp; 
char lbuf[3]; 

register struct device *addr; 
unsigned char stat; 


sysinfo,rcvint++; 

addr = (struct device *)sc_ttptr[ap->a_dev].tt_addr; 


c ” addr->data & OxFF; /* read data BEFORE reset error */ 
addr“>csr - 0x1; /* emd to read register 1 */ 

stat - addr->csr; /* read the status */ 

addr->csr = WORERROR; /* reset error condition */ 
addr->csr WORXINT; /* reinable receiver interrupt */ 
addr->csr ■= WORIUS; /* reset interrupt under service */ 
tp = sc_ttptr[ap->a_dev].tt_tty; 
if (tp->t_rbuf.c_ptr = NULL) 
return; 

if (tp->t_iflag 4 IXON) { 
ctmp = c 4 0177; 
if (tp->t_state 4 TTSTOP) { 

if (ctmp -- CSTART || tp->t_iflag 4 IXANY) 
(*tp->t_j)roc) (tp, T_RESUME); 

} else { 

if (ctmp — CSTOP) 

{*tp->t_proc)(tp, T_SUSPEND); 


if (ctmp CSTART I 1 ctmp ^ 
return; 


* Check for errors 
*/ 

lent - 1; 

fig - tp->t_iflag; 

if (stat 4 (RIPARERR 1RIOVRERR|RIFRMERR)) { 

if ((stat 4 RIPARERR ) 44 (fig 4 INPCK)) 
c !- PERRCffi; 
if (stat 4 RIOVRERR) 
c 1 “ OVERRUN; 


if (Stat 4 RIFRMERR) 

C 1= FRERROR; 
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if {tp->t_state4CARR_ON 44 sc_modeni[i]) { 

tp->t_state 4-CARR_ON; 

if (tp->t_state4ISOPEN) { 

ttyflush(tp, FREADIFWRITE); 
signal (tp->t_pgrp, SIGHXTP); 


#ifdef SCC_CONSOLE 
scputchar(c) 

{ 

register struct device *addr ; 
int s, i; 

addr =• (struct device *) sc_ttptr[CONSOLE]-tt_addr; 
s = spl6(); 
if (c -= '\n') 

scputchar('\r'); 
i = 100000; 

while ((addr->csr 4 ROTXRDY) == 0 44 —i) ; 
addr->data = c; 
splx(s); 

} 

#endif SCC CONSOLE 
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/* g(*)sem.c 1.5 */ 

/* 

** Inter-Process Conimunication Semaphore Facility. 

*/ 

finclnde **sys/types .h" 

^include “sys/par am.h" 

^include "sys/dir.h" 
tifdef u3b 
^include "sys/istk.h" 

#endif 

#include "sys/map-.h" 
finclude •'sys/errno.h" 

♦include *• sys/signal.h" 

♦include "sys/ipc-h" 

♦include "sys/sem.h" 

♦include "sys/user.h" 

♦include ’•sys/seg.h** 

♦include "sys/proc.h" 

♦include "sys/buf.h" 

♦ifdef pdpll 

♦define 1K)VE sempimove 

♦else 

♦define MOVE iomove 

♦endif 

extern struct seniid_ds seraa[]; /* semaphore data structures */ 

extern struct sera semt3>‘ /* semaphores */ 

extern struct map semmap[]; /* sem allocation map */ 

extern struct sera_undo *sem_undo[]; /* undo table pointers */ 

extern struct sem_undo serau[l; /* operation adjust on exit table */ 

extern struct seminfo seminfo; /* param information structure */ 

extern union { 

short semvals[l]; /* set semaphore values */ 

struct semid_ds ds; /* set permission values */ 

struct sembuf semopsfl]; /* operation holding area */ 

} semtmp; 

struct sem_undQ *semunp; /* ptr to head of undo chain */ 

struct sem_undo *semfup; /* ptr to head of free undo chain */ 

extern tlme_t time; /* system idea of date */ 

struct ipc_perm *ipcgetOb¬ 
struct semid__ds *semconv(); 

/* 

** semaoe - Create or update adjust on exit entry. 

*/ 

semaoe(val, id, num) 

short val, /* operation value to be adjusted on exit */ 

num; /* semaphore ♦ */ 
int id; /* semid */ 

{ 

register struct undo *uup, /* ptr to entry to update */ 

*uup2; /* ptr to move entry */ 

register struct sem__undo *up, /* ptr to process undo struct */ 

*up2; /* ptr to undo list */ 

register int i, /* loop control */ 

found; /* matching entry found flag */ 

if(val -- 0) 

return(0); 

if(val > seminfo.seraaem || val < -seminfo.semaem) { 
u.u_error - ERANGE; 
return(1); 

} 

if((up - sem_undotu.u_procp - proc]) -= NULL) 
if (up - serafup) { 

semfup - up->un_np; 
up->un_np - NULL; 

9em_undo[u.u_procp - procj - up; 

) else ( 

u.u_error - ENOSPC; 
return(1); 


} 

for(uup = up->un_ent, found - i - 0;i < up->un_cnt;i++) { 

if(uup->un_id < id 1 I {uup->un_id id && uup->un_niim < num)) { 
uup++; 
continue; 

) 

if(uup->un_id = id && uup->un_num — num) 
found = lb- 

break; 


if(!found) { 

if(up->\in_cnt >= seminfo.semume) { 
u.u_error = EINVAL; 
return(1); 

} 

if(up->un_cnt —0) { 

up->un_np - semunp; 
seraianp - up; 

) 

uup2 ” sup->un_ent[up->un_cnt++]; 
while(uup2— > uup) 

*(uup2 + 1) « *uup2; 
uup->un_id = id; 
uup->un_nura - num; 
uup->un_aoe =• -val; 
return(O); 

} 

uup->un_aoe -=• val; 

if(uup->un_aoe > seminfo.seraaem || uup->un_aoe < -seminfo.semaem) { 
u.u_error - ERANGE; 
uup->un_aoe += val; 
return(1); 

} 

if (uup->un_aoe -=« 0) { 

uup2 «up->un_ent [— (up->un_cnt) ] ; 
while(uup++ < uup2) 

*(uup - 1) - *uup; 
if(up->un_cnt 0) ( 


/* Remove process from undo list. */ 
if(semunp = up) 

semunp = up->un__np; 

else 

for(up2 » semunp;up2 i- NULL;up2 = up2->un_np) 
if(up2->un_np “ up) { 

up2->un_np - up->un_np; 
break; 


} 

/* 

** 

*/ 


up->un_np - NULL; 

} 

return(0); 


semconv - Convert user supplied semid into a ptr to the associated 
semaphore header. 


struct semid_ds * 
semconv(s) 

register int s; {* semid *{ 

{ 

register struct semid_ds *sp; /* ptr to associated header */ 


sp - &sema[s % seminfo.semmni]; 

if ((sp->sem__perra.raode h IPC_ALLOC) o | I 

s / seminfo.semmni !- sp->sem_perm.seq) ( 
u,u_error *« EINVAL; 
return(NULL); 

} 

return(sp); 


/* 


semctl - Semctl system call. 
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semctl () 
{ 


register struct a { 

int seioid; 
uint semnum; 
int cmd; 
int arg; 

} *uap - (struct a ’ 

register struct seiaid_ds 
register struct sem 
register int 

register struct user *up; 


)u.u_ap; 

*sp; 

*p; 


/* ptr to semaphore header */ 
/* ptr to semaphore */ 

/* loop control */ 


if((sp =■ semconv(uap->semid)) — NULL) 
return; 

up = &u; 

up->u_rvall = 0; 
switch(uap->cmd) { 

/* Remove semaphore set. */ 
case IPC_RHID: 

if(up->u_uid i= sp->sem_j)enti.uid &5 up->u_uid sp->sem_perm.cuid 
&& IsuserO) 
return; 

semunrm(uap->semid, 0, sp->sem_nsems); 
for(i = sp->sem_nsems, p = sp->sem_base;i—;p++) { 
p->semval * p->sempid - 0; 
if (p->seimcnt) { 

wakeup((caddr_t)&p->semncnt); 
p->serancnt =» 0; 

} 

if (p*->semzcnt) { 

wakeup((caddr_t)&p->semzcnt); 
p->semzcnt =0; 


mfree(semmap, (int)sp“>sCTi_nsems, (sp->sem_base - sem) +1); 
if(uap”>semid + seminfo.semmni < 0) 
sp~>sem_j>erm.seq - 0; 

else 

sp->sem_j>erra. seq++; 
sp->sem_perm.mode - 0; 
return; 

/* Set ownership and permissions. */ 
case IPC__SET; 

if(up->u_uid i= sp->sem_j)erm.uid && up->u_uid 1= sp->sem_perm.cuid 
&& IsuserO) 
return; 

if{copyin((caddr_t)uap->arg, (caddr_t)isemtmp.ds, sizeof(semtmp.ds))) { 
up“>u_error = EFAULT; 
return; 

} 

sp->sem_perm.uid - semtmp.ds.sem_perm.uid; 
sp->sem_perm. gid •= semtmp. ds. sem_perra. gid; 

sp->sem_perm.raode = semtmp.ds. sem_perm.mode & 0777 | lPC_ALLOC; 

sp->sem_ctime - time; 

return; 

/* Get semaphore data structure. */ 
case IPC_STAT: 

if(ipcaccess(4sp->sem_perm, SEM_R)) 
return; 

if(copyout{(caddr_t)sp, (caddr_t)uap->arg, sizeof(*sp))) ( 
up->u_error - EFAULT; 
return; 


/* Get t of processes sleeping for greater seraval. */ 
case GETNCKT: 

if (ipcaccesa (tsp->sefn_i»nn, SEM_R)) 
return; 

if (uap->semnum >- sp->sem_nsems) 1 


up-“>u_error * EINVAL; 
return; 

} 

up“>u_rvall = {sp->sem_base + uap“>semnum)->semncnt; 

return; 

/* Get pid of last process to operate on semaphore. */ 
case GETPID: 

if(ipcaccess(&sp->sem_perm, SEM_R)) 
return; 

if(uap->semnum >- sp->sem_nsems) { 
up->u__error — EINVAL; 
return; 

} 

up-’>u_rvall “ (sp->sem_base + uap->semnum)“>sempid; 

return; 

/* Get semval of one semaphore. */ 
case GETVAL: 

if(ipcaccess(&sp->sem_perm, SEM_R)) 
return; 

if (uap“>semnum >- sp->sem__nsems) { 
up“>u_error - EINVAL; 
return; 

} 

up->u_rvall “ (sp->sem_base + uap->semnura)->semval; 

return; 

/* Get all semvals in set. */ 
case GETALL: 

if (ipcaccess (&sp“>sem_jperra, SEM_R)) 
return; 

up->u_base -= {caddr_t) uap->arg; 

up->u__offset - 0; 

up->u_segflg - 0; 

for(i = sp->sem_ns6ms, p = sp-'>sem_base;i—;p++) { 

MOVE({caddr_t)&p->semval, sizeof(p->semval), B_READ); 
if(up->u_error) 
return; 

} 

return; 

/* Get f of processes sleeping for semval to become zero. */ 
case GETZCNT: 

if(ipcacce s s(& sp-> sem_perm, SEM_R)) 
return; 

if (uap->seinnum >» sp->sem_nsems) { 
up-->u_error - EINVAL; 
return; 

} 

up->u_rvall =* (sp->sem_base + uap->semnum)“>semzcnt; 

return; 

/* Set seraval of one semaphore. */ 
case SETVAL: 

if(ipcaccess(&sp->sera_perra, SEM_A)) 
return; 

if(uap->semnum >- sp->sem_nsems) { 
up->u_error - EINVAL; 
return; 

} 

if((unsigned)uap->arg > seminfo.semvrax) ( 
up->u_error “ ERANGE; 
return; 

} 

if((p - sp->sera_base + uap->semnum)->seraval - uap->arg) { 
if(p->semncnt) { 

p->semncnt - 0; 

wakeup((caddr_t)&p->serancnt); 

} 

) else 

if(p->semzcnt) { 

p->semzcnt - 0; 

wakeupf(caddr_t)5p~>5emzcnt); 

} 

p->serapid - up->u^rocp->p_pid; 
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semunm(uap->semid, uap->seranum, uap“>seinnum); 
return; 

/* Set seittvals of all semaphores in set. */ 
case SETALL; 

if {ipcaccess (S3p->sem_j>erm, SEM_A)) 
return; 

up->u_base = (caddr_t)uap->arg; 
up->u_offset - 0; 
up->u_segflg •=» 0; 

MOVE((caddr_t)semtmp.seravals, 

{int) (sizeof {semtmp.semvais[0]) * sp-“>sem_nsems), 
B_WRITE); 
if <up->u_error) 
return; 

for(i = 0;i < sp->sem_nsems;) 

if(semtmp.semvals[i++] > seminfo.semvmx) { 
up->u_error - ERANGE; 
return; 

} 

semunm(uap->semid, 0, sp->sem_nsems) ; 
for(i = 0, p = sp->sem_base;i < sp“>sem_nsems; 

(p++>->serapid « up->u_procp->p_j)id) { 
if (p“->seraval - semtmp. semvals [i++l) { 
if(p->semncnt) { 

p->semncnt = 0; 

wakeup((caddr_t)&p->semncnt); 


if(p->semzcnt) ( 

p->sem 2 cnt =0; 

wakeup((caddr_t)«p->sem 2 cnt); 


up->u_error 

return; 


semexit - Called by exitCsysl.c) to clean up on process exit- 


semexit() 
{ 


register struct sem_undo 

register struct semid_ds 
register int 
register long 
register struct sem 


/* process undo struct ptr */ 
/* undo struct ptr */ 

/* semid being undone ptr */ 
/* loop control */ 

/* adjusted value */ 

/* semaphore ptr */ 


if ((up = sem_undo [u.u_procp - proc]) =*=• NULL) 
return; 

if(up->un_cnt “ 0) 

goto cleanup; 

ford ” up->un_cnt;i—;) { 

if((sp - semconv(up->un_ent[i].un_id)) == NULL) 
continue; 

V - (long)(semp - sp->sera_base + up->un_ent[i].un_num)->semval + 
up->un_6nt[i].un_aoe; 
if(v <0 II V > seminfo.semvmx) 
continue; 
semp->semval - v; 
if(v — 0 && semp->semzcnt) { 
semp->serazcnt - 0; 
wakeup ((caddr_t) £semp-'>semzcnt); 

) 

if(up->un_ent[i].un_aoe > 0 it semp->semncnt) { 

3emp->semncnt - 0; 

wakeup((caddr_t)*semp->3emncnt); 

> 

} 

up->un_cnt “■ 0; 



1 
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semop - Semop system call. 


register struct a { 
int 

struct sembuf 


} *uap -= (struct a 

register struct sembuf 
register int 

register struct semid._ds 
register struct sem 
int again; 


/* ptr to operation */ 

/* loop control */ 

/* ptr to associated header */ 
/* ptr to semaphore */ 


if((sp = seraconv(uap->semid)) == NULL) 
return; 

if(uap->nsops > seminfo.semopm) { 
u,u_error ■= E2BIG; 
return; 

} 

u.u_base = (caddr__t)uap->sops; 
u.u_offset “ 0; 
u.u_segflg = 0; 

MOVE((caddr_t)seratrap.semops, (int)(uap->nsops * sizeof(*op)), B_WRITE); 
if(u.u_error) 

return; 

/* Verify that sem is are in range and permissions are granted. */ 
for(i == 0, op = semtmp. semops;i++ < uap->nsops;op++) { 

if(ipcaccess(&sp->sem_perm, (ushort)(op->sera_op?SEM_A:SEM_R))) 
return; 

if(op->sem_num >- sp->sem_nsems) { 
u.u error =»= EFBIG; 


/* Loop waiting for the operations to be satisified atomically. */ 
/* Actually, do the operations and undo them if a wait is needed 
or an error is detected. */ 
if (again) { 

/* Verify that the semaphores haven't been removed. */ 
if (semconv(uap-->semid) == NULL) { 
u.u_error « EIDRM; 
return; 

} 

/* copy in user operation list after sleep */ 
u.u_base = (caddr_t)uap->sops; 
u.u_offset * 0; 
u.u_segflg = 0; 

MOVE((caddr_t)semtmp.semops, 

(int)(uap->nsops * sizeof(*op)), B_WRITE); 
if(u.u_error) 

return; 


0, op =“ semtmp. semops; i < uap->nsops; i++, op++) { 
semp = sp->sem_base + op->sem_num; 
if(op”>sera_op > 0) { 

if (op“>sem_op + (long) semp->semval > seminfo. semvrax || 
(op->sem_flg l SEM_UNDO && 

seraaoe(op->sem_op, uap“>semid, (short)op“>sera_num))) { 
if(u.u_error == 0) 

u.u_error - ERANGE; 

if(i) 

seraundo(semtmp.semops, i, uap->3emid, sp); 

return; 


serap“>semval +- op->sem_op; 
if(serap->serancnt) { 


semp->semncnt = 0; 

wakeupC(caddr_t)4semp->semncnt); 


ssm_op < 0) { 

if(semp“>semval >- -op->sem_op) { 

if(op->sem_flg & SEM_UNDO i& 

seraaoe(op”>sem_op, uap->semid, (short)op->sem_num)) { 
if (i) 

semundo(semtmp,semops, i, uap->semid, sp); 


semp->semval +=> op->sem_op; 
if(semp->semval = 0 && semp->semzGnt) ( 
semp->semzcnt - 0; 
wa]ceup( (caddr_t) 4semp->semzcnt) ; 

} 

continue; 

} 

if(i) 

semundo (semtmp. semops, i, uap->semid, sp); 
if(op->sera_flg & IPC_NOWAIT) { 
u.u_error EAGAIN; 
return; 

} 

semp->semncnt++; 

if(sleep((caddr_t)&semp->semncnt, PCATCH I PSEMN)) { 
if ((SCTip->semncnt)— <=1) { 
semp->seroncnt - 0; 
wak.eup( (caddr_t) &semp->semncnt) ; 

) 

u.u_error - EINTR; 
return; 

} 

goto check; 

->seraval) { 

if(i) 

semundo(semtmp.semops, i, uap->semid, sp); 
if (op->sem_flg £ IPC_NO!HAIT) { 
u.u_error - EAGAIN; 
return; 

} 

semp->semzcnt++; 

if(sleep((caddr_t)£semp->sem 2 cnt, PCATCH | PSEMZ)) { 
if((semp->semzcnt)— <= 1) { 
semp->semzcnt - 0; 
wakeup((caddr_t)&semp->semzcnt); 

} 

u.u_error * EINTR; 
return; 

} 

goto check; 


/* All operations succeeded. Update sempid for accessed semaphores. */ 
for(i *0, op “ semtmp.semops;i++ < uap->nsops; 

(sp->sem_base + (op++)->sera_num)->serapid •= u.u_procp->p_pid); 
sp->sem_otime =• time; 
u.u rvall - 0; 


iifdef pdpll 
/* 

** sempimove - PDP 11 pimove interface for possibly large copies. 

* / 


sempimove(base, count, mode) 

paddr_t base; /* base address */ 

register unsigned count; /* byte count */ 

int mode; /* transfer mode */ 


register unsigned 


tcount; /* current transfer count */ 



Fri Sep 5 19:08:00 1986 


while<u.u_error 0 count) { 

tcount = count > 8064 ? 8064 : count; 
pimove(base, tcount, mode); 
base +*= tcount; 
count — tcount; 


semsys - System entry point for semctl, semget, and semop system calls. 


int semctl (), 

semget <), 
semop(); 

static int (*calls[])() = {semctl, semget, semop); 

register struct a { 

uint id; /* function code id */ 

} *uap = {struct a *)u.u_ap; 

if{uap->id >2) { 

u.u_error - EINVAL; 
return; 

} 

u,u_ap - &u.u_arg[1]; 

(*calls[uap->id])(); 


semundo - Undo work done up to finding an operation that can't be done. 


semundo(op, n, id, sp) 
register struct sembuf 
register int 

register struct semid_ds 


/* first operation that was done ptr */ 
/* # of operations that were done */ 

/* semaphore id */ 

/* semaphore data structure ptr */ 


register struct sem 


semaphore ptr 


for(op += n - l;n—;op—) { 
if(op->sem_op == 0) 
continue; 

semp - sp-*>sem_base + op->sem_nura; 
semp->semval -== op->sem_op; 
if(op->sem_flg & SEM_UNDO) 

(void) semao6(-op->sem_op, id, (short)op->sem_num); 


semunrm - Undo entry remover. 

This routine is called to clear all undo entries for a set of semaphores 
that are being removed from the system or are being reset by SETVAL or 
SETVALS commands to semctl. 


semunrm(id, low, high) 
int id; /* semid */ 

ushort low, /* lowest semaphore being changed */ 

high; /* highest semaphore being changed */ 


register struct sem_undo 


register struct undo 
register int 


/* ptr to predecessor to p */ 
/* ptr to current entry */ 
f* ptr to undo entry *! 

/* loop control */ 

/* loop control */ 


pp - NULL; 
p - seraunp; 
while(p 1- NULL) { 


/* Search through current structure for matching entries. */ 
for(up - p->un_ent, i - 0;i < p->un_cnt;) { 
if(id < up->un_id) 
break; 

if(id > up“>un_id |1 low > up->un_num) { 
up++; 
i++; 

continue; 

} 

if(high < up->un_num) 
break; 

for(j “ i;++j < p->un_cnt; 

p->un_ent[j - 1] = p->un_ent[j]); 
p->un_cnt—; 

} 

/* Reset pointers for next round. */ 
if(p->un_cnt =» 0) 

/* Remove from linked list. */ 
if(pp — NULL) { 

semunp ” p->un_np; 
p->un_np - NULL; 
p = semunp; 

) else { 

pp->un_np = p“>un_np; 
p“>iin_np “ NULL; 
p = pp->un_np; 

} 

else { 

PP ” p; 
p - p->un_np; 
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/* 0(#)shm.c 1.7 */ 

tinclude “sys/types.h" 
tinclude "sys/param.h" 

#include "sys/config.h" 

#include "sys/imnu.h** 

^include "sys/sysjaacros.h,” 

^include "sys/dir.h" 
iinclude "sys/errno.h'' 

^-include "sys/signal.h” 
finclude "sys/user .h** 

♦include "sys/seg.h" 

♦include "sys/ipc.h" 

♦include ■sys/shra.h" 

♦include "sys/proc.h" 

♦include "sys/context.h" 

♦include •sys/systra.h” 

♦include "sys/raap.h" 

♦include "sys/var.h" 

♦include "sys/scat.h" 

extern struct shmid_ds 
extern struct shmid_ds 
extern struct shmpt_ds 
extern struct shminfo 
int shmtot; 

extern time_t time; /* system idea of date */ 

struct ipc_perm *ipcget(); 

struct shmid_ds *shmconv(); 


shmem[l; /* shared memory headers */ 

*shm_shmem[]; /* ptrs to attached segments */ 

shm_pte[]; /* segment attach points */ 

shminfo; /* shared memory info structure */ 

/* total shared memory currently used */ 


/* 


*/ 


shmat - Shmat system call. 


shmat () 

{ 

register struct a { 

int shmid; 

char *addr; 

int flag; 

} *uap - (struct a *)u.u_ap; 

register struct shmid_ds *sp; /* shared memory header ptr */ 

register struct user *up; 

register struct proc *p; 

register int shmn; 

register int segbeg; 

register struct phys *ph; 

int i, aa, ix; 

int as,bs,ap,bp; 


up - fiu; 

p - up->u_procp; 

if ((sp = shmconv(uap->shmid, SHM_DEST)) “ NULL) 
return; 

if (ipcaccess(isp->shm_perm, SHM_R)) 
return; 

if {(uap->flag & SHM_RDONLY) ““ 0) 

if (ipcaccess (4sp->shm_j>erra, SHM_W)) 
return; 

for (shmn =■ 0;shran < shminfo. shmseg; shmn++) 

if (shm_shmem[ (p - proc) * shminfo. shmseg+shmn] “ NULL) 
break; 

if (shmn >- shminfo.shmseg) { 
up->u_error - EMFILE; 
return; 

} 

if {uap->flag & SHM__RND) 

uap“>addr = {char *)((uint)uap->addr £ -{SHML3A - 1)); 


/* 

* Check for page alignment and containment within data space 
*/ 

if ((int)uap->addr £ (SHMLBA - 1) •! 

sp->shm_segsz <- 0 || 

((int) uap->a.ddr & 0x80000000) M 


(((int)uap->addr 0) && 

(((int)uap->addr + ctob(stoc(ctos{btac(sp->shm_segsz))))) > 
ctob(stoc(ctos(btoc(v.v_uend)-up->u_ssize)))))) { 
up->u_error =» EINVAL; 
return; 


An address of 0 places the shared memory into a first fit location 

/ 

if (uap->addr “ NULL) { 

if (shmn > Q) { /* there was a previous attach */ 

/* try the virtual address just beyond the 
last one attached */ 

segbeg - (short)(p - proc) * (short)shminfo.shmseg + 
shmn - 1; /* index of last shmem */ 

segbeg =■ shm_pte(segt3eg] .shm_segbeg + 
ctob(stoc(ctos(btoc( 

shm_shmem[segbeg] ->shm_segsz)))) ; 

} else { /* this is the 1st attach */ 

segbeg - v.v__ustart + 

ctob(stoc(ctos(up“>u_tsi 2 e))) + 
ctob (stoc (ctos (up-->u_dsize))) + 
ctob(stoc(ctos(shminfo.shmbrk))); 

} 

/* need to avoid any i^ys areas */ 

for (ph =• &u.u_j)hys [0]; ph < 4u.u_phys[v.v_phys]; ph++) { 
if (ph->ujphsize) { 
as - segbeg; 
bs = segbeg + 

ctob(stoc(ctos(btoc(sp“>shm_segsz)))); 
ap - ph->u_j>hladdr; 
bp “ ph->u_phladdr + 

ctob (stoc (ctos (ph->u_j>hsize))) ; 
if ((as < ap) &£ (bs <= ap)) 

/* shmat all before phys - ok */ 
continue; 

if ((as >“ bp) ££ (bs > bp)) 

/* shmat all after phys - ok */ 
continue; 

/* allocation would conflict with phys */ 

/* choose another location... where? */ 

up->u_error ENOMEM; 

return; 


Check to make sure segment does not overlay any valid segments 

/ 

segbeg - vtoseg((int)uap->addr); 
for (i - btoc(sp->shm_segsz); i > 0; i -- aa) { 
aa = min(NPAGEPERSEG, (unsigned)i); 

if ((getromu((short *)(segbeg|ACCLIM))4PROTMASK)i-ASINVAL) { 
up->u_error = ENOMEM; 
return; 

) 

segbeg +- (1«SEGSHIFT) ; 

} 

segbeg * (int)uap->addr; 

} 

if (chksize(up->u_tsi 2 e, up->u_dsi 2 e, up->u_ssize)) { 
up->u_error « ENOMEM; 
return; 

i “ (short)(p - proc) * (short)shminfo.shmseg + shmn; 

shra_shmera[i] - sp; 

shra_pte[i].shm_segbeg - segbeg; 

shm_pte[i],shra_sflg * {(uap->flag £ SHM_RDONLY) ? RO ; RW); 
shm_pte[i].shra_seg - 0; 
cxrelse(p->p_context); */ 
sureg(); 

Clear segment on first attach 


if (sp->shm_perm.,mp,d(e 4 SHM_CLE(A^l) { 
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i =■ btoc(sp->shni_segsz); 
iifdef NONSCATLOAD 

lx “ btoc(segbeg); 
while (—1 >= 0) 

clearseg(ix++) ; 

j^else 

ix =“ sp->shiii_scat; 
while (—i >= 0) { 

clearseg(ixtoc(ix)); 

ix ■“ scatinap[ix] . sc__index; 

} 

Jsnd.if 

sp-->shmjperm.inocle 4= ~SHM_CLEAR; 

if (p“>p_smbeg == 0 I I p->p_sinbeg > segbeg) 
p->p_snibeg - segbeg; 
sp-> shm_nattch++; 
sp- > shra_cna tt.ch++; 
up->u_rvall “ segbeg; 
sp->shrti_atime - time; 
sp->shra_lpid “ p->p_j)id; 


shmconv - Convert user supplied shmid into a ptr to the associated 
shared memory header. 


struct shmid_ds * 
shmconv(s, fig) 
int s; 


/* shmid */ 

fig; /* error if matching bits are set in mode */ 


register struct shmid_ds 


*sp; /* ptr to associated header */ 


sp ” &shmem[ (short) (s % shminfo. shmnini)); 

if (I (sp->shm_perm.mode & IPC_ALIjOC) || sp->shra_perm.mode £ fig || 
s / shminfo. shmrani 1= sp->shm_perm. seq) { 
u.u_error - EINVAL; 
return(NULL); 

} 

return(sp); 


shmctl - Shmctl system call. 


shmctl 0 

{ 


register struct a { 

int shmid, 

cmd; 

struct shmid_ds *arg; 

} *uap - (struct a *)u.u_ap; 

register struct shmid_ds *sp; 

struct shmid_ds ds; 

register struct user *up; 


/* shared memory header ptr */ 
/* hold area for IPC SET */ 


if ((sp - shmconv(uap”>shmid, (uap->cmd “ IPC_STAT) 2 0 ; SHM_DEST)) 
NULL) 
return; 

up - £u; 

up->u_rvall - 0; 
switch(uap->cmd) { 


/* Remove shared memory identifier. */ 
case IPC_RMID: 

if {up->u_uld != sp->shm_perm.uid ££ up->u_uid 
££ IsuserO) 
return; 

sp->shm_ctime - time; 
sp->shm_perra.mode |- SHM_DEST; 


3p“>shm_perm.ouid 


/* Change key to private so old key can be reused without 
waiting for last detach. Only allowed accesses to 


this segment now are shmdtO and shmctl (IPC_STAT). 

All others will give bad shmid. */ 
sp->shm_perm.key IPC_PRIVATE; 

/* Adjust counts to counter shmfree decrements. */ 

sp->shm_nattch++; 

sp->shm_cnattch++; 

shmfree(sp); 

break; 

/* Set ownership and permissions. */ 
case IPC_SET: 

if (up->u_uid != sp->shm_perm.uid ££ up->u_uid 1= sp->shm_perm.cuid 
£& IsuserO) 
return; 

if (copyin((caddr_t)uap->arg, (caddr_t)fids, sizeof(ds))) { 
up->u_errQr “ EFAULT; 
return; 

} 

sp“>shm_perm.uid = ds.shm_perm.uid; 
sp->shm_perm.gid = ds.shm_perm.gid; 
sp->shm_perm.mode == (ds.shm_perm.mode & 0777) | 

(sp->shm_j>erm.mode 4 -0777); 
sp->shm_ctime = time; 
break; 

/* Get shared memory data structure. */ 
case IPC_STAT: 

if (ipcaccess{4sp-*>shm_perm, SHM_R)) 
return; 

if (copyout ((caddr_t) sp, (caddr__t) uap“>arg, sizeof (*sp))) 
up->u__error ” EFAULT; 

break; 


default: 

up->u__error - EINVAL; 
break; 

) 

} 

/* 

** shmdt - Shmdt system call. 

*/ 


shmdt () 

{ 

struct a { 

char *addr; 

} *uap “ (struct a *)u.u_ap; 

register struct shmid_ds *sp, ** appo¬ 
int segbeg; 

register struct shmpt_ds *pt; 

register i, j; 

register struct proc *p; 


/* 

* Check for page alignment 
*/ 

if ((int)uap->addr 4 (ctob(l) - 1) M 
(segbeg - (int)uap->addr) —=0) { 
u.u_error ■* EINVAL; 
return; 

} 

/* 

* find segment 
*/ 

spp * 4shm_shraera[i-((p^u.u_procp)-proc)*shminfo.shmsegj; 

pt - 43hm_pte[i]; 

for (i-O; i < shminfo.shmseg; i+i-, pt++, spp+r) { 

if ((sp - *spp) !- NULL £4 pt->shm_segbeg — segbeg) 
break; 
sp - NULL; 

} 

if (sp — NULL) { 

u.u_error - 
return; 


EINVAL; 
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shmfree(sp); 
sp->shin_dtime «= time; 
sp->shm_lpid - p->p_pid; 

*spp - NULL; 
pt'“>shiii_se5^®y ~ 
p->p_smbeg ” 0; 

pt =- &shm_pte [ (p-proc) *shminfo. shmseg] ; 
for (j->0; j<shminfo.shmseg; j++, pt++) { 
if (i = pt->shm_segbeg) { 
if (p->p_sitibeg) { 

if (p->p_smbeg > i) 
p->p_snibeg > 

} else { 

p->p_smbeg - i; 


cxrelse(p->p_context); */ 

sureg(); 

u.u rvall - 0; 


shraexec - Called by setregs(os/sysl.c) to handle shared memory exec 


shmexec() 

{ 

register struct shmid_ds 
register struct shmpt_ds 
register int 


**spp; /* ptr to ptr to header */ 
*sppp; /* ptr to pte data */ 
i; /* loop control */ 


if (u.u_proGp->p_srabeg =*= 0) 
return; 

/* Detach any attached segments. */ 

sppp - Sshm_pte[i = (u.u_prQcp - proc) *shminfo.shmseg]; 

u. u__procp->p_smbeg = 0; 

spp = ishm_shmemti]; 

for(i = 0; i < shminfo.shmseg; i++,spp++,sppp++) { 
if (*spp NULL) 
continue; 
shmfree (* spp) ; 

*spp = NULL; 
sppp->shm_segbeg * 0; 

} 


shmexit - Called by exit(os/sysl,c) to clean up on process exit. 


shmexit() 
{ 


/* Same processing as for exec. */ 
shmexec(); 


shmfork - Called by newproc(os/slp.c) to handle shared memory fork 
processing. 


shmfork(cp, pp) 

struct proc *cp, /* ptr to child proc table entry */ 
*pp; /* ptr to parent proc table entry */ 


register struct shmld_ds 
register struct shmpt_ds 
register int 


**cpp, /♦ ptr to child shmem ptrs */ 
**ppp; /* ptr to parent shmem ptrs */ 
*cppp, 

*pppp; 

i; 


if (pp->p_smbeg — 0) 
return; 


/* loop control */ 


/* Copy ptrs and update counts on any attached segments. */ 
cpp « 4shm_shmemt (cp - proc) * shminfo. shmseg] ; 
ppp “ 43hm_shmem[ (pp - proc) * shminfo. shmseg]; 
cppp = 4shm_pte[(cp - proc) * shminfo. shmseg]; 

PPPP “ 4shm_pte[(pp - proc)*shminfo.shmseg]; 

"P’^P^sisi^ey =* pp=>p_smbsg; 

for(i - 0;i < shminfo.shmseg; i++, cpp++, ppp++, cppp++, pppp++) { 
if (*cpp “ *ppp) { 

(*cpp)->shm_nattch++; 

(*cpp)->shm_cnattch++; 
cppp->shm_segbeg - pppp->shm_segbeg; 
cppp->shm_sflg * pppp->shm_sflg; 
cppp“>shm_seg - 0; 


shmfree - Decrement counts. Free segment and page tables if 
indicated. 


shmfree(sp) 

register struct shmid_ds 


*sp; /* shared memory header ptr */ 


register int size; 

if (sp NULL) 
return; 

sp-> shm_na11ch—; 

if (—(sp->shm_cnattch) “ 0 44 sp->shm_perm.mode 4 SHM_DEST) { 
size = btoc(sp->shm_segs 2 ); 
fifdef NONSCATLOAD 

mfree(COremap, size, (int)sp->shm_scat); 

felse 

memfree((int)sp->shm_scat); 

fendif 

/* adjust maxmem for amount freed */ 
maxmem += size; 
shmtot size; 

sp->shm__perm.mode - 0; 

if (((int) (++(sp->shm__perm.seq)*shminfo.shmmni + (sp - shmem))) < 0) 
sp->shm_perm.seq - 0; 


shmget - Shmget system call. 


shmget() 
{ 


register struct a { 
key_t key; 
int size, 

shmflg; 

} *uap « (struct a *)u.u_ap; 

register struct shmid_ds *sp; 

int s; 

register int size; 


/* shared memory header ptr */ 
/* ipcget status */ 


/*if (uap->size =“ 0) /* Bug *675 ... Paul */ 

/* return;*/ 

if ((sp ” (struct shmid_ds *)ipcget(uap->key, uap->shmflg, 

(struct ipc_perm *)shmem, shminfo.shmmni, sizeof(*sp), 4s)) — NULL) 
return; 

if (s) ( 

!* This is a new shared memory segment. Allocate memory and 
finish initialization. */ 

if (uap->size < shminfo.shmmin |1 uap->size > shminfo.shmmax) { 
u.u_error - EINVAL; 

3p->shm_perm.mode - 0; 
return; 

} 

size “ btoc(uap->size); 
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(shmtot + size > shminfo.shmall) 
u.u_error * ENQMEM; 
sp->shm_j>erni.mode = 0; 
return; 

>sha_segsz uap->sizs; 

((sp->shift_scat “ mallocCcoreiaap, 
u.u_error «= ENOMEH; 
sp->shnijperra.mode - 0; 
return; 


((sp->shm_scat -= niemalloc(size)) 
u.u__error - ENOMEM; 
sp->shiajjerm.mode » 0; 
return; 


{ 


size)) = 


— 0 ) { 


0) { 


#endif 

/* adjust maxmeiu for the segment */ 
maxmem ~= size; 
shmtot +- size; 


sp->shm_j)erm.raode )- SHM_CLEAR; 
sp->shm_nattch - 0; 
sp->shm_cnattch - 0; 
sp“>shm__atirae = 0; 
sp->shm_dtime =0; 
sp->shm_ctime = time; 
sp->shm_lpid = 0; 
sp->shm__cpid *• u. u_procp“>p_pid; 

} else 

if {uap->si 2 e &£ uap“>size > sp->shm_segsz) { 
u.u_error = EINVAL; 
return; 

} 

u.u_rvall = sp->shmjperm.seq * shminfo.shmmni + (sp - shmem); 

} 


shmsys -* System entry point for shmat, shmctl, shmdt, and shmget 
system calls. 


shmsys() 

{ 

register struct a { 
uint id; 

} *uap “ (struct a *)u.u_ap; 

int shmat (), 

shmctl (), 
shmdt(), 
shmget(); 

static int (*calls[])() - {shmat, shmctl, sliradt, shmget}; 


if (uap->id >3) { 

u.u_error - EINVAL; 
return; 

} 

u.u_ap - 4u.u_arg[1]; 
(*calls[uap->id])(); 


♦ifdef notdef 

shmreset(p, ub, pObr, pOlr) 
struct proc *p; 
struct user *ub; 
int *p0br, pOlr; 

{ 

register struct shmid_ds **sp; 
register struct shmpt_ds *pt; 
register i,j; 

register int *seg, shm, *pte; 


/* 

* do only if there is shared memory attached 


*/ 

if (p->p_srabeg 0) 
return; 

/* 

* clear unused pte's 


seg =- pObr + ub“>u_tsize + ub->u_dsize; 
for (i = ub->u_tsize + ub->u_dsize; i < pOlr; i++) 
*seg++ =0; 

move in the shared memory segments 


sp - &shm_shmem[i “ (p - proc)*shminfo.shmseg] ; 
pt =* &shm__pte[i] ; 

for (i - 0; i < shminfo.shmseg; i++, sp++, pt++) { 
if (shra = pt->shra_^segbeg) { 
seg =■ pObr + shm; 
pte - (int *)((*sp)->shm_ptbl); 
for (j - 0; j < btoc((*sp)->shm_segsz); j++) 

*S€g++ = *pte++ I PG_V I pt->shm_sflg; 


#ifdef notdef 

dumppte(pObr,pOlr,pllr,plbr) 
int *pQbr, pOlr, pllr, *plbr; 
{ 

register i; 


printf (“tsize %d, dsize %d\n'', u.u_tsize, u.u_dsi 2 e); 
printf(«p0br %x plbr %d\nplbr %x pllr %d\n\n",p0br,pOlr,plbr,pllr); 
for (i^O; i<p01r; i++) { 
if ((i%8) — 0) 

printf("Xn"); 
printf ("%x **, *p0br++); 

} 

printf("\n\n\n"); 

) 

#endif 
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/* e(#)sig.c 1.3 */ 

^include "sys/param.h" 

#include "sys/config.h" 

#include "sys/ramu-h" 

^include "sys/types.h" 
tincluds "sys/sysiaacros.h'' 

^include "sys/systia.h" 
iinclude "sys/dir.h" 

*include "sys/signa1.h” 

^include "sys/user.h” 

^include "sys/errno.h" 

^include "sys/procsh” 
tinclude “sys/inode.h" 

♦include "sys/file.h" 

♦include "sys/reg.h" 

♦include "sys/text.h“ 

♦include "sys/seg.h" 

♦include "sys/var.h" 

♦include "sys/psl.h" 

♦include "sys/scat.h" 

/* 

* Priority for tracing 

*/ 

♦define IPCPRI PZERO 
/* 

* Tracing variables. 

* Used to pass trace coimoand from 

* parent to child being traced. 

* This data base cannot be 

* shared and is locked 

* per user. 

*/ 

struct ipctrace 
{ 

int ip_data; 

int ip_lock; 

int ip_req; 

int *ip_addr; 

} ipc; 


/* 

* Send the specified signal to 

* all processes with 'pgrp' as 

* process group. 

* Called by tty.c for quits and 

* interrupts. 

*! 

signal(pgrp, sig) 
register pgrp; 

{ 

register struct proc *p; 


) 


if (pgrp =« 0) 
return; 

for(p =* iproc[l]; p < (struct proc *)v.ve_j)roc; p++) 
if (p->p_j)grp “ pgrp) 

psignal(p, sig); 


/* 

* Send the specified signal to 

* the specified process. 

*/ 

psignal(p, sig) 
register struct proc *p; 
register sig; 


sig—; 

if (sig < 0 i1 sig >- NSIG) 
return; 

if (((p->p_sigign » sig) & 1) sig i- (SIGCLD - 1)) 
return; 

p->P_sig != lL«sig; 


if (p->p_stat ““ SSLEEP && p->p_pri > PZERO) { 
if (p->p_pri > PUSER) 

p->p_pri * PUSER; 
setrun(p); 

} 


/* 

* Returns true if the current 

* process has a signal to process. 

* This is asked at least once 

* each time a process enters the 

* system. 

* A signal does not do anything 

* directly to a process; it sets 

* a flag that asks the process to 

* do something to itself. 

*/ 

issigO 

{ 

register n; 

register struct proc *p, *q; 

p = u.u_procp; 
while(p->p_sig) { 

n = fsig(p); 
if (n = SIGCLD) { 

if (u.u_signal[SIGCLD-1]&01) { 
for (q - fiprocCll; 
q < (struct proc *)v.ve_proc; q++) 
if (p->p_pid •=” <l->p_ppid 
q->p_stat SZQHB) 

freeproc(q, 0); 

} else if (u.u_signal[SIGCLD-13) 
return(n); 

} else if (n =- SIGPWR) { 

if (u.u_signal[SIGPWR-l] && (u.u_signal[SIGPWR-l]&1)==0) 
return(n); 

} else if ((u.u_signal[n-13&l) = 0 || (p->p_flag£STRC)) 
return(n); 

p->p_sig £= -{lL«{n-l)); 

} 

return{0); 


/* 

* Enter the tracing STOP state. 

* In this state, the parent is 

* informed and the process is able to 

* receive commands from the parent. 

*/ 

stop() 

{ 

register struct proc *pp, *cp; 

loop: 

cp =» u.u_procp; 
if (cp->p_ppid i= 1) 

for (pp = fiprocfO]; pp < (struct proc *)v.ve_proc; pp++) 
if (pp“>p_pid =- cp->p_ppid) { 
wakeup((caddr_t)pp); 
cp->p_stat - SSTOP; 
swtch(); 

if ((cp->p_flag&STRC)—0 M procxmtO) 
return; 
goto loop; 

} 

exit(fsig(u.u_procp)); 

/* 

* Perform the action specified by 

* the current signal. 

* The usual sequence is: 

* if (issigO) 

* psigU; 
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*/ 

psigO 

{ 

register n, p; 
register struct proc *rp; 

iifdef itLc68881 /* MCSS881 floating=poiiit coprocessor */ 

extern short fp881; /* is there an MC68881? */ 

♦endif mc68881 

rp u.u_procp; 

♦ifdef FLOAT /* sky floating point board */ 

if {u.u_fpinuse £& u.u_fpsaved“=Q) { 
savfp(); 

u.u_fpsaved » 1; 

♦endif 

#ifdef II1C68881 /* MC68881 floating-point coprocessor */ 

if (fp881) 

fpsave(); 

tendif mc68881 

if (rp->p_flag&STRC) 
stopO ; 
n fsig(rp); 
if (n=0) 

return; 

^P“>P_sig ~(lL«(n-l)); 
if ((p=u.u_signal[n-l]) J- 0) { 
if (p & 1) 

return; 

u.u_error =0; 

if (n !- SIGILL fiS n 1= SIGTRAP) 
u.u_signalEn-1] = 0; 
sendsig((caddr_t)p, n); 
return; 

switch(n) { 

case SIGQUIT: 
case SIGILL: 
case SIGTRAP: 
case SIGIOT: 
case SIGEHT; 
case SIGFPE: 
case SIGBUS; 
case SIGSEGV: 
case SIGSYS: 

if (coreO) 

n +* 0200; 

} 

exit(n); 


/* 

* find the signal in bit-position 

* representation in p_sig. 

*/ 

fsig(p) 

struct proc *p; 

{ 

register short i; 
register long n; 

n “ p->p_sig; 
i - NSIG - 1; 
do { 

if (n & IL) 

return(NSIG - i); 

n »- 1; 

} while (—i I- -1); 
return(0); 

} 

/* 

* Create a core image on the file "core” 

* It writes USIZE (v.v_usize) block of the 


user.h area followed by the entire 
data+stack segments. 


*/ 

core() 

( 

register struct inode *ip; 
register struct user *up; 
register s; 
extern schar(); 

up » &u; 

if (up->u uid i* up->u ruid) 
return(0); 
up->u_error = 0; 
up->u_dirp = "core”; 
ip - namei(schar, 1); 
if (ip — NULL) { 

if (up->u_error) 

return(0); 
ip = maknode(Q666); 
if (ip=*NULL) 


if ((access(ip, IWRITE) && (ip->ijiiode&IFMT) " IFREG) { 
itrunc(ip); 
up->u_offset = 0; 
up->u_base = (caddr_t)up; 
up->u_count “ ctob(V.v_usiz e); 
up->u_segflg “ 1; 

up->u_limit "= (daddr_t)ctod(MAXHEH); 
up->u_fmode »= FWRITE; 

/* make register pointer relative for adb */ 

“P“>u_ar0 •= (int *) ((int)up->u_ar0 - (int)up); 
up->u_usrtop - btoc(v.v_uend); 
writei(ip); 

up->u_ar0 = (int *)((int)up->u_ar0 + (int)up); 
s =* up->u_procp->p_size - v.v_usize; 

(void) estabur((unsigned)0, (misigned)s, (unsigned)0, 0, RO); 

up->u_base “ (caddr_t)v.v_ustart; 

up->u_count = ctob(s); 

up->u_segflg »■ 0; 

writei(ip); 

} else 

up->u_error - EACCES; 
iput(ip); 

return (up->u_error“0) ; 

} 

/* 

* grow the stack to include the SP 

* true return if successful. 

*/ 

*ifdef NONSCATLOAD 
grow(sp) 
unsigned sp; 

{ 

register struct user *up; 
register struct proc *p; 
register si, i, al; 

up - 4u; 

if ( (V. v_uend-sp) < ctob(up->u_ssize)) 
return(0); 

si - btoct(v.v_uend-sp) - up->u_ssize + SINCR; 
if (si <- 0) 

return(0); 

if (estabur(up->u_tsize, up->u_dsize, up->u_ssize+si, 0, RO)) 
return(0); 
p = up->u_procp; 
expand((int)(p->p_size+si)); 
al - p->p_addr + p->p_size; 
for(i-up->u_ssi 2 e; i; i—) { 
al—; 

copyseg(al-si, al); 

} 

for(i-si; i; i^—) 
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clearseg(—al); 
up->u_ssize +“ si; 
return(1); 

} 

ielse 
grow(spj 
unsigned sp; 

{ 

register struct user *up; 
register struct proc *p; 
register si, i, al; 
register struct scatter *s; 
register a2, n; 
short t; 


up - su; 

if ( (V. v_uend-sp) < ctQb(up->u__ssi2e)) 
return(0); 

si = btoct (v.y_uend-sp) - up'->u_ssize + SINCR; 
if (si <- 0) 

return(0); 

if (chksize(up->u_tsize, up“>u_dsize, up->u_ssize+si)) 
return(0); 
p = up->ujprocp; 
expand((int)(p->p_size+si)); 

/* 

* locate last click of old data size 
*! 

s - scatmap; 
al = p->p_scat; 
n ” v.v_usize + up->u_dsize; 
for (i-1; i<n; i++) 

al - s[al].sc_index; 

/* 

* locate last click of old stack 
*/ 

a2 = stall.sc_index; 
n = up->u_ssize; 
if (n — 0) 

printf ("grow:ssize not expected to be zero\n''); 
for (i-1; i<n; i++) 

a2 - s[a2].sc_index; 
i* 

* chain new clicks into stack space following data space 
*/ 

t = s[al].sc_index; 
s[al1.sc_index - s[a2].sc_index; 
n - si; 

for (i“0; i<n; i++) 

clearseg(ixtoc(al - s[al].sc_index)); 
if (s[al].sc_index i= SCATEND) 

printf(“grow failureXn"); 
s[al].sc_index = t; 
s[a2].sc_index - SCATEND; 
p->p_flag 4- -SCONTIG; 
up->u_ssize +- si; 

(void) estabur (up->u_tsize, up->>u_dsize, up->u_ssize, 0, RO) ; 
return(1); 

} 

#endif 


/* 

* sys-trace system call. 

*/ 

ptraceO 

{ 

register struct ipctrace *ipcp; 
register struct user *up; 
register struct proc *p; 
register struct a { 
int req; 

int pid; 

int *addr; 

int data; 

} *uap; 


up * &u; 

uap - (struct a *)up->u_ap; 
if (uap->req <- 0) { 

up->u_procp->p_flag I- STRC; 
return; 

} 

for (p=“proc; p < (struct proc *)v.ve_proc; p++) 
if (p->p_stat—SSTOP 
£& p->p_pid=«=uap->pid 
&& p->p_j>pid—up“>u_procp->p_pid) 
goto found; 
up->u_error - ESRCH; 
return; 

found: 

ipcp = iipc; 

while (ipcp->ip_lock) 

(void) sleep((caddr_t)ipcp, IPCPRI); 
ipcp->ip_lock = p->p_j)id; 
ipcp-->ip_data - uap->data; 
ipcp>->ip_addr - uap->addr; 
ipcp-->ip_req = uap->req; 
p->p_flag &— ~SWTED; 
setrun(p); 

while (ipcp->ip_r6q > 0) 

(void) sleep(<caddr_t)ipcp, IPCPRI); 
up->u_rvall - ipcp->ip_data; 
if (ipcp->ip_req < 0) 

up“>u_error - EIO; 
ipcp->ip_lock — 0; 
wakeup((caddr_t)ipcp); 

1 

/* 

* Code that the child process 

* executes to implement the command 

* of the parent process in tracing. 

*/ 

procxmt() 

{ 

register struct ipctrace *ipcp; 
register struct user *up; 
register int i; 
register *p; 

register struct text *xp; 

up - &u; 
ipcp = &ipc; 

if (ipcp“>ip_lock 1“ up-“>u_j)rocp->p_pid) 
return(0); 
i - ipcp->ip_req; 
ipcp->ip_req - 0; 
wakeup((caddr_t)ipcp); 
switch (i) ( 

/* read user I */ 
case 1: 

ipcp->ip_data - fuiword((caddr_t)ipcp->ip_addr); 
break; 

/* read user D */ 
case 2: 

ipcp“>ip_data - fuword((caddr_t)ipcp->ip_addr); 
break; 

/* read u */ 
case 3: 

1 - (int)ipcp->ip_addr; 
if (i<0 M i >“ ctob{v.v_usize)) 
goto error; 

ipcp->ip_data - *((int *)((char *)up + (i & ~1))); 
break; 

/* write user I */ 

/* Must set up to allow writing */ 
case ,4 : 
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/* 

* If text, must assure exclusive use 
*/ 

if (xp - up->u_procp->p_textp) { 

if (xp“>x_countI“1 j I xp-->x_iptr->i_mode&ISVTX) 
goto error; 

xp->x_iptr->i_flag &- -ITEXT; 

} 

(void) estabur (up-->u_tsi 2 e, up->u_dsi 2 e, up->u_ssi 2 e, 0, RW) ; 
i = suiword( (caddr__t)ipcp->ip_addr, 0) ; 

(void) suiword((caddr_t)ipcp->ip_addr, ipcp->ip_data); 

('/oid) estabur (up->u_tsi 2 e, up->u_dsi 2 e, up->u_ssi 2 e, 0, RO) ; 
if (i<0) 

goto error; 

if (xp) 

xp->x_flag 1= XWRIT; 

break; 

/* write user D */ 
case 5: 

if (suword({caddr_t)ipcp->ip_addr, 0) < 0) 
goto error; 

(void) suword((caddr_t)ipcp“>ip_addr, ipcp->ip_data); 
break; 

/* write u */ 
case 6: 

i - (int)ipcp->ip_addr; 
p * (int *)((char *)up + (i « -1)); 
for (i-0; i<17; i++) 

if (p “ 4up->u_ar0[regloc[i]]) 
goto ok; 

if (p =” &up->u_arQtRPS]) { 

/* assure user space and priority 0 */ 
ipcp->ip_data &- -0x2700; 
goto ok; 

} 

goto error; 

ok: 

*p « ipcp->ip_data; 
break; 

/* set signal and continue */ 

/* one version causes a trace-trap */ 
case 9: 

up->u_ar0[RPS] I- PS_T; 

case 7: 

if ((int)ipcp->ip_addr '= 1) 

up->u_ar0[PC] ” (int)ipcp->ip_addr; 
up->ujprocp->p_sig - OL; 
if (ipcp->ip_data) 

psignal(up->u_procp, ipcp->ip_data); 
return(1); 

/* force exit */ 
case 8: 

exit(fsig(up“>u_procp)); 

/* read u registers */ 
case 10: 

if ((i “ (int)ipcp->ip_addr) <0 il i > 17) 
goto error; 
if (i — 17) 

ipcp->ip_data - up->u_ar0[regloc[17]] & OxFFFF; 

else 

ipcp->ip_data - up->u_ar0[regloc[i]]; 

break; 

/* write u registers */ 
case 11: 

if ((i “ (int)ipcp->ip_addr) <0 || i > 17) 
goto error; 
if (i — 17) { 

ipcp->ip__data i- -0x2700; 


/* user only */ 


up->u_ar0[regloc[17]] * 

(up->u_ar0[regloc[17]] & -OxFFFF) 1 
(ipcp->ip_data & OxFFFF); 

} else 

up->u_ar01 regloc[i]] = ipcp->ip_data; 

break; 

default: 

error: 

ipcp->ip_req - -1; 

} 

return(0); 
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/* 

* Copyright 1982 UniSoft Corporation 

lie 

* Speaker Driver 

* Used to operate the lisa speaker. 

*/ 

♦include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/types.h" 

♦include •‘sys/systm.h" 

♦include "sys/dir.h" 

♦include “sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/file.h" 

♦include "sys/tty.h" 

♦include "sys/termio.h" 

♦include **sys/conf .h" 

♦include "sys/sysinfo.h** 

♦include "sys/var.h” 

♦include "sys/reg.h" 

♦include "sys/callo.h" 

♦include "sys/ttold.h" 

♦include "setjmp.h** 

♦include "sys/imu.h” 

♦include "sys/cops.h” 

♦include "sys/local.h" 

♦include "sys/speaker.h" 

♦include '*sys/12.h‘* 

typedef unsigned long u_long; 

u_long sktrap; /* flag and slot to calculate spkr delay */ 

int sk_open; /* active flag */ 

♦define SKPRI (PZERO+8) 

skopen<dev, flag) 
dev_t dev; 

{ 

if (dev != 0) { /* minor device number is wrong */ 

u.u_error * ENXIO; 
return; 

} 

if (flag “ 1) { /* open for reading 2? */ 

u.u__error = EINVAL; 
return; 

} 

if (sk_open++ > Q) ( /* already opened */ 

u.u_error - EBUSY; 
return; 

} 

} 


/* ARGSUSED */ 
skclose(dev, flag) 

{ 

if (sk_open <«« 0) 

u.u_error = EINVAL; 

else 


} 


sk_open =■ 0; 


/* ARGSUSED */ 
skwrite(dev) 


struct speaker spkr; 


while (u.ucount >- sizeof(spkr)) { 

if (copyin(u.u_base, (caddr_t)&spkr, sizeof(spkr))) { 
u.u_error - EFAULT; 
return; 

u.u_base +- sizeof(spkr); 
u.u_count —» sizeof(spkr); 

SPL2 0 ; 


while (sktrap) 

(void) sleep((caddr_t)4sktrap, SKPRI); 

COPSADDR->e_irb - (COPSADDR”>e_irb & OxFl) | ((spkr.sk_volume47) « 1); 
sksound(spkr.sk_wavlen&MAXWLEN, spkr.sk_duration); 

SPLOO; 

} 

} 

/* Produce a sound on the speaker at wavelength w microseconds 

* for duration d clock ticks 
*/ 

sksound(w, d) 
register unsigned w, d; 

{ 

extern int skquiet(); 

w &= MAXWLEN; /* max wavelength */ 

if (w < HINWLEN) 

W - HINWLEN; 

sktrap = d; /* call skquiet at now + d */ 

if (sktrap <= 0) sktrap =1; /* in case < HILLIRATE */ 

timeout(skquiet, (caddr_t)0, (int)sktrap); 
sktone (w); 

} 

/* Start a tone at wavelength w microseconds. Sound is produced by rapidly 

* turning on and off the speaker. The 6522 cops chip has an output to the 

* speaker connected to a shift register. A built in timer controls the rate 

* at which the shift register bits are output to the speaker. 

*/ 

sktone(w) 

register unsigned w; 

{ 

register struct device_e *p - COPSADDR; 

register int cmd - 0x55; /* sk shift reg */ 

w = w » 3; /* wavelength resolution is 8 microseconds */ 

if (w > OxFF) { 

cmd = 0x33; 
w =* w » 1; 
if (w > OxFF) { 

cmd = OxF; 
w “ w » 1; 

} 

} 

p->e_acr I- 0x10; /* enable */ 

p->e_t2cl = w; /* set timer */ 

P“>e_sr - cmd; /* set output pattern */ 

} 

skquiet() 

{ 

struct device_e *p = COPSADDR; 
p->e_acr 4- 0xE3; 
sktrap =» 0; 

wakeup((caddr_t)4sktrap); 

} 

beep() 

{ 

int sp; 

if (sktrap) return; 
sp =*■ spl2 0 ; 

COPSADDR->e_irb - (COPSADDR->e_irb 4 OxFl) | (12_bvol « 1); 
sksound((unsigned)12_bpitch, (unsigned)12_btime); 
splx(sp); 

} 

♦ifdef notdef 
/* 

* Produce a short click to implement keyboard clicking 
*/ 

click 0 
{ 

register struct device_e *p - COPSADDR; 
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int i ” 20; 
int sp; 

if (sktrap) return; 
sp - spl2(); 
p-’>e_acr I- 0x10: 
P“>e_t2cl = 0x10; 
P“>e_sr ”= 0x55; 
while (—i i= ~1) ; 
p->e__acr 4= 0xE3; 
splx(sp); 

} 

#endif 



slp.c 


Fri Sep 5 19:08:24 1986 


1 


/* e(#)sip.c 1.8 */ 

^include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/mmu.h*' 

♦include "sys/types.h" 

♦include "sys/sysmacros.h" 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/proc.h" 

♦include "sys/context.h" 

♦include "sys/text-h*' 

♦include "sys/systm.h" 

♦include "sys/sysinfo.h” 

♦include "sys/map.h” 

♦include "sys/file.h" 

♦include "sys/inode.h" 

♦include "sys/buf.h" 

♦include "sys/var.h" 

♦include "sys/ipc.h" 

♦include "sys/shm.h" 

♦include "sys/errno.h" 

♦include "sys/scat.h" 

typedef int mera_t; 

♦define NHSQUE 64 /* must be power of 2 */ 

♦define sqhash(X) (&hsque[((int)(X) » 3) & (NHSQUE-1)]) 

struct proc *hsque[NHSQUE]; 

char runin, runout, runrun, curpri; 

struct proc *curproc, *riinq; 

/* 

* sleep according to a cpu adjusted priority 

*/ 

asleep(chan, pri) 
caddr_t chan; 

{ 

return(sleep(chan, pri + ((u.u_procp->p_cpu&QxFF) » 5))); 

/* 

* Give up the processor till a wakeup occurs 

* on chan, at which time the process 

* enters the scheduling queue at priority pri. 

* The most important effect of pri is that when 

* pri<-PZERO a signal cannot disturb the sleep; 

* if pri>PZERO signals will be processed. 

* Callers of this routine must be prepared for 

* premature return, and check that the reason for 

* sleeping has gone away. 

*l 

♦define TZERO 10 
sleep(chan, disp) 
caddr_t chan; 

{ 

register struct proc *rp - u.u_procp; 

register struct proc **q - sqhash(chan); 

register s; 

s - splhi(); 

if (panicstr) ( 

SPLOO ; 
splx(s) ; 
return(0); 

} 

rp->p_3tat - SSLEEP; 

rp->p_wchan - chan; 

rp->p_link - *q; 

*q - rp; 

if (rp->p_time > TZERO) 

rp->p_time - TZERO; 

if ( (rp->p__pri « (dispiPMASK) ) > PZERO) { 
if (rp->p_sig && issigO) { 
rp'->p_wchan - 0; 
rp->p_stat - SHUN; 


*q - rp->p_link; 

SPLO (); 
goto psig; 

} 

SPLOO ; 

if (runin i- 0) { 
runin - 0; 

wakeup((caddr_t)irunin); 

} 

SWtch(); 

if (rp->p_sig && issigO) 
goto psig; 

{ 

SPLOO ; 

SWtch{); 


splx(s); 
return(0); 


* If priority was low (>PZERO) and there has been a signal, 

* if PCATCH is set, return 1, else 

* execute non-local goto to the qsav location. 

*/ 

psig: 

splx(s); 

if (disp&PCATCH) 

return(1); 

♦ifdef NONSCATLOAD 

resume (u. u__procp->p_addr, u. u_qsav); 

♦else 

resume(ixtoc(u.u_procp->p_scat), u.u_qsav); 

♦endif 

/* NOTREACHED */ 


* Nake up all processes sleeping on chan. 

*/ 

wakeup(chan) 
register caddr_t chan; 

{ 

register struct proc *p; 
register struct proc **q; 
register s; 

s = splhi(); 

for <q =- sqhash(chan); p = *q; ) 

if (p->p_wchan-*chan £& p->p_stat*=SSLEEP) ( 

P“>p_stat - SRUN; 
p->p__wchan = 0; 

/* take off sleep queue, put on run queue */ 

*q = p->p_link; 
p->p_link = runq; 
runq - p; 

if (!(p->p_flag4SLOAD)) { 
p->p_time = 0; 

/* defer setrun to avoid breaking link chain */ 
if (runout > 0) 

runout “ -runout; 

} else if (p->p_pri < curpri) 
runrun++; 

} else 

q “ 4p->p_link; 
if (runout < 0) { 

runout - 0; 
setrun(&proc[0]); 


setrq(p) 

register struct proc *p; 


register struct proc *q; 
register s; 
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s - splhi(); 

forCq-rtinq; q'-NULL; q=q->p_link) 
if <q p) { 

printfC'proc on q\n"); 
goto out; 

} 

p->p_link “ rung; 
rung = p; 

out: 

splx(s); 


/* 

* Set the process running; 

* arrange for it to be swapped in if necessary. 

*/ 

setrun (p) 

register struct proc *p; 

{ 

register struct proc **q; 
register s; 

s - splhi(); 

if (p->p_stat = SSLEEP) { 

/* take off sleep queue */ 

for (q - sqhash(p->p_wchan); *q i= p; q = 4(*q)->p_link) ; 
*q = p->p_link; 
p->p_wchan = 0; 

} else if (p->p_stat = SRUN) { 

/* already on run queue - just return */ 

splx(s); 

return; 

} 

/* put on run queue */ 
p->p_stat * SRUN; 
p->p_link “ rung; 
rung = p; 

if (1 (p'->p_flag&SI/DiAD)) { 
p->p_time =0; 
if (runout > 0) { 

runout = 0; 
setrun(4proc[0]}; 

} 

} else if (p->p_pri < curpri) 
runrun++; 

splx(s); 

} 

/* 

* The main loop of the scheduling (swapping) process. 

* The basic idea is: 

* see if anyone wants to be swapped in; 

* swap out processes until there is room; 

* swap him in; 

* repeat. 

* The runout flag is set whenever someone is swapped out. 

* Sched sleeps on it awaiting work. 

* 

* Sched sleeps on runin whenever it cannot find enough 

* memory (by swapping out or otherwise) to fit the 

* selected swapped process. It is awakened when the 

* memory situation changes and in any case once per second. 

*/ 

sched{) 

{ 

register struct proc *rp, *p; 
register outage, inage; 
int maxbad; 
int tmp; 

/* 

* find user to swap in; 

* of users ready, select one out longest 
*/ 


loop; 

SPL6(); 

outage = -200Q0; 

♦ifdef NONSCATLOAD 

for (rp “ 4proc[03; rp < (struct proc *)v.ve_j)roc; rp++) 
if (rp->p_stat>=SRUN 4& (rp->p_flag£SLaAD) Q 44 
rp->p_time > outage) { 
p - rp; 

outage =• rp“>p_time; 

} 

#else 

for (rp - 4proc[03; rp < (struct proc *)v,ve_j)roc; rp++) 
if ((rp->p_flag4(SSffAPIT)SLOAD)) — (SSWAPITISLOAD)) { 
p - rp; 

SPLOO; 
goto swapit; 

} else if (rp->p_stat=“SRUN 44 (rp“>p_flag4SIjOAD) = 0 44 
rp->p_time > outage) { 
p = rp; 

outage = rp->p_time; 

} 

#endif 

/* 

* If there is no one there, wait. 

if (outage ==■ -20000) { 
runout++; 

(void) sleep((caddr_t)4runout, PSWP); 
goto loop; 

} 

SPLOO ; 

/* 

* See if there is memory for that process; 

* if so, swap it in. 

*/ 

if (swapin(p)) 

goto loop; 

/* 

* none found. 

* look around for memory. 

* Select the largest of those sleeping 

* at bad priority; if none, select the oldest. 

*/ 

SPL6(); 
p = NULL; 
maxbad *0; 
inage = 0; 

for (rp - 4proc[0]; rp < (struct proc *)v.ve_proc; rp++) { 
if (rp->p_stat==SZOMB 1 I 

(rp->p_flag4(SSYS|SLOCK|SLOAD))i=SLOAD) 
continue; 

if (rp->p_textp 44 rp->p_textp->x_flag4XLOCK) 
continue; 

if {rp->p_stat—SSLEEP 1 | rp->p_stat—SSTOP) { 
tmp - rp->p_pri - PZERO + rp->p_time; 
if (maxbad < tmp) ( 
p “ rp; 
maxbad - tmp; 

} 

> else if (maxbad<-0 44 rp->p_stat—SRUN) { 

tmp “ rp->p_time + rp->p_nice - NZERO; 
if (trap > inage) { 
p - rp; 
inage « tmp; 

} 

) 

1 

SPLOO; 

/* 

* Swap found user out if sleeping at bad pri, 

* or if he has spent at least 2 seconds in memory and 

* the swapped-out process has spent at least 2 seconds out. 
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* Otherwise wait a bit and try again. 

*/ 

if {raaxbad>0 || (outage>”2 && inage>-2)) { 
iifndef NONSCATLOAD 
swapit; 

lendif 

p->p_flag &= ~SLOAD; 
xswapCp, 1, 0); 
goto loop; 

} 

SPL6() ; 
runin++; 

(void) sleep((caddr__t) firunin, PSWP); 
goto loop; 

} 

/* 

* Swap a process in. 

*/ 

fifdef NONSCATLQAD 
swapin(p} 

register struct proc *p; 

{ 

register struct text *xp; 
register int a, x; 
int ta; 

if ((a = inalloc(coremap, p“>p_si 2 e)) ”=■ NULL) 
return(0); 

if (xp - p-->p_textp) { 
xlock(xp); 

if {Ixmlink(xp) && xp->x_ccount=«=0) { 

if ( (X - malloc(coremap, xp->x_size) ) NULL) { 
mfree(CQremap, p->p__si2e, a); 

if ((x = malloc(coremap, xp“>x_si 2 e)) = NULL) { 
xunlock(xp); 
return(0); 

} 

if ((a = malloc (coremap, p->p_size)) -=» NULL) { 
mfree(coremap, xp->x_size, x); 
xunlock(xp); 
return(0); 

} 

} 

xp->x_caddr = x; 

if ((xp->x_flag4XLOAD)-“0) 

swap(xp->x_daddr, x, xp->x_size, B_READ); 

} 

xp->x_ccount++; 
xunlock(xp); 

} 

if (p->p_xaddr[0]) { 
ta =« a; 

for (x-0; X < NSCATSWAP; x++) { 
if (p->p_xaddr [X] — 0) 
continue; 

swap(p->p_xaddr[x], a, p->p_xsi 2 e[x], B_READ); 

mfree(swapmap, ctod(p->p_xsize[x]), (int)p->p_xaddr[x]); 

a +=■ p->p_xsize [x] ; 

p->p_xaddr[x] - 0; 

} 

p->p_addr - ta; 

} else { 

swap((daddr_t)p->p_dkaddr, a, p->p_size, B_READ); 
mfree(swapmap, ctod(p->p_size), (int)p->p_dkaddr); 

” a; 

) 

cxrelse {p->p__context) ; 
p->p_flag !- SLOAD; 
p->p_time - 0; 
return(1); 

} 

telse 

swapinip) 

register struct proc *p; 
i 


register struct text *xp; 
register int a, x; 
int ta; 

if (p->p_flag4SCONTIG) { 

if ({a « cmemalloc(p->p_size)) — NULL) 
return(0); 

} else if ((a =■ memalloc(p->p_size)) NULL) 
return(0); 

if (xp = p->p_textp) { 
xlock(xp); 

if ([xmlin.k(xp) xp->x_ccoun.t=“Q) { 

if ( (X - memalloc(xp->x_si 2 e)) =“ NULL) { 
raerafree (a) ; 
xunlock(xp); 
return(0); 

} 

xp->x_scat “ x; 

if ((xp->x_flag&XLQAD)“0) 

(void) swap(xp->x_daddr, x, xp->x_size, B_READ) 

} 

xp->x_ccount++; 
xunlock(xp); 

} 

p->p_flag 1= SNOMMU; /* swapping in, do not set mmu registers */ 
if (p->p_xaddr[0]) { 
ta - a; 

for (x-*0; X < NSCATSWAP; x++) { 
if (p“>p_xaddr[x] —= 0) 
continue; 

a = swap(p->p_xaddr[x], a, p->p_xsi 2 e[x], B_READ); 
mfree(swapmap, ctod(p->p_xsize[x3), (int)p->p_xaddr[x]) 
P”>p_xaddr'[x3 “ 0; 

} 

p->p_scat - ta; 

} else { 

(void) swap((daddr_t)p->p_dkaddr, a, p->p_size, B_READ); 
mfree(swapmap, ctod(p->p_size), (int)p->p_dkaddr); 

P“>P_scat “ a; 

} 

p->>p_flag 4- -SNOMMU; 
p->p__addr - ixtoc(p->p_scat) ; 
cxrelse(p->p_context); 
p-->p_flag 1= SLOAD; 
p->p_time =0; 
return(1); 

} 

+endif 

/* 

* put the current process on 

* the Q of running processes and 

* call the scheduler. 

*/ 

qswtch() 

{ 

setrq(u.u_j)rocp) ; 
swtch(); 


/* 

* This routine is called to reschedule the CPU, 

* if the calling process is not in RUN state, 

* arrangements for it to restart must have 

* been made elsewhere, usually by calling via sleep. 

* There is a race here. A process may become 

* ready after it has been examined. 

* In this case, idle() will be called and 

* will return in at most IHZ time. 

* i.e. its not worth putting an spl() in. 

*/ 

swtch() 

{ 

register n; 

register struct proc *p, *q, *pp, *pq; 

♦ifdef rac68881 /* MC68881 floating-point coprocessor */ 
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extern short fp881; 
mc68881 


/* is there an MC68S81? */ 


* If not the idle process, resume the idle process. 
*/ 

sysinfo.pswitch++; 
if (u.u_procp i- 4proc[0]) { 
if (save(u.u_rsav)) { 
suregO; 
return; 

) 

FLOAT /* sky floating point board */ 

if (u.u_fpinuse && u.u_fpsaved-=»0) { 
savfp{); 

u.u_fpsaved - 1; 


/* MC68881 floating-point coprocessor */ 
if (fp881) 

fpsaveO ; 


mc68S81 

NONSCATLOAD 


resume (proc [0 ],p_addr, u-u__qsav) ; 
resime (ixtoc (proc [0].p_scat), u.u_qsav) ; 


* The first save returns nonzero when proc 0 is resumed 

* by another process (above); then the second is not done 

* and the process-search loop is entered. 

* 

* The first save returns 0 when svftch is called in proc 0 

* from schedO . The second save returns 0 immediately, so 

* in this case too the process-search loop is entered. 

* Thus when proc 0 is awakened by being made runnable, it will 

* find itself and resume itself at rsav, and return to schedO. 
*/ 

if (save (u.u_qsav) =-“0 4* save (u.u_rsav)) 
return; 

SPL6{) ; 
runrun - 0; 
f* 

* Search for highest-priority runnable process 
*/ 

if (p ■=> rung) { 

q = NULL; 
pp - NULL; 
n “ 128; 
do { 

if ((p->p_flag4SLOAD) && p->p_pri <- n) { 
pp - p; 

pq “ q; 
n “ p->p_pri; 

} 

q - p; 

} while (p - p->p_link); 


* If no process is runnable, idle. 

V 

if (pp — NULL) { 

curpri « PIDLE; 
curproc « 4proc[0]; 
idleO; 
goto loop; 


P " pp; 

q - pq; 

if (q — NULL) 

rung - p->p_link; 

else 

q->p_link - p->p_link; 


curpri - n; 
curproc « p; 

SPLOO ; 

/* 

* The rsav (ssav) contents are interpreted in the new address space 
*/ 

n = p->p_flag&SSWAP; 
p->p_flag 4- -SSWAP; 

#ifdef NONSCATLOAD 

resume(p->p_addr, n? u.u_ssav: u.u_rsav); 

♦else 

resume(ixtoc(p->p_scat)- n? u,u_ssav: u=u_rsav); 

♦endif 

} 

/* 

* Create a new process— the internal version of 

* sys fork. 

* It returns 1 in the new process, 0 in the old. 

*/ 

newproc(i) 

{ 

register struct proc *rpp, *rip; 

register struct user *up; 

register n; 

register a; 

struct proc *pend; 

static mpid; 

/* 

* First, just locate a slot for a process 

* and copy the useful info from this process into it. 

* The panic “cannot happen" because fork has already 

* checked for the existence of a slot. 

*/ 

up - 4u; 
rpp - NULL; 

retry: 

mpid++; 

if (mpid >= MAXPID) { 
mpid - 0; 
goto retry; 

} 

rip - 4proc[0]; 

n “ (struct proc *)v.ve_j)roc - rip; 
a - 0; 
do { 

if (rip->p_stat =- NULL) { 
if (rpp == NULL) 

rpp ” rip; 
continue; 

} 

if (rip->p_pid==mpid) 
goto retry; 

if (rip->p_uid “= up->u_ruid) 
a++; 

pend - rip; 

} while(rip++, —n); 
if (rpp—NULL) { 

if ((struct proc *)v.vejproc >- 4proc[(short)v.v_proc]) { 
if (i) { 

syserr.procovf++; 
up->u_error - EAGAIN; 
return(-1); 

) else 

panic("no procs"); 

} 

rpp - (struct proc *)v.ve_proc; 

} 

if (rpp > pend) 

pend - rpp; 

pend++; 

♦ifdef lint 

v.ve_proc - pend; 

♦else 

v.ve__proc - (char *)pend; 
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♦endif 

if (up->u_uid && up->u_ruid) { 

if (rpp “= &proc[(short)(v.v_proc-l)] || a > v.v_maxup) { 
up->u_error == EAGAIN; 
return(-1); 

} 

/* 

* make proc entry for new proc 
*/ 

rip - up->u_procp; 
rpp->p_stat - SRUN; 
rpp->p_clktim =» 0; 
rpp->p_flag = SLQAD; 
rpp->p_uid “ rip->p_uid; 
rpp->p__suid - rip“>p_suid; 
rpp->p_j>grp = rip->p_pgrp; 
rpp''>p_nice - rip->p_nice; 
rpp-*>p_textp = rip->p_textp; 

^P-^PJpid “ mpid; 

rpp->p_j>pid =» rip->p_pid; 

rpp->p_time = 0; 

rpp->p_cpu - rip~>p_cpu; 

rpp->p_sigign - rip“>p_sigign; 

rpp->p_pri = FUSER + rlp->p__nice - NZERO; 

♦ifndef NONSCATLQAD 

rpp->p_scat = rip“>p_scat; 

#endif 

rpp->p_addr = rip->p_addr; 
rpp->p_size = rip->p_size; 

/* 

* make duplicate entries 

* where needed 
*/ 

for(n=0; n<NOFILE; n++) 

if (up->u_ofile[n] 1= NULL) 

up->u_ofile [n] ->f_Gount++; 
if (rpp->p_textp i= NULL) ( 

rpp->p__textp->x_count++; 
rpp~>p_textp->x_ccount++; 

} 

up“>u_cdir->i_count++; 
if (up->u_rdir) 

up->u_rdir->i_count++; 

shmfork(rE^, rip); 

/* 

* Partially simulate the environment 

* of the new process so that when it is actually 

* created (by copying) it will look right. 

*/ 

up->u_procp “ rpp; 
curproc - rpp; 

/* 

* When the resume is executed for the new process, 

* here's where it will resume. 

*/ 

if (save(up->u_ssav)) { 
sureg(); 
return(1); 

) 

/* 

* If there is not enough memory for the 

* new process, swap out the current process to generate the 

* copy. 

*/ 

if (procdup(rpp) NULL) ( 
rlp->p_stat - SIDL; 
xswap(rpp, 0, 0); 
rip->p_stat - SRUN; 

) 

up->u_procp ” rip; 


/* only do if not scheduler */ 


curproc - rip; 
if (rip !■=>= fiproc[0]) 
sureg(); 
setrq(rpp); 
rpp“>p_flag I- SSWAP; 
up->u_rYall “ rpp->p_pid; /* parent returns pid of child */ 

return(0); 


/* 

* Change the size of the data+stack regions of the process. 

* If the size is shrinking- it's easy— just release the extra core. 

* If it's growing, and there is core, just allocate it 

* and copy the image, taking care to reset registers to account 

* for the fact that the system's stack has moved. 

* If there is no memory, arrange for the process to be swapped 

* out after adjusting the size requirement— when it comes 

* in, enough memory will be allocated. 

* After the expansion, the caller will take care of copying 

* the user's stack towards or away from the data area. 

*/ 

fifdef NONSCATLOAD 
expand(newsize) 
register newsize; 

{ 

register struct proc *p; 
register al, a2; 
register i, n; 


p - u.u_procp; 
n - p->p_size; 
p~>p_size = newsize; 
if (n " newsize) 
return; 
al ” p->p_addr; 
if (n >= newsize) { 

EXPANDTRACE 

printf("expand:shrinking process by %d clicks\n", n-newsize); 

mfree(coremap, (mem_t)(n-newsize), {men_t)(al+newsize)); 
return; 

} 

if (save(u.u_ssav)) { 
sureg(); 
return; 

/* 

* See if can just expand in place 
*/ 

a2 *= mallocat (coremap, newsize-n, (mem_t) (al+n)) ; 
if (a2 != NULL) { 

EXPANDTRACE 

printf("expanding in place by %d clicks at click %d\n", 
newsize-n, al+n); 

cxrelse(p->p_context) ; 

sureg0; 

return; 


* Will we be releasing shared text space anyway. 

* If so, then release it now and try in place 

* expansion again. 

*/ 

if ((a2 - domall(coremap, (mem_t)newsize)) — NULL) 
if (xmrelseO) 

goto loop; 

if (a2 NULL && (a2 “ malloc(coremap, (mem_t)newsize)) — NULL) { 
EXPANDTRACE 

printf("expand:calling xswap\n"); 


xswap(p, 1, n); 
p->p_flag 1- SSHAP; 
qswtch(); 
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/* no return */ 

} 

p->p_addr = a2; 
for(i‘“0; i<n; i++) 

copyseg(al+i, a2+i); 

#ifdef EXPANDTRACE 

printf("expand:copyseg %d from 0x%x to 0x%x\n", n, al, a2); 

iendif 

mfree(coremap, (raem_t)n, (mem_t)al); 
cxrelse(p->p_context); 
resume((mem_t)a2, u.u_ssav); 

} 

#else 

expand(newsize) 
register newsize; 

register struct scatter *s; 
register struct proc *p; 
register al, a2; 
register i, n; 
int t; 

p = u.u_procp; 
n = p->p_size; 

P“>p_size = newsize; 
if (n “ newsize) 
return; 
s “ scatmap; 
al “ p->p_scat; 
if (n >=* newsize) { 

/* 

* shrink memory 
*/ 

for (i='l; i<newsize; i++) 

al - s[al].sc_index; 
t => scatfreelist.sc_index; 
scatfreelist.sc_index = s[al].sc_index; 
i = al; 

while ((a2 - s[al].sc_index) 1= SCATEND) 
al - a2; 

s[i].sc_index = SCATEND; 
s[al].sc_index - t; 
nscatfree +=• n-newsize; 

/* 

* Wake scheduler when freeing memory 
*/ 

if (riinin) { 

runin =»= 0; 

wakeup( (caddr_t) firunin); 

1 

return; 

} 

if (save(u.u_ssav)) { 
sureg(); 
return; 

} 

/* 

* expand memory 
V 

if (a2 - meraalloc(newsi 2 e-n)) { 

/* printf("expanding from %d clicks to %d clicks\n", 
n, newsize); */ 
for (i-1; i<n; i++) 

al = s[al].sc_index; 
if (s[al].sc_index 1- SCATEND) 

print f ("expand: SCATEND expected\n") ; 
s[al] . 3C_index «« a2; 
return; 

} 

xswap(p, 1, n) ; 
p->p_flag 1= SSWAP; 
qswtch () ; 

/* no return */ 

♦endif 


tifndef NONSCATLOAD 
checkscat(s) 
char *s; 

{ 

register struct proc *p; 
register struct text *xp; 
register i; 


} 


i - countscat(scatfreelist.sc_index); 

printf("%s nscatfree-%d actual*%d\n", s, nscatfree, i); 
if (nscatfree < 30) { 

printf(" freelist chain is ") ; 
dumpscat (scatfreelist. sc__index) ; 

} 

for (p = sproc[0]; p < (struct proc *)v.ve_j)roc; p++) { 
if (p->p_stat—*0) 
continue; 
xp = p->p_textp; 

printfC pid=%d %d used (%d text)\n", 
p->p_j)id, countscat (p->p_scat), 
xp 2 countscat(xp->x_scat) : 0); 
dimpscat (p~>p_scat); 
if (xp) { 

dumpscat(xp“>x_scat); 

} 


} 


dumpscat(al) 
register al; 

{ 

register struct scatter *s; 


s ” scatmap; 
printf{« "); 
while (al [= SCATEND) { 

printf(" %d,%x«, al, ixtoc(al)); 
al “ s[al]-sc_index; 


printf("\n"); 


countscat(al) 
register al; 

{ 

register struct scatter *s; 
register i; 


i = 0; 

s = scatmap; 

while (al SCATEND) { 

al - s[al] ,sc__index; 
i++; 

} 

return(i); 

} 

♦endif 
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/* socket.c 1.3 84/11/02 */ 

^include "sys/param.h" 

^include "sys/config-h*‘ 

♦include "sys/errno.h" 

♦include "sys/types.h" 

♦include "sys/sysmacros.h* 

♦include "sys/systm.h** 

♦include "sys/dir.h" 

♦include "sys/termio.h” 

♦include "sys/signal.h" 

♦include •sys/user.h" 

♦include "sys/proc.h" 

♦include "sys/file.h" 

♦include "sys/inode.h“ 

♦include "sys/buf.h“ 

♦include "net/misc.h* 

♦include "net/mbuf .h** 

♦include "net/protosw.h” 

♦include "net/socket.h" 

♦include "net/socketvar.h" 

♦include "net/ubavar.h” 

♦include "sys/stat-h" 

♦include "sys/ioctl.h" 

♦include '•net/in.h" 

♦include *'net/in_systin.h” 

♦include “net/route.h" 

/* 

* Socket support routines. 

* 

* DEAL WITH INTERRUPT NOTIFICATION. 

*/ 

/* 

* Create a socket. 

*/ 

socreate(aso, type, asp, asa, options) 
struct socket **aso; 
int type; 

struct sockproto *asp; 
struct sockaddr *asa; 
int options; 

{ 

register struct protosw *prp; 
register struct socket *so; 
int pf, proto, error; 

/* 

* Use process standard protocol/protocol family if none 

* specified by address argument. 

*/ 

if (asp -= 0) { 

pf - PF_INET; /* should be u.u_j>rotof */ 

proto =■ 0; 

} else { 

pf “ asp->sp_family; 
proto - asp“>sp_j)rotocol; 

} 

/* 

* If protocol specified, look for it, otherwise 

* for a protocol of the correct type in the right family. 

*/ 

if (proto) 

prp - pffindproto(pf, proto); 

else 

prp - pffindtype(pf, type); 
if (prp — 0) 

return (EPROTONOSUPPORT); 

/* 

* Get a socket structure. 

V 

MSGET(so, struct socket, 1); 
if (so — 0) 


return (ENOBUFS); 
so->so_optiQns - options; 
so->so_state =0; 
if (u.u_uid =“ 0) 

so->so state = SS PRIV; 


* Attach protocol to socket, initializing 

* and reserving resources. 

*/ 

so->so__proto « prp; 

error - (*prp->pr_usrreg)(so, PRU_ATTACH, 0, asa); 
if (error) { 

♦ifdef NEVER /* 

* This coramenting-out came from jsq8utexas-ll; see the 

* iptcpll messages. Simply means temp lack of mbufs... 
*f 

if (so->so_snd.sb_mhmax |j so->sa_rcv.sb_mi3max) 
panic("socreate"); 

♦endif 

SO-->SO_State |= SS_USERGONE; 
sofree(so); 
return (error); 


sofree(so) 

struct socket *so; 


if (so->so_jx±s i I (so->so_state & SS_USERGONE) 0) 
return; 

sbrelease(&so->so_snd); 
sbrelease(iso->so_rcv); 

MSFREE(so); 


* Close a socket on last file table reference removal. 

* Initiate disconnect if connected. 

* Free socket when disconnect complete. 

* 

* THIS IS REALLY A UNIX INTERFACE ROUTINE 
*/ 

soclose(50, exiting) 

register struct socket *so; 
int exiting; 


int s = spinet(); 


/* conservative */ 


if (so~>so_pcb 0) 
goto discard; 
if (exiting) 

SO->SO_options |- SO_KEEPALIVE; 
if (so->SO_state & SS_ISCONNECTED) { 

if ((SO“>so_State S SS_ISDISCONNECTING) =0) { 

u.u_error - sodisconnect(so, (struct sockaddr *)0); 
if (u.u_error) { 

if (exiting) 

goto drop; 

splx(s); 
return; 


if ((so->so_options £ SO_DONTLINGER) 0) { 

if ( (SO->SO_State & SS_ISDISCONNECTING) £& 

(so->so_state & SS_NBIO) £S 
exiting -“*0) { 

u.u_error - EINPROGRESS; 

/* 

* billn. This is a kludge rendered unnecessary 

* by a bug fix 12/27/83. 
so->so_state I- SS_USERGONE; 

*/ 
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bad: 

splx(s); 
return (error); 

} 

/* 

* Disconnect from a socket. 

* Address parameter is from system call for later multicast 

* protocols. Check to make sure that connected and no disconnect 

* in progress (for protocol's sake), and then invoke protocol. 

*/ 

sodisconnect(so, asa) 

struct socket *so; 
struct sockaddr *asa; 

{ 

int s •= spinet (); 
int error; 

if ((so-’>so_state & SS_ISCONNECTED) =0) { 
error - ENOTCONN; 
goto bad; 

} 

if (so->so__state & SS_ISDISCONNECTING) { 
error =- EALREADY; 
goto bad; 

) 

error = (*sO“>so_proto->pr_usrreq) (so, PRU_DISCONNECT, 0, asa); 

bad: 

splx(s); 
return (error); 

} 

/* 

* Send on a socket. 

* If send must go all at once and message is larger than 

* send buffering, then hard error. 

* Lock against other senders. 

* If must go all at once and not enough room now, then 

* inform user that this would block and do nothing. 

*/ 

sosend(so, asa) 

register struct socket *so; 
struct sockaddr *asa; 

{ 

struct mbuf *top = 0; 

register struct mbuf **mp == 4top; 

register struct mbuf *m; 

register struct user *up -= &u; 

register u_int len; 

register int space; 

int error =0, s; 

if (sosendallatonce(so) 4& up“>u_count > so->so_snd.sb_hiwat) 
return (EMSGSIZE); 

#ifdef notdef 

/* NEED TO PREVENT BUSY WAITING IN SELECT FOR WRITING */ 
if ((so->so_snd.sb_flags & SB_LOCK) && (so->so_state & SS_NBIO)) 
return (EWOULDBLOCK); 

♦endif 

restart: 

sblock(4so->so_snd); 

♦define snderr(errno) { error - errno; splx(s); goto release; ) 
again; 

s - spinet(); 

if (so->so_state £ SS_CANTSENDMORE) { 
psignal(up->u_procp, SIGPIPE); 
snderr(EPIPE); 

) 

if (so->so_error) { 

error - so->so_error; 

so->so_error -0; /*???*/ 

splx(8); 
goto release; 

} 

if ((so->so state & SS_ISCONNECTED) 0) { 
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if (so->so_proto->pr_flags & PR_CONNREQUIRED) 
snderr(ENOTCONN); 
if (asa — 0) 

snderr(EDESTADDRREQ); 

} 

if (top) { 

error - (*so->so_proto->pr_usrreq)(so, PRU_SEND, top, asa); 
top = 0; 
if (error) ( 

5plx(s); 
goto release; 

} 

mp “ Stop; 

} 

if (up->u_count —0) { 
splx(s); 
goto release; 

1 

space = sbspace(Sso->so_snd); 

if (space <■= 0 | ! sosendallatonce(so) ss space < up->u_count) { 
if (so->so_state s SS_NBIO) 
snderr(EWOULDBLOCK); 
sbunloclc(Sso->so_snd); 
sbwait(Sso->so_snd); 
splx(s); 
goto restart; 

} 

splx(s); 

while (up->u_count && space >0) { 

MGET(m, 1); 
if (m — NULL) { 

error = ENOBUFS; /* SIGPIPE? */ 

goto release; 


m->m_off - MHINOFF; 

len “= (u_int)MIN(((int)HLEN), ((int)up->u_cQunt)); 
iomove(mtod(m, caddr_t), (int)len, B_WRITE); 
if (error = up->u_error) goto release; 
m->m_len = len; 

*mp = m; 

mp = Sm->ra_next; 

space =■ sbspace(Sso->so_snd); 

) 

goto again; 


release: 

sbunlock(Sso->so_snd); 
if (top) 

ra_freem(top) ; 
return (error); 

} 


soreceive (so, asa) 

register struct socket *so; 
struct sockaddr *asa; 

{ 

register struct mbuf *m, *n; 
u_int len; 

int eor, s, error - 0, cnt - u.u_count; 
caddr t base » u.u base; 


restart: 

sblock(Sso->so_rcv); 
s - spinet(); 

♦define rcverr(errno) { error *■ errno; splx(s); goto release; } 
if (so->so_rcv.sb_cc — 0) { 
if (so->so_error) { 

error - so->so_error; 
so“>so_error - 0; 
splx(s) ; 
goto release; 

} 

if (so->so_state S SS_CANTRCVMORE) { 
splx(s); 
goto release; 


if ( (SO->SO_State 4 SS_ISCONNECTED) — 0 4 & 

(so->so_protO“>pr_flags 4 PR_CONNREQUIRED)) 
rcverr(ENOTCONN); 
if (so->so_state & SS_NBIO) 
rcverr(EWOULDBLOCK); 
sbunlock(4so->so_rcv); 
sbwait(4so->so_rcv); 
splx(5); 
goto restart; 

} 

m * so->so_rcv.sb__mb; 
if (m =- 0) 

panic("receive"); 

if (so->so_j 5 roto->pr_flags & PR_ADDR) { 

if (m->m_len sizeof (struct sockaddr)) 
panic("soreceive addr"); 

if (asa) 

bcopY(mtod(m, caddr_t), (caddr_t)asa, sizeof (*asa)); 
so->so_rcv.sb_cc — m->m_len; 
so->so_rcv.sb_mbcnt -= MSIZE; 
m - m_f ree (m) ; 
if (m = 0) 

panic("receive 2"); 
so->so_rcv.sb_mb = m; 

} 

sO->SO_State 4= ~SS_RCVATHARK; 
if (so->so_oobmark 44 cnt > so->so_oobamark) 
cnt = sO’->so_oobniark; 

eor = 0; 
do { 

len = MIN(m->m_len, cnt); 
splx(s); 

iomove(mtod(m, caddr_t), (int)len, B_READ); 
cnt — len; 
s =- spinet () ; 
if (len “= m->m_len) { 

eor - (int)m->m_act; 
sbfree(4so->so_rcv, m); 
so->so_rcv.sb_mb - m->m_next; 

MFREE(m, n); 

} else { 

m->m_off += len; 
m->m_len -= len; 
sO“>so_rcv.sb__cc ~= len; 

} 

) while ((m = so->so_rcv.sb_mb) 44 cnt 44 ieor); 
if ((so->so_j>roto->pr_flags 4 PR_ATCiMIC) 44 eor 0) 
do { 

if (m — 0) 

panic("receive 3"); 
sbfree(4so->so_rcv, ra); 
eor = (int)m->m_act; 
so->so_rcv.sb_mb - ra->m_next; 

MFREE (m, n); 
m » n; 

) while (eor *== 0); 

if ((so“>so_proto->pr__flags 4 PR_WANTRCVD) 44 so->so_pcb) 
(*so->so_proto->pr_usrreq)(so, PRU_RCVD, 0, 0); 
if (so->so_oohraark) { 

so->so_oobaTiark — u.u_base - base; 
if (so->so_oofcmark 0) 

so->so state |- SS RCVATMARK; 


sbunlock(4so->so_rcv); 
5plx(s); 
return (error); 


sohasoutofband(so) 

struct socket *3o; 


struct proc *pfind(); 


if (so->so^grp — 0) 
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return; 

if (so->so_pgrp > 0) 

/* 

gsignal(so->so_pgrp, SIGURG); 

*/ 

signal(so->so_pgrpr SIGURG); 

else { 

struct proc *p - pfind(~so->so_pgrp); 


psignaKp, SIGURG); 


/*ARGSUSED*/ 
soioctl(so, cmd, cmdp) 

register struct soclcet *so; 
int and; 

register caddr_t cmdp; 

{ 

extern struct uba_device ubdinit t]; 
long *iaddrp = (long *)((int)ubdinit + OxA); 
switch (cmd) { 
case SIOCCIADDR: 

/* set internet address ie write into uba flags */ 

if (u.u_ruid f= 0 && u.u_uid != 0) { 
u-u_error « EPERM; 
return; 

} 

if (copyin(cindp, (caddr__t)iaddrp, sizeof (long))) { 
u.u_error => EFAULT; 
return; 


case SIOCGIADDR: 

if (copyout ((caddr__t) iaddrp, cmdp, sizeof (long))) 
u.u_error = EFAULT; 

return; 

case FIONBIO: { 

int nbio; 

if (copyin(cmdp, (caddr_t)Snbio, sizeof (nbio))) { 
u.u_error =■ EFAULT; 
return; 

if (nbio) 

so-'>so_state 1= SS_NBIO; 

else 

so->so state &= ~SS NBIO; 


case FIOASYNC: { 

int async; 

if (copyin(cmdp, (caddr_t)fiasync, sizeof (async))) { 
u.u_error - EFAULT; 
return; 

} 

if (async) 

so-*>so_state |=» SS_ASYNC; 

else 

so->so state 4= ~SS ASYNC; 


case FIONREAD: { 

long nread - so->so_rcv.sb_cc; 

if (copyout((caddr_t)Snread, cmdp, sizeof (nread))) 
u.u error - EFAULT; 


return; 


case SIOCSKEEP: { 
int keep; 

if (copyin(cmdp, (caddr_t)&keep, sizeof (keep))) { 
u.u_error «= EFAULT; 
return; 

if (keep) 

so->so_options |- SO_KEEPALIVE; 

else 

so->so_options 4- ~SO_KEEPALIVE; 

return; 


case SIOCGKEEP: { 

•in t keep = (so->so_options 4 SO_KEEPALIVE) 1“ 0; 
if (copyout((caddr_t)4keep, cmdp, sizeof (keep))) 
u.u_error = EFAULT; 

return; 


case SIOCSLINGER: { 
int linger; 

if (copyin(cmdp, (caddr_t)4ling6r, sizeof (linger))) { 
u.u_error = EFAULT; 
return; 


so->so_linger = linger; 
if (so->so_linger) 

so“>so_options 4= 

else 

so->so_options |- 

return; 


-SO DONTLINGER; 


SO DONTLINGER; 


case SIOCGLINGER: { 

int linger - so->so_linger; 

if (copyout((caddr_t)4linger, cmdp, sizeof (linger))) { 
u.u error - EFAULT; 


case SIOCSPGRP: { 
int pgrp; 

if (copyin(cmdp, (caddr_t)4pgrp, sizeof (pgrp))) { 
u.u_error == EFAULT; 
return; 

) 

so->so_pgrp - pgrp; 
return; 


case SIOCGPGRP: { 

int pgrp = so-“>so_pgrp; 

if (copyout((caddr_t)4pgrp, cmdp, sizeof (pgrp))) ( 
u.u_error - EFAULT; 
return; 


case SIOCDONE: { 

int flags; 

if (copyin(cmdp, (caddr_t)4flags, sizeof (flags))) { 
u.u_error = EFAULT; 
return; 

} 

flags++; 

if (flags 4 FREAD) ( 

int 3 “ splimp(); 
socantrcvmore(so); 
sbflush(4so->so_rcv); 
splx(s); 


(flags 4 FWRITE) 


(* 90 ->so_proto->pr_U 5 rreq)(so, ?RU_SHUTDOWN, 


return; 
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case SICrcSENDOOB: { 
char oob; 
struct mbuf *m; 

if (copyin(cnLdp, (caddr_t) &oob, sizeof (oob))) { 
u.u_error * EFAULT; 
return; 

) 

m » m_get(M_DONTWAIT); 
if (m =- 0) { 

u.u_error - ENOBUFS; 
return; 

} 

m->m_off « MMINOFF; 
ra->in_len = 1; 

*ratod(m, caddr_t) “ oob; 

(*so->so_j 5 roto->pr__usrreq) (so, PRU_SENDOOB, m, 0); 
return; 


} 


case SIOCRCVOOB; { 

struct mbuf *m =* m_get (M_DONTKAIT) ; 
if (m = 0) { 

u.u_error - ENOBUFS; 
return; 

} 

ia->m_off - MMINOFF; *mtod(m, caddr_t) = 0; 
(*so->so_proto->pr_usrreq)(so, PRU_RCVOOB, m, 0); 
if (copyout(rated(in, caddr_t), cmdp, sizeof (char))) 
u.u_error =• EFAULT; 
return; 

} 

(void) ra_free(ra); 
return; 


} 


{ 


case SIOCATMARK: { 

int atmark - (so->so_state&SS_RCVATMARK) I- 0; 
if (copyout((caddr_t)&atmark, cmdp, sizeof (atmark))) { 
u.u_error = EFAULT; 
return; 

} 

return; 


/* routing table update calls */ 
case SIOCADDRT: 
case SIOCDELRT! 
case SIOCCHGRT: { 

struct rtentry route; 
if (isuserO) 

return; 

if (copyin(cmdp, (caddr_t)iroute, sizeof (route))) { 
u.u_error - EFAULT; 
return; 

} 

u.u_error - rtrequest(crad, &route); 
return; 


} 


/* type/protocol specific ioctls */ 

} 

u.u_error - EOPNOTSUPP; 
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/* socketsubr.c 4.23 82/06/14 */ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


"sys/param.h" 

"sys/config.h" 

"sys/types.h" 

■sys/mrau.h" 

"sys/sysmacros.h" 

"sys/systm.h" 

"sys/dir.h” 

■sys/signal.h" 
*sys/errno.h” 
"sys/user.h" 
"sys/proc.h" 
"sys/file.h" 

■sys/inode.h" 
"sys/buf.h" 
"net/misc.h** 
**net/mbuf. h" 

"net / pr ot o s w. h '* 
"net/socket.h" 
"net/socketvar.h" 
"net/in.h" 
"net/in_systm.h" 


/* 

* Primitive routines for operating on sockets and socket buffers 
*/ 


/* 

* Procedures to manipulate state flags of socket 

* and do appropriate wakeups. Normal sequence is that 

* soisconnecting() is called during processing of connect() call, 

* resulting in an eventual call to soisconnectedO if/when the 

* connection is established. When the connection is torn down 

* soisdisconnectingO is called during processing of disconnect() call, 

* and soisdisconnectedO is called when the connection to the peer 

* is totally severed. The semantics of these routines are such that 

* connectionless protocols can call soisconnectedO and soisdisconnectedO 

* only, bypassing the in-progress calls when setting up a "connection" 

* takes no time. 

* 

* When higher level protocols are implemented in 

* the kernel, the wakeups done here will sometimes 

* be implemented as software-interrupt process scheduling. 

*/ 

soisconnecting(so) 

struct socket *so; 

{ 


so->SO_state & -(SS_ISCONNECTED|SS_ISDISCONNECTING); 

so->so_state |« SS_ISCONNECTING; 
wakeup((caddr_t)&so->so_timeo); 

} 

soisconnected(so) 

struct socket *so; 

{ 


so->so_state -(SS_ISCONNECTING1SS_ISDISCONNECTING) ; 

so->so_state |= SS_ISCONNECTED; 

wakeup( (caddr__t) 4so->so_timeo); 

sorwakeup(so); 

sowwakeup(so}; 

} 

s ois dis connecting{so) 

struct socket *so; 

{ 


so->so_state 4- ~SS_ISCONNECTING; 

so->so_state |- (SS_ISDISCONNECTING|SS_CANTRCVMORE|SS_CANTSENDMORE); 
wakeup((caddr_t)&so->so_timeo); 
sowwakeup(so); 
sorwakeup(so); 


soisdisconnected{so) 

struct socket *so; 

{ 

so->so_State 4“ ~ {SS_ISCONNECTING! SS_ISCONNECTED! S£__ISDISCONNECTING 

SO->SO_state j- (SS_CANTRCV!«3RE1SS_CANTSENDMDRE); 

wakeup((caddr_t)4so->so_timeo); 

sowwakeup(so); 

sorwakeup(so); 


/* 

* Socantsendmore indicates that no more data will be sent on the 

* socket; it would normally be applied to a socket when the user 

* informs the system that no more data is to be sent, by the protocol 

* code (in case PRU_SHUTDOWN) . Socantrcvmore indicates that no more data 

* will be received, and will normally be applied to the socket by a 

* protocol when it detects that the peer will send no more data. 

* Data queued for reading in the socket may yet be read. 

*/ 

socantsendmore(so) 

struct socket *so; 

{ 


SO->SO_State 1= SS_CANTSENDMORE; 
sowwakeup(so); 

} 

socantrcvmore(so) 

struct socket *so; 

{ 


so->SO_State != SS_CANTRCVMORE; 
sorwakeup(so); 

} 

/* 

* Socket select/wakeup routines. 

*/ 

/* 

* Interface routine to select() system 

* call for sockets. 

*/ 

soselect(so, rw) 

register struct socket *so; 
int rw; 

{ 

int s - spinet(); 

switch (rw) { 

case FREAD: 

if (soreadable(so)) { 
splx(s); 
return (1); 

} 

sbselqueue(4so->so_rcv); 
break; 

case FWRITE: 

if (sowriteable(so)) { 
splx(s); 
return (1); 

} 

sbselqueue(&so->so_snd); 
break; 

} 

splx(s); 
return (0); 

) 

/* 

* Queue a process for a select on a sockeu buffer. 
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*/ 

sbselqueue(sb) 

struct sockbuf *sb; 


{ 


register struct proc 


*p; 


} 


if ((p 
else 


“ sb->sb_sel) && p->p_wchan 
sb“>sb_flags I- SB_COLL; 

sb->sb_sel “ u.u_procp; 


(cadd.r_t) sselwait) 


/* 

* Wait for data to arrive at/drain from a socket buffer. 
*/ 

sbwait(sb) 

struct sockbuf *sb; 

sb->sb_flags |= SB_ffAIT; 

(void) sleep((caddr_t)&sb->sb_cc, PZERO+1); 

} 


* also add data to, and remove data from socket buffers repectively. 
*/ 


#ifdef notdef 

/* billn — add this routine from 4.1c for 4.1c udp */ 
soreserve(so, sndcc, rcvcc) 
struct socket *so; 
int sndcc, rcvcc; 

{ 

if (sbreserve(4so->sa_snd, sndcc) 0) 
goto bad; 

if (sbreserve(iso~>so_rcv, rcvcc) =>»= 0) 
goto bad2; 
return (0); 

bad2: 

sbrelease(4so->so_snd); 

bad: 

return (ENOBUFS); 

) 

iendif 


/* 

* Wakeup processes waiting on a socket buffer. 

*/ 

sbwakeup(sb) 

struct sockbuf *sb; 

{ 

if (sb->sb_sel) { 

selwakeup(sb->sb_sel, sb-’>sb_flags & SB_COLL) ; 
sb“>sb_sel =0; 
sb->sb_flags 4- ~SB_COLL; 

} 

if (sb->sb_flags 4 SB_WAIT) { 

sb->sb_flags 4- ~SB_WAIT; 
wakeup{(caddr_t)4sb->sb_cc); 

} 

} 

/* 

* Socket buffer (struct sockbuf) utility routines. 

* Each socket contains two socket buffers: one for sending data and 

* one for receiving data. Each buffer contains a queue of rabufs, 

* information about the number of mbufs and amount of data in the 

* queue, and other fields allowing select() statements and notification 

* on data availability to be implemented. 

* Before using a new socket structure it is first necessary to reserve 

* buffer space to the socket, by calling sbreserve. This commits 

* some of the available buffer space in the system buffer pool for the 

* socket. The space should be released by calling sbrelease when the 

* socket is destroyed. 

* The routine sbappendO is normally called to append new rabufs 

* to a socket buffer, after checking that adequate space is available 

* comparing the function spspaceO with the amount of data to be added. 

* Data is normally removed from a socket buffer in a protocol by 

* first calling ra_copy on the socket buffer rabuf chain and sending this 

* to a peer, and then removing the data from the socket buffer with 

* sbdrop when the data is acknowledged by the peer (or immediately 

* in the case of unreliable protocols.) 

* Protocols which do not require connections place both source address 

* and data information in socket buffer queues. The source addresses 

* are stored in single mbufs after each data item, and are easily found 

* as the data items are all marked with end of record markers. The 

* sbappendaddr() routine stores a datum and associated address in 

* a socket buffer. Note that, unlike sbappendO, this routine checks 

* for the caller that there will be enough space to store the data. 

* It fails if there is not enough space, or if it cannot find 

* a rabuf to store the address in. 

* 

* The higher-level routines sosend and soreceive (in socket.c) 


/* 

* Allot mbufs to a sockbuf. 

*/ 

sbreserve(sb, cc) 

struct sockbuf *sb; 

( 

/* someday maybe this routine will fail... */ 
sb->sb_hiwat » cc; 
sb->sb_mbirQax = cc*2; 
return (1); 

} 

/* 

* Free mbufs held by a socket, and reserved mbuf space. 

*/ 

sbrelease(sb) 

struct sockbuf *sb; 

{ 

sbflush(sb); 

sb->sb_hiwat *= sb->sb_mhmax - 0; 

) 

/* 

* Routines to add (at the end) and remove (from the beginning) 

* data from a mbuf queue. 

*/ 

/* 

* Append mbuf queue ra to sockbuf sb. 

*/ 

sbappend(sb, m) 

register struct mbuf *m; 
register struct sockbuf *sb; 

{ 

register struct mbuf *n; 

n * sb->sb__rab; 

♦ifdef SIGH 

mcheck(n, "sbappend"); 

♦endif 

if (n) 

while (n->ra_next) 

n - n->m_next; 

while (m> { 

if (m->m_len “ 0 44 (int)m->m_act — 0) { 
m - m_free(m); 
continue; 

} 

if (n 44 n->m_Off <- MMAXOFF 44 m->m_off <- MMAXOFF 44 
(int)n->ra_act -- 0 44 (int)m->m_act — 0 44 
(n->m_off + n->m_l6n + m->m_len) <- MMAXOFF) { 
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MBCOPY(m, 0, n, n->m_len, (u_int)ni~>ni_len) ; 

n->ni_len +- m-'>ia_len; 

sb->sb_cc +“ ia~>ni_len; 

ra - m_free (m); 

continue; 


sballoc(sb, m); 
if (n — 0) { 

sb->sb_inb 

#ifdef SIGH 

mcheck (n, '• sbappend2") ; 

#endif 

} 

else 

n->m_next ■ 

n ■= m; 

m - ni->in_next; 
n->m next “*0; 


* Append data and address. 

* Return 0 if no space in sockbuf or if 

* can't get mbuf to stuff address in. 

*/ 

sbappendaddr(sb, asa, mO) 

struct sockbuf *sb; 
struct sQckaddr *asa; 
struct mbuf *ra0; 

{ 

struct sockaddr *msa; 
register struct mbuf *m; 

register int len =» sizeof (struct sockaddr); 
struct sockaddr sa; 

sa = *asa; 
m = mQ; 
if (m — 0) 

panic("sbappendaddr"); 
for (;;) { 

len += m->m_len; 
if (m->m_next == Q) { 

m“>in_act - (struct mbuf *)1; 
break; 

} 

/* This else clause is an sri bug-fix by JC Stewart */ 
else { 

ia->m_act * (struct mbuf *) 0; 

) 

/* */ 

m “ m->m_next; 

} 

if (len > sbspace(sb)) 
return (0); 

m ■» m_get(M_DONTWAIT) ; 
if (m “ 0) 

return (0); 
m->ra_ 0 ff = MMINOFF; 
m->ra_len = sizeof (struct sockaddr); 

MAPSAVE(); 

msa - ratod(m, struct sockaddr *); 

*msa « sa; 

MAPREST(); 

ra->ra_act = (struct mbuf *)1; 
sbappend(sb, m); 
sbappend(sb, raO); 
return (1); 


Free all mknifs on a sockbuf mbuf chain. 

Check that resource allocations return to 0. 


sbflush(sb) 

struct sockbuf *sb; 



#endif 

} 
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/* #define HOWFAR */ 

/* i-define SraBLK /* allows writing block 0 */ 

/* ^define UNISOFT /* allows access to restricted blocks on boot disk */ 

^define KLUDGE /* kludge for format to work */ 

/* 

* (C) Copyright 1983 UniSoft Systems of Berkeley CA 

* Sony driver 

* and eject driver 

* 

*/ 

♦include "sys/param-h" 

♦include "sys/config.h" 

♦include “sys/mmu.h" 

♦include "sys/types.h" 

♦include "sys/sysmacros.h" 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno,h" 

♦include “sys/utsname.h" 

♦include "sys/buf.h" 

♦include “sys/elog.h” 

♦include "sys/erec.h" 

♦include **sys/iobuf .h" 

♦include "sys/systm.h" 

♦include "sys/var.h" 

♦include "sys/uioct1.h" 

♦include "sys/al^ioctl.h" 

♦include "sys/diskformat.h" 

♦include "setjmp.h" 

♦include "sys/pport.h" 

♦include "sys/sony.h" 

♦include ■sys/cops.h" 

♦define NRETRY 5 

♦define physical(d) ((minor<d)»4) iOxF) /* j^ysical unit number 0-15 */ 
♦define logical(d) (minor(d)&0x7) /* logical unit number, 0-7 */ 

♦define splsn spll 

♦define GETBUF(bp) splsn(); \ 

while (bp->b_flags & B_BUSY) { \ 

bp->b_flags |“ B_yfANTED; \ 

(void)sleep((caddr_t)bp, PRIBIO+1); \ 

} \ 

bp->b_flags 1*= B__BUSY; \ 
splOO 

♦define FREEBUF{bp) splsn(); \ 

if (bp->b_flags & B_WANTED) \ 
wakeup((caddr_t)bp); \ 
bp->b_flags =0; \ 
splO() 

struct buf snhbuf; /* header buffer (for reading block 0) */ 

struct buf sncbuf; /* coiraiiand buffer */ 

struct buf snrbuf; 

struct iostat snstat[NSN]; 

struct iobuf sntab - tabinit(SNl,snstat); /* active buffer header */ 

♦ifdef WBBLK 
char sn_bblk[512]; 

♦endif WBBLK 
char sn_bcount[NSN*2] 
char sn_cco\ant [NSN*2] 

♦define count(d) 

♦define boot{d) 
char snbf; 

♦ifdef KLUDGE 
char noerror; 

♦endif KLUDGE 

struct sn_siEes { 

daddr_t sn_offset, sn_size; 


/* block opens */ 

/* character opens */ 

(d«l) /* first char is how many opens */ 

((d«l)+l) /* 2nd char (sn_bcount only) is whether a boot disk */ 

/* index into sn_fns array */ 

/* read before format is acceptable error */ 


} sn_sizes(J = { 

0, 800, /* a “ filesystem */ 

201, 599, /* b ■= filesystem on a boot Sony */ 

0, 201, /* c = 1-100 for lisa (serialization), 

101-200 for boot program */ 

0, 0, /* d “ unused */ 

0, 0, /* e - unused */ 

0, 0, /* f = unused */ 

0, 0, /* g - unused */ 

0, 800 /* h = entire disk */ 


* called from oem7init at (at least) level 1, so won't be interrupted 

* by parallel port 0 or sony 
*/ 

sninit() 

{ 

char c = 0x00; /* to avoid clear byte intstructions */ 

if (SNIOB->type) { 

printf ("Hicrodiskette with %d head%s\n'', SNIOB->type, 

(SNIOB->type-=l )?••••;" s '•) ; 

} else { 

printf("Unix sninit: not a sony drive\n"); 
return; 

} 

SNIOB->drive“0x80; /* always lower drive */ 

SNIOB->side - c; /* always first side */ 

SNIOB->mask== Oxff; /* clear ints and enable */ 

if (snwaitrdy()) { 

printf("Unix sninit: command to clear status failedXn"); 
return; 

} 

if (SNIOB->drv_connect != Oxff) { 

printf("Unix sninit: no drive connected\n"); 
return; 

} 

SNIOB->gobyte-SN_CLRST; 

SNIOB->mask -0x80; /* enable interrupts */ 

if (snwaitrdy0) ( 

printf("Unix sninit; command to clear status failedXn"); 

} 

SNIOB->gobyte-SN_STMASK; 

} 

/* 

* check block 0 to see whether this is a boot disk 
*/ 

sncz(dev) 

register dev_t dev; 

{ 

static char hp[BSIZE]; 
register struct buf *bp - fisnhbuf; 
register rc - 0; 

GETBUF(bp); 

sn_bcount[boot(physical(dev))] - 0; 
bp->b_bcount - BSI2E; 
bp->b_dev - dev | 7; 
bp->b_blkno - 0; 
bp->b_un.b_addr - hp; 
bp->b_flags |- B_READ; 
snbf - 1; 
snstrategy(bp); 
iowait(bp); 

if (bp->b_flags & B_ERROR) ( 
rc++; 
snbf — 0; 

FREEBUF(bp); 
return(rc); 


/* for now set to non-boot */ 
/* set logical unit 7 */ 


don't really check whether it's a boot disk 
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sntab.b_actf - bp; 

else 

sntab.b_actl->av_forw = bp; 
sntab.b__actl = bp; 
bp“>av_forw - (struct buf *)NULL; 

} else { 

if ((*sn_fns[snbf3.fnc)(bp->b_dev)) { 
bp->b_flags 1= B_ERROR; 

iodone(bpli; /* resets flags */ 

return; 

snstat[punitj.io_ops++; I* errlog: */ 

/* resid for disksort */ 

bp->b_resid = bp->b_blkno + sn_sizes[logical(bp“>b_dev)].sn_offset; 
splsnO ; 

disksort(Ssntab, bp); 

} 

if (sntab.b_active == 0) 
snstart(); 

splOO; 


snstart() 
{ 


register struct buf *bp; 
register punit, lunit; 
register daddr_t bn; 
caddr t addr; 


if ((bp - sntafa.b_actf) “ (struct buf *)NULL) 
return; 

if (sntab.b_active — 0) { 
sntab-b_active - 1; 
if (bp !=> isncbuf) 

bp->b_resid = bp->b_bcount; 

} 

punit - physical(bp->b_dev); 
lunit = logical(bp“>b_dev); 
blkacty |- (1«SN1); 
if (bp == fisncbuf) { 

#ifdef WBBLK 

if (bp->b_resid — UIOCWBBLK) 
snwQ(punit); 

else 

#endif WBBUC 

sncnid(bp->b_resid); /* b_resid holds the coimnand */ 

return; 

} 

bn “ bp->b_blkno + ((bp->b_bcount - bp->b_resid) » 9); 
if (bp->b_resid <512 |) 

bn >= sn_sizes[lunit].sn_size |1 

((bn += sn_sizes [lunit ] .sn_offset) >- SN_MAXBN) It 
(bn <- 200 && sn_bcount[boot(punit)])) { 

♦ifdef HOWFAR 

if (bp“>b_resid 1= 0) 

printfC'Unix snstart: blkno”%d resid-%d bn“%d\n", 
bp->b_blkno, bp~>b_resid, bn); 

fendif HOWFAR 

blkacty ~(1«SN1); 
if (sntab.b_errent) 

logberr(isntab, 0); /* errlog non-fatal errors */ 
sntab.b_active -0; 
sntab.b_errcnt ■= 0; 

3ntab.b_actf - bp->av_forw; 
iodone(bp); 
goto loop; 

} 

addr - bp->b_un•b_addr + bp~>b_bcount - bp->brosid; 
snrw(punit, bn, bp“>b_flags4B_READ, addr); 


snread(dev) 
dev t dev; 


physio(snstrategy, &snrbuf, dev, B_READ}; 
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snwrite(dev) 
dey_t dev; 

{ 

physio(snstrategy, Ssnrbuf, dev, B_WRITE); 

} 

struct sn_bloclanap { 

int maxblocJc, sectors; 

} sn_bloc]aaap [ ] = { 


192, 

12, 

176, 

11, 

160, 

10, 

144, 

9, 

128, 

8 


}; 

/* ARGSUSED */ 

snrw(unit, bn, rw, addr) /* always called at priority sn (see splsn above) */ 

int unit, rw; 
register daddr_t bn; 
register caddr_t addr; 

{ 

register char *pm =» (char *)SN_DATABUF; 
register struct sn_blockmap *p = sn_blockmap; 
register int i; 
int track, sector; 
char c = 0x00; 

track =0; 

while ( bn >** p->niaxblock ) { 
bn -=> p“>maxblock; 
track += 16; 

P++; 

} 

sector = bn % p->sectors; 
track +*= bn / p->sectors; 
if (snwaitrdyO ) 
return; 

SNIOB->side==c; 

SNIOB->drive”0x80; 

SNIOB->track = track; 

SNIOB->sector= sector; 
if (rw) { 

SNIOB->cmd=SN_READ; 

} else { 

SNIOB->cmd-SN_WRITE; 
i ■= 511; 
do { 

*pira++; /* craos ram, every other byte */ 

*pm++ - *addr++; 

} while (—i 1= -1); 

} 

if (snwaitrdyO) 
return; 

SNIOB->gobyte - SN_CMD; 

} 

/* ARGSUSED */ 
snioctKdev, crad, adr, flag) 
dev_t dev; 
caddr_t adr; 

( 

int unit; 

register struct buf *bp; 

if ((unit - physical(dev)) >« NSN) { 
u.u_error - EFAULT; 
return; 

) 

bp - Asncbuf; 
switch (crad) { 

case AL__EJECT; 

if ((sn_bcount[count(unit)J > C) 

If (3n_ccount[count(unit)] >1)) { 


u.u_error - EINVAL; 
return; 

} 

break; 

case UIOCFORMAT: 

if (LsuserO) { 

u.u_error = EPERM; 
return; 

} 

#ifdef KLUDGE 

noerror“l; 

(void)(sncz(0)); 
noerror=0; 

#endif KLUDGE 

break; 

#ifdef WBBLK 

case UIOCWBBLK: 

if (IsuserO) { 

u.u_error = EPERM; 
return; 

} 

if (copyin(adr, (caddr_t)sn_bblk, sizeof(sn_bblk))) { 
u.u_error = EFAULT; 
return; 

} 

break; 

#endif WBBLK 

default: 

u.u_error = ENOTTY; 
return; 

} 

GETBUF(bp); 
bp->b_dev - dev; 

bp->b_resid — crad; /* stash the command in resid */ 

u.u_error - 0; /* any error on sncz is OK */ 

snstrategy(bp); 
iowait(bp); 

if (bp->b_flags & B_ERROR) 
u.u_error = EIO; 

FREEBUF(bp); 

} 


sncmd(cmd) /* always called at priority sn (see splsn above) */ 

unsigned int crad; 

{ 

if (snwaitrdyO) 
return; 

switch (crad) { 

case UIOCFORMAT: 

SNIOB->confirm”0xff; 

SNIOB->cmd=SN_FORMAT; 
break; 
case AL_EJECT: 

SNIOB->cmd=SN_EJECT; 

break; 

default; 

return; 

} 

SNIOB->gobyte - SN_CMD; 


♦ifdef WBBLK 
snwO(punit) 
int punit; 

( 

register char *pm; 
struct sn_hdr sn_hdr; 
register char *addr; 
register i; 
char c -= 0x00; 

if(snwaitrdy O) 
return; 

SNIOB->side-c; 
SNIOB->drive-0x80; 
SNIOB->track - 0; 
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SNIOB->sector- 0; 

SNIOB->cmd=“SN_WRITE ; 
sn_hdr.version = 0; 
sn_hdr.volume - 0; 
sn_hdr. fileid -= FILEID; 
snjtidr.relpg - 0; 
sn_hdr.duml - 0; 
sn_hdr.dum2 - 0; 
i - sizeof(sn_hdr) - 1; 

pm - (char *)SN_HDRBUF; !* write special 12-byte hdr */ 

addr = (char *)&sn_hdr; 
do { 

*pia++; /* cmos ram, every other byte */ 

*pm++ = (imsigned) *addr++; 

} while (—i I- -1); 
i - 511; 

pm - (char *)SN_DATABUF; /* write regular 512-byte buffer */ 

addr - (char *)sn_bblk; 
do { 

*pm++; /* cmos ram, every other byte */ 

*pm++ •= *addr++; 

} while (—i 1= -1); 
if (snwaitrdy (n 
return; 

SNIOB->gobyte = SN_CMD; 

} 

#endif WBBLK 

snintrO /* called at pi 1 */ 

{ 

struct buf *bp; 
register short i; 
register char *addr; 

register char *pm - (char *)SN_DATABUF; 
int cnt; 

struct deverreg snreg[l]; /* errlog: */ 

i “ SNIOB->status; 

#ifdef HOWFAR 
if (i) 

printf("Unix snintr: SNIOB->status - Qx%x\n",i); 

fendif H05JFAR 

if (sntab.b_active “=» 0) { 

#ifdef HOWFAR 

printf ("Unix snintr; b_active—0\n"); 

#endif HOWFAR 

snbf =0; /* force real check for boot disk */ 

SNIOB->raask - SN_CLEARHSK; 

SNIOB->gobyte=SN_CLRST; 

(void) snwaitrdy(); 
return; 

} 

if ((bp - sntab.b_actf) = (struct buf *)NULL) { 

#ifdef HOWFAR 

printf ("Unix snintr: bp—0\n"); 

#endif HOWFAR 

snbf - 0; /* force real check for boot disk */ 

SNIOB->mask = SN__CLEARMSK; 

SNIOB->gobyte-SN_CLRST; 

(void) snwaitrdy(); 
return; 

cnt - 512; 
if (i) { 

cnt “0; 

/* errlog: */ 

sntab.io_stp - fisnstat[physical(bp->b_dev)]; 

snreg[0].drvalue - i; 

snreg[0].drname - "status"; 

snreg[0j.drbits - "status register"; 

fmtberr(tsntab, (unsigned)physical(bp->b_dev), 

(unsigned)(SNIOB->track), /* trk */ 

(unsigned)(SNIOB->side), /* head */ 

(unsigned)(SNIOB->sector), /* sector */ 

(long) (sizeof (snreg)/sizeof {snreg[Qj)), /* regent. »/ 
tsnregfO]); 


if (++sntab.b_errcnt > NRETRY 1! bp =■ ssnebuf) ( 
bp->b_flags |- B_ERROR; 
logberr(fisntab, 1); /* errlog; */ 

} 

} 

/* 

* because a single buffer can take several io operations, 

* we leave it to snstartO to figure out when it's done 
*/ 

if (bp->b_flags4B_ERROR | ! bp isnebuf) { 

#ifdef KLUDGE 

if (Inoerror) 

♦endif KLUDGE 

if (bp->b_flags & B_ERROR) { 

printf("Unix; HARD I/O ERROR on /dev/s%d%c ", 

physical(bp->b_dev), logical(bp->b_dev)+'a'); 
if (bp i- isnebuf) 

printf("bn %d\n", 

bp->b_blkno + ((bp->b_bcount-bp->b_resid) » 9) 

+ sn_sizes[logical(bp->b_dev)].sn_offset); 
else printf("\n"); 

} 

blkacty ~{1«SN1); 
sntab.b_active - 0; 
sntab.b_errcnt - 0; 
sntab.b_actf - bp->av_forw; 
iodone(bp); 

} else if (cnt &£ bp->b_flags & B_READ) { 

addr - bp->b_un.b_addr + bp->b_bcount - bp->b_resid; 
i - 511; 
do { 

*pra++; /* cmos ram, every other byte */ 

*addr++ = *pm++; 

} while (—i !- -1); 

if (I(bp->b_blkno + ((bp->b_bcount-bp->b_resid) » 9) 

+ sn_sizes[logical(bp->b_dev)].sn_offset)) { /* bn=0 */ 

register caddr_t pm; 

register unsigned short fileid; 

pm - (char *)SN_HDRBUF; 
fileid =* (*(pm+9))«8; 
fileid I- *(pm+ll); 
if (fileid — FILEID) { 

sn_bcount[boot(physical(bp->b_dev))] = 1; 

tifdef UNISOFT 

sn_bcount[boot(physical(bp->b_dev))] = 0; 

*endif UNISOFT 

} 

} 

} 

bp->b_resid — cnt; 

SNIOB->mask - SN_CLEARMSK; 

SNIOB->gobyte=SN_CLRST; 
snstart(); 


snwaitrdy() 

{ 

register int i, j, k; 

k - 1024; 
do { 

i - 1000; 

while (((PPADDR)->d_irb 4 DSKDIAG) ■== 0) { /* floppy is busy */ 

for(j“0;j<1024;j++); /* don't access flpy */ 

if {—i < 0) { 

printf("Unix snwaitrdy: DSKDIAG not readyXn"); 
return(1); 

} 

} 

if (SNIOB->gobyte — 0) 
return(0); 

} while (—k); 

printf("Unix snwaitrdy: drive not readyXn"); 
return (1); 
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) 

snprint(dev, str) 
char *str; 

{ 

printf(''%s on sn drive %d, slice %d\n", str, (dev»4)iQxF, deviOx?) ; 

} 

I* This is the eject driver 

* which uses a different major device so 

* it can tell whether the sony is being used or not 
*/ 

/* ARGSUSED */ 

ejioctl(dev, crad, adr, flag) 
dev_t dev; 
caddr_t adr; 

{ 

int unit; 

register struct buf *bp; 

if ((unit = physical(dev)) >= NSN) { 
u.u_error = EFAULT; 
return; 

} 

bp = fisncbuf; 

if ( cmd '= AL_EJECT ) { 

u.u__error •« ENOTTY; 
return; 

} 

if ((sn_bcount[count(unit)] Q) || (sn_ccount[count(unit)] 0)) { 

u.u_error “ EINVAL; 
return; 

) 

GETBIIF (bp) ; 
bp->b_dev ” dev; 

bp->b_resid = cmd; /* stash the command in resid */ 

snstrategy(bp); 
iowait((struct buf *)bp); 
if (bp->b_flags & B_ERROR) 
u.u_error - EIO; 

FREEBUF(bp); 
return; 

} 
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/* @(*)subr.c 1.4 */ 
♦include "sys/param.h" 
♦include "sys/types.h" 
♦include "sys/sysmacros.h" 
♦Include "sys/systra.h" 
♦include "sys/inode.h" 
♦include “sys/dir.h" 
♦include "sys/signal.h" 
♦include "sys/user.h" 
♦include ■sys/errno.h" 
♦include "sys/buf.h" 
♦include "sys/inount .h" 
♦include *sys/var.h” 


Braap defines the structure of file system storage 
by returning the physical block number on a device given the 
inode and the logical block number in a file. 

When convenient, it also leaves the physical 

block number of the next block of the file in u.u_rablock 

for use in read-ahead. 


tmap(ip, readflg) 
register struct inode *ip; 

{ 

register struct user 
register i; 
register dev; 
daddr_t bn; 
daddr_t nb, *bap; 
int raflag; 

up « Su; 

up->u_rablock = 0; 
raflag - 0; 


register sz, rera, type; 


type ■= ip->i_mode4IFMT; 
if (type — IFBLK) { 

dev - (dev_t)ip->i__rdev; 
for (i=0; i<v.v_raount; i++) 

if ((mount [i] .m_flags"=MINUSE) && 

(brdev (mount [i] .m_dev) --brdev (dev))) { 
dev = mount [i] .m_dev; 
break; 

} 


} else 

dev - ip->i_dev; 
up->u_pbdev - dev; 
bn - FsBNO(dev, up->u_offset); 
if (bn < 0) { 

up->u_error = EFBIG; 
return((daddr t)-1); 


if ((ip->i_lastr + 1) — bn) 
raflag++; 

up->u__pboff - FsBOFF(dev, up->u_of f set); 
sz FsBSIZE(dev) - up->u_j)boff; 
if (up->u_count < sz) { 

sz “ up->u_count; 
raflag « 0; 

} else 

ip->i_lastr * bn; 


up->u_pbsi 2 e “ sz; 
if (type “ IFBLK) { 
if (raflag) 

up->u_rablock - bn -r 1; 
return(bn); 

} 

if (readflg) { 

if (type — IFIFO) { 
raflag - 0; 
rem - ip->i_size; 


} else 



/* 

* blocks 0..NADDR-4 are direct blocks 
*/ 

if (bn < NADDR-3) { 
i = bn; 

nb - ip->i_addr[i]; 
if (nb — 0) { 

if (readflg t| (bp - alloc (dev) ) “NULL) 
return((daddr_t)-l); 
nb =* FsPTOL(dev, bp">b_blkno) ; 
bdwrite(bp); 
ip->i_addr£i] -= nb; 
ip->i_flag H IUPD|ICHG; 

} 

if ((i < NADDR-4) && raflag) 

up->u_rablock = ip->i_addr[i+1]; 
return(nb); 

} 

/* 

* addresses NADDR-3, NADDR-2, and NADDR-1 

* have single, double, triple indirect blocks. 

* the first step is to determine 

* how many levels of indirection. 

*/ 

sh - 0; 
nb - 1; 

bn -= NADDR-3; 
for(j“3; j>0; j —) { 

sh +- FsNSHIFT(dev); 
nb «- FsNSHIFT(dev); 
if (bn < nb) 

break; 
bn -= nb; 

} 

if (j — 0) { 

up->u_error - EFBIG; 
return((daddr_t)-1); 

) 

/* 

* fetch the address from the inode 
*/ 

nb - ip->i_addr[NADDR-j]; 
if (nb -= 0) { 

if (readflg It (bp = alloc (dev))—NULL) 
return((daddr_t)-1); 
nb - FsPTOL(dev, bp->b_blkno); 
bwrite(bp); 

ip->i_addr[NADDR-j] - nb; 
ip->i_flag t- lUPDIICHG; 

) 

/* 

* fetch through the indirect blocks 

*/ 
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fort; j<“3; j++) { 

bp * breadtdev, nb); 
if {up->u_error) { 
brelse(bp); 
return((daddr_t)-1); 

} 

bap - bp->b_un.b_daddr; 
sh — FsNSHIFT(dev); 
i = (bn»sh) & FsNMASKtdev) ; 
nb - bap[i]; 
if (nb 0) { 

register struct buf *nbp; 

if (readflg || (nbp « alloc (dev) )='NULL) { 
brelse(bp); 
return((daddr_t)-l); 

} 

nb => FsPTOL(dev, nbp->b_blkno) ; 
if (j < 3) 

bwrite(nbp); 

else 

bdwrite(nbp); 
bap[i] “ nb; 
bdwrite(bp); 

} else 

brelse(bp); 

} 

/* 

* calculate read-ahead. 

*/ 

if ((i < FsNINDIR(dev)-l) && raflag) 
up->u_rablock = bap[i+l]; 
return(nb); 

} 


/* 

* Pass back c to the user at his location u_base; 

* update u_base, u_count, and u_offset. Return -1 

* on the last character of the user's read. 

* u_base is in the user data space. 

*/ 

passe(c) 
register c; 

{ 

register struct user *up; 
up - iu; 

if (subyte(up->u_base, c) < 0) { 
up->u_error = EFAULT; 
return(-1); 

) 

up->u_count—; 
up->u_of fset++; 
up->u_base++; 

return(up->u_count — 0? -1: 0); 


/* 

* Pick up and return the next character from the user's 

* write call at location u_base; 

* update u_base, u_count, and u_offset. Return -1 

* when u_count is exhausted. 

* u_base is in the user data space. 

*/ 

epass() 

{ 

register struct user *up; 
register c; 

up - 4u; 

if (up->u_count “ 0) 
return(-1); 

if ((c - fubyte(up->u_ba5e)) < 0) { 
up->u_error ■= EFAULT; 


return(-1); 

up'->u_coiint—; 
up->u_o f f set++; 
up->u_base++; 
return(c); 

} 

/* 

* Routine which sets a user error; placed in 

* illegal entries in the bdevsw and edevsw tables. 
*/ 

nodev() 

{ 

u.u_error » ENODEV; 

} 

/* 

* Null routine; placed in insignificant entries 

* in the bdevsw and edevsw tables. 

*f 

nulldev() 

{ 

) 

/* 

* Max function 
*/ 

max(a, b) 
unsigned a, b; 

{ 

if (a >“ b) 

return(a); 
return(b); 

) 

/* 

* Min function 
*/ 

min(a, b) 
unsigned a, b; 

{ 

if (a <- b) 

return(a); 
return(b); 
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/* g(i)sys.c 1.2 */ 

/* 

* indirect driver for controlling tty. 

*/ 

finclude "sys/param.h” 

#include “sys/types.h" 

^include "sys/sysmacros.h" 

#include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h“ 

♦include "sys/ermo.h" 

♦include "sys/conf.h" 

♦include "sys/proc.b" 

/* ARGSUSED */ 
syopen(dev, flag) 

{ 


if (sycheckO) 

(*cdevsw[(short)major(u.u_ttyd)].d_open)(minor(u.u_ttyd), flag); 

} 

I* ARGSUSED */ 
syread(dev) 

{ 


if (sycheckO) 

(*cdevsw{ (short)raajor (u.u^^ttyd) ] .d__read) (minor (u.u_ttyd)); 

} 

/* ARGSUSED */ 
sywrite(dev) 

{ 


if (sycheckO) 

(*cdevsw[ (short)major (u.u_ttyd) ] .d_write) (minor (u.u__ttyd)); 

} 

/* ARGSUSED */ 

syioctl(dev, cmd, arg, mode) 


if (sycheck()) 

(*cdevsw[(short)major(u.u_ttyd)1,d_ioctl)(minor(u.u_ttyd), cmd, arg, mode) 


sycheck() 

{ 

if (u.u_ttyp -=*= NULL) { 

u.u_error “ ENXIO; 
return(0); 

} 

if (*u.u_ttyp !=» u.u_procp->p_pgrp) { 
u.u_error = EIO; 
return(Q); 

} 

return(1); 


} 
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/* ^define HOWFAR */ 

/* 8{#)sysl.c 1.8 */ 

^include "sys/param.h” 

^include "sys/config.h" 

#include "sys/nmu.h" 

^include "sys/types.h” 

^include "sys/sysmacros.h" 

♦include “sys/systra.h'* 

♦include "sys/map.h" 

♦include "sys/dir.h" 

♦include '•sys/signal.h" 

♦include "sys/user.h" 

♦include •sys/errno.h" 

♦include "sys/proc.h" 

♦include "sys/context.h" 

♦include "sys/buf-h” 

♦include "sys/reg.h" 

♦include "sys/file.h” 

♦include ■sys/inode.h" 

♦include ■sys/seg.h" 

♦include "sys/acct.h" 

♦include "sys/sysinfo.h" 

♦include "sys/var.h” 

♦include "sys/ipc.h" 

♦include "sys/shm.h" 

♦include "sys/scat.h" 

/* 

* exec system call, with and without environments. 

*/ 

struct execa { 

char *fname; 

char **argp; 

char **envp; 

}; 

exec() 

{ 

((struct execa *)u.u_ap)->envp = NULL; 
exece(); 

♦define NCABLK (NCARGS+BSIZE-1)/BSIZE 

exece() 

{ 

register unsigned nc; 
register char *cp; 
register struct buf *bp; 
register struct execa *uap; 
register struct user *up; 
int na, ne, ucp, ap, c, bno; 
struct inode *ip; 
extern struct inode *gethead(); 
char *naraep; 

extern int (*putchar)(); 

sysinfo.sysexec++; 
if ((ip = getheadO) " NULL) 
return; 

up - 4u; 

bp - 0; na - 0; nc « 0; ne = 0; 
uap = (struct execa *)up->u_ap; 

/* collect arglist */ 

if ((bno - swapalloc(NCABLK, 0)) — 0) { 

printfC'No swap space for exec args\n”); 
iput(ip); 

up->U_error - ENQMEH; 
return; 

} 

if (uap->argp) for (;;) ( 
ap - NULL; 
if (uap->argp) { 

ap - fuword((caddr_t)uap->argp); 
uap->argp++; 


if (ap-“NULL && uap->envp) { 
uap->argp = NULL; 

if ((ap- fuword((caddr_t)uap->envp)) 
break; 

uap->envp++; 

ne++; 

} 

if (ap—NULL) 
break; 

na++; 

if (ap — -1) 

up->u_error - EFAULT; 


} 

nc++; 
*cp++ = 

} while (OO) ; 


if (nc >- NCARGS-1) 

up“>u_error = E2BIG; 
if ((c - fubyte((caddr_t)ap++)) < 0) 
up->u_error = EFAULT; 
if (up->u_error) 
goto bad; 

if ((nciBMASK) = 0) { 
if (bp) 

bdwrite(bp); 
bp - getblk(swapdev, 

(daddr_t) (swplo+bno+ (nc»BSHIFT))) ; 
cp = bp->b_un.b_addr; 


if (bp) 

bdwrite(bp); 

bp - 0; 

nc - (nc + NBPW-1) & ~(NBPW-1); 
getxfile(ip, (int)(nc + sizeof(char *)*na)); 
if (up->u_error) { 

printf("exec error: u_error %d u_dent.d_name ", up->u_error); 

for (namep - &up->u_dent,d_name[0]; namep && *namep 44 namep < 4up->u_dent.d_name[DIRS 
(*putchar)(*namep); 

(*putchar)('\n'); 

psignal (up->u_j>rocp, SIGKILL) ; 

goto bad; 

) 

/* copy back arglist */ 

ucp - v.v_uend - nc - NBPSf; 
ap - ucp - na*NBPW - 3*NKPW; 
up->u_ar0[SP] - ap; 

♦ifdef HOWFAR 

printf("Setting new stack pointer to 0x%x\n", ap); 

♦endif 

(void) suword((caddr_t)ap, na-ne); 
nc = 0; 
for (;;) { 

ap +- NBPW; 
if (na—ne) { 

ap +- NBPW; 

} 

if (—na < 0) 
break; 

(void) suword((caddr_t)ap, ucp); 
do ( 

if ((nc4BMASK) “ 0) { 
if (bp) { 

bp->b_flags 1 - B_AGE; 
bp->b_flags 4- ~B_DELWRI; 
brelse(bp>; 


bp - bread(swapdev, 

(daddr__t) (swplo+bno+ (nc»BSHIFT)}); 
bp->b_flags |- B_AGE; 
bp->b_flags 4- -B_DELWRI; 
cp - bp->b_un.b_addr; 
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(void) subyte((caddr_t)ucp++, (c = *cp++)); 
nc++; 

} while (C&0377); 

} 

(void) suword{(caddr_t)ap, 0); 
if ((long)ucp £ 1) 

(void) subyte((caddr_t)ucp++, 0); 

(void) suword((caddr_t)ucp, 0); 
setregs 0; 
if (bp) { 

bp->b_flags |= B_AGE; 
bp->b_flags £- ~B_DELWRI; 
brelse(bp); 

} 

iput(ip); 

mfree(swapmap, NCABLK, bno); 
return; 

bad: 

if (bp) 

brelse(bp); 
iput(ip); 

for (nc - 0; nc < NCABLK; nc++) { 

bp = getblk(swapdev, (daddr_t)(swplo+bno+nc)); 
bp->b_flags |- B_AGE; 
bp->b_flags &= ~B_DELSfRI; 
brelse(bp); 

mfree(swapmap, NCABLK, bno); 


struct inode * 
getheadO 
{ 

register struct exdata *ep; 
register struct inode *ip; 
register unsigned ds, ts; 
register struct user *up; 
struct exdata exdata; 

struct naout { 

short magic; 
short vstar^; 
long tsize, 
dsize, 
bsize, 
entry, 
ts. 


struct 

filhd { 



unsigned short 

magic; 


unsigned short 

nscns; 


long 

timdat, 

symptr, 

nsyms; 


unsigned short 

opthdr. 

} ; 


flags; 

struct 

scnhdr { 



char 

s_name [ 8 ] ; 


long 

s_paddr, 

s_vaddr, 

s_size, 

s_scnptr, 

s_relptr, 

s_lnnoptr; 


unsigned short 

s_nreloc, 

s_ninno; 

}; 

long 

s_flags; 

if ((ip 

- namei(uchar, 
return(NULL); 

0)) -= NULL) 


up - 4u; 


if (access(ip, lEXEC) I I 

{ip->i_mode fi IFMT) I- IFREG || 

(ip->i_mode & (lEXECl (IEXEC»3) t (IEXEC»6))) 
up->u_error = EACCES; 
goto bad; 


* read in first few bytes of file for segment sizes 

* ux_mag - 407/410/411 

* 407 is plain executable 

* 410 is RO text 

* 411 is separated ID 

* 570 Common object 

* 575 " 

* set ux_tstart to start of text portion 
*/ 

ep “ &exdata; 
up->u_base = (caddr_t)ep; 
up->u_count = sizeof(*ep); 
up->u_offset - 0; 
up->u_segflg = 1; 
readi(ip); 

#ifdef notdef 

if (ep->ux_mag — 0570 1 I ep->ux_mag == 0575) { 
up->u_ba se =■ (ca ddr_t) ep ; 
up“>u_count =« sizeof(*ep); 
up->u_offset <= sizeof (struct filhd) ; 
up->u_segflg =» 1; 
readi(ip) ; 

ep“>ux_tstart = sizeof(struct naout) + 

sizeof(struct filhd) + (3 * sizeof(struct scnhdr)); 
ep->ux_entloc ” ep->ux_ssize; 

} else { 

ep->ux_tstart - sizeof(up->u_exdata); 


up->u_segflg =0; 
if (up->u_count1=0) 

ep->ux_mag = 0; 
if (ep->ux_mag — 0407) { 

ds = btoc((long)ep->ux_tsize + 

(long)ep->ux_dsize + (long)ep->ux_bsize); 

ts = 0; 

ep''>ux_dsize +- ep->ux_tsize; 
ep->ux_tsize = 0; 

} else { 

ts = btoc(ep->ux_tsize); 
ds = btoc(ep->ux_dsize+ep->ux_bsize); 
if ((ip->i_flag£ITEXT)—0 ££ ip->i_count 1=1) { 
register struct file *fp; 


for (fp = file; fp < (struct file *)v.ve_file; fp++) 
if (fp->f_count £fi fp->f_inode = ip &£ 
(fp->f_flag£FWRITE)) { 

up->u_error = ETXTBSY; 
goto bad; 


if (ep->ux__mag i- 0410) { 

up->u_error = ENOEXEC; 
goto bad; 

) 

) 

(void) ch]csize(ts, ds, (unsigned) (SSIZE+btoc(NCARGS-1))); 
up->u_exdata - exdata; 

if (up->u_error) { 
iput(ip) ; 
ip “ NULL; 


return(ip); 


Read in and set up memory for executed file. 



sysl. c 


Fri Sep 5 19:08:25 1986 


3 


getxfiledp, nargc) 
register struct inode *ip; 

{ 

register struct exdata *ep; 
register struct user *up; 
register struct proc *p; 
register unsigned ts, ds, ss; 
register i; 

up = &u; 

p - up->u_procp; 
ep •= &up->u_exdata; 

♦ifdef HOWFAR 

printf ("getxfile: reading in progranSn*'); 

#endif 

shmexec(); 

(void) punlock(); 
xfree(); 

ts = btoc(ep“>ux_tsize); 

ds = btoc(ep->ux_dsize + ep->ux_bsize); 

ss = SSIZE + v.v_usize + btoc(nargc); 

i “ v.v_usize+ds+ss; 

expand(i); 

(void) estabur((unsigned)0, ds, ss, 0, RO); 
procclear(p); 

/* 

while (—i >“ v.v_usize) 

clearseg((int)(p->p_addr+i)); 

*/ 

xalloc(ip); 

up->u_jprof. pr_scale = 0; 

/* 

* read in data segment 
*/ 

(void) estabur(ts, ds, (unsigned)0, 0, RO); 
if (v.v_doffset) 

up->u_base =“ (caddr_t)v.v_doffset; 

else 

up->u_base = (caddr_t)(v.v_ustart + ctob(stcc(ctos(ts)))); 
up->u_offset = sizeof(up->u_exdata) + ep->ux_tsize; 
up->u_count = ep->ux_dsi 2 e; 
readi(ip); 
i f (up->u_co;int I -0) 

up->u_error - EFAULT; 

/* 

* set SUID/SGID protections, if no tracing 
*/ 

if ((p->p_flag&STRC)=0) { 

if (ip->i_mode&ISUID) 

up->u_uid “ ip->i_uid; 
if (ip->i_raode&ISGID) 

up->u_gid =« ip-‘>i_gid; 
p->p_suid = up->u_uid; 

} else 

psignaKp, SIGTRAP); 
up->u_tsize - ts; 
up->u_dsize - ds; 
up-->u_ssize “ ss; 

(void) e3tabur(ts, ds, ss, 0, RO); 

) 

/* 

* Clear registers on exec 
*/ 

setregs () 

{ 

register struct user *up; 
register char *cp; 
register int *rp; 
register i; 

up - 4u; 

for (rp - 4up->u_signal|:01; rp < &up->u_signal[NSIG] ; rp++) 


if ((*rp 4 1) “ 0) 

*rp = 0; 

for (cp *“ 4reglocI0]; cp < 4regloc[15]; ) 
up->u_ar0[*cp++3 = 0; 

up->u_ar0[PC] “ up->u_exdata.ux_entloc 4 ~Q1; 

#ifdef HO?fFAR 

printf("New pc = Qx%x\n", up->u_ar0[PC]); 

tendif 

for (i-0; i<NOFILE; i++) { 

if ((up->u_j)0file[i]4EXCL0SE) 44 up->u_ofile[i] NULL) { 
closef(up->u_ofile[i]); 
up->u_oflle[i] - NULL; 

) 

} 

/* 

* Remember file name for accounting. 

*/ 

up->u_acflag 4- ~AFORK; 

bcopy ((caddr_t) up->u_dent. d_name, (caddr_t) up->u_coinm, DIRSI2); 

} 

/* 

* clear the data space for a process 
*/ 

#ifdef NONSCATLOAD 
procclear(p) 
struct proc *p; 

{ 

register i, a; 

a “ p->p_addr; 
i •= p->p_size; 
while(—i >“ v.v_usize) 
clearseg(a+i); 

} 

felse 

procclear(p) 
struct proc *p; 

{ 

register struct scatter *s; 
register i, al; 

s - scatmap; 
al - p->p_scat; 
for (i“0; i<v.v_usize; i++) 
al « s[al].sc_index; 
while (al SCATEND) { 

clearseg(ixtoc(al)); 
al - s[al].sc_index; 

} 

} 

^endif 

/* 

* exit system call: 

* pass back caller's arg 
*/ 

rexit() 

{ 

register struct a { 

int rval; 

} *uap; 

uap - (struct a *)u.u_ap; 
exit((uap->rval 4 0377) « 8); 

) 

/* 

* Release resources. 

* Enter zombie state. 

* Wake up parent and init processes, 

* and dispose of children. 

*/ 

exit(rv) 

( 
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register struct user *up; 

register int i; 

register struct proc *p, *q; 

#ifdef mc68881 /* MC68881 floating-point coprocessor */ 

extern short fp881; /* is there an MC688812 */ 

#endif ffic63881 

up - Su; 

p “ up->u_procp; 
p->p_flag ~(STRC); 

p->p_clktim “ 0; 
for {i=0; i<NSIG; i++) 

up->u_signa1[i] - 1; 
expand(v.v_usize); 

(void) estabur((unsigned)0, (unsigned)0, (unsigned)0, 0, RO); 
if ((p'’>p_j)id = p->p_jpgrp) 

&& (up->u_ttyp NULL) 

£& {*up->u_ttYp =- p->p_pgrp)) { 

*up->u_ttyp ” 0; 

signal (p->p_j>grp, SIGHUP); 

} 

P">P_pg3:p = 0; 

for (i=0; KNOFILE; i++) { 

if (up->u_ofile[i] i- NULL) 

closef(up->u_ofile[i]); 

} 

(void) punlockO; 
plock(up->u_cdir); 
iput(up->u_cdir); 
if (up->u_rdir) { 

plock(up->u_rdir); 
iput(up->u_rdir); 

} 

fifdef FLOAT /* sky floating point board */ 

/* 

* If this process was using the SKY FFP, restore 

* the board to a known state. 

*/ 

if (up->u_fpinuse) 
savfp(); 

iendif 

#ifdef mcesasi /* MC68881 floating-point coprocessor */ 

/* 

* If there is an HC68881, save the internal state and user 

* registers so they'll be available in a core image. 

* Then reset the coprocessor by restoring it to a null state. 
*/ 

if (fp881) { 

fpsave(); 
fpreset 0; 

} 

#endif mc68881 
/* 

* call OEM supplied subroutine on process exit 
*/ 

oemexit(p); 

xfree 0; 

semexit(); 
shraexit(); 

acct(rv); 

♦ifdef NONSCATLOAD 

rafree(coremap, p->p_size, p->p_addr); 

telse 

memfree(p->p_scat); 
p->p_scat - SCATEND; 

♦endif 

cxrelse(p->p_context); 
p->p_stat - SZOMB; 

((struct xproc *)p)->xp_xstat - rv; 

((struct xproc *)p)->xp_utime » up->u__cutime + up->u_utinie; 
((struct xproc *)p)->xp_stime » up->u_cstirae + up->u_stime; 
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^P“>^_P’^ocp“>p_cpu =■ n; 
up->u_rvall = p->p_pid; 

up-'>u_rval2 = ((struct xproc *)p)->xp_xstat; 

} 

up->u_cutime += ((struct xproc *)p)->xp_utime; 
up->u_cstijBe += ((struct xproc *)p)->xp_stiras; 
p->p_stat = NULL; 

P“>pjpid - 0; 

P">P_Ppid >= 0; 

P~>P_sig - OL; 
p->p_flag - 0; 
p->p_wchau =■ 0; 

} 


* fork system call. 
*/ 

forkO 


register struct user *up; 
register a, i; 

int sz, xsize[NSCATSWAP], xaddr[NSCATSffAP]; 
up ■= 4u; 

sysinfo.sysfork++; 

/* 

* Disallow if 

* No processes at all; 

* not su and too many procs owned; or 

* not su and would take last slot; or 

* not su and no space on swap. 

* Part of check done in newprocO. 

*/ 

if (up->u_uid && up->u_ruidj { 

if ((a =" malloc (swapmap, ctod (raaxmem))) 
sz = ctod(maxmem); 
for (i * 0; i < NSCATSWAP; i++) 
if (sz = 0) { 

xsize[i] = 0; 
break; 


a =» MIN(raalloci (swapmap), sz); 
xsi 2 e[i] = a; 

xaddr[i] =■ malloc(swapmap, a); 


“ 0; i < NSCATSWAP; i++) 
if (xsize[i] — 0) 
break; 

else 

mfree(swapmap, xsize[i], xaddr[i]); 

1= 0) { 

printfC'Not enough swap space to forkXn"); 
up->u_error - ENCWEM; 
goto out; 


mfree (swapmap, ctod (maxmem), a) ; 


switch( newproc(l) ) { 

case 1; /* child — successful newproc 

^P"^i^_rvall - up->u__procp->p_ppid; 
up->u_rval2 - 1; /* child */ 

up->u_start - time; 

^P“>u_ticks - Ibolt; 

up->u_mem “ v.v_usize + procsize(up->u_procp); 
up->u_ior - 0; 
up->u_iow “ 0; 
up->u_ioch » 0; 
up->u__cstirae * 0; 
up->u_stime - 0; 
up->u_cutime - 0; 
up->u_utirae - 0; 
uP“>'^_acflag - AFORK; 
return; 

case 0: /* parent — successful newproc 


/* up->u_rvall == pid-of“Child; */ 
break; 

default; /* unsuccessful newproc */ 
up->u_error - EAGAIN; 
break; 


out: 

up->u_rval2 = 0; /* parent */ 
up->u_ar0[PC] += 2; 


/* 

* break system call. 

* — bad planning; "break" is a dirty word in C. 
*/ 

frifdef NONSCATLOAD 
sbreak() 

{ 

register struct user *up; 
struct a { 

unsigned nsiz; 

}; 

register n, d, a; 
int i; 


up - &u; 

/* 

* set n to new data size 

* set d to new-old 

* set n to new total size 
*/ 

if (v.v_doffset) 

n ” btoc((int)(((struct a *)up“>u_ap)->nsi 2 )) - 
btoc (V. v_doffset) ; 

else { 

n = btoc((int)(((struct a *)up“>u_ap)->nsiz)) - 
btoc(V. v_ustart); 
n -= stoc(ctos(up->u_tsize)); 

} 

if (n < 0) 

n *= 0; 

d =■ n - up->u_dsi 2 e; 
if (d 0) 

retiirn; 

n +- v.v_usize+up“>u_ssize; 

if (chksize(up->u_tsize, up->u_dsi 2 e+d, up“>u_ssize)) 
return; 

up->u_dsize +- d; 

(void) estabur(up“>u_tsize, up->u_dsi 2 e, up“>u_ssize, 0, RO); 
if (d > 0) 

goto bigger; 

a “ up->u_procp->p_addr + n - up“>u_ssize; 
i =• n; 

if (d < 0) { 

n “ up->u_ssize; 
while (n—) { 

copyseg(a-d, a); 
a++; 


expand(i); 
return; 


expand(n); 

a - up->u_procp“>p_addr + n; 
n - up->u_ssl 2 e; 
while (n—) ( 
a—; 

copyseg(a-d, a); 


while (d—) 

clearseg(—a); 


#else 
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sbreakO 

{ 

register struct scatter *s; 
register struct user *up; 
struct a { 

unsigned nsiz# 

}; 

register n, d, al, a2; 
int i; 
short t; 

up « 6u; 

/* 

* set n to new data size 

* set d to new-old 

* set n to new total size 
*/ 


n ” btoc((int)(((struct a *)up->u_ap)->nsiz)) - btoc(v.v_ustart); 
n — stoc(ctos(up->u_tsize)); 
if (n < 0) 

n = Q; 

d =» n - up->u_dsize; 
if (d 0) 

return; 

n +=• v.v_usize+up->u_ssize; 

if (chksize(up->u_tsize, up->u_dsize+d, up->u_ssiz6)) 
return; 
s ” scatmap; 
up->u_dsize += d; 
if (d > 0) 

goto bigger; 

nscatfree — d; /* note: d is negative */ 

up->u_procp->p_size * n; 
al = up->u_procp->p_scat; 
n =• up->u_dsize + v.v_usize; 
for (i”l; i<n; i++) 

al - s[al].sc_index; 

a2 = al; 
while (d++ < 0) 

a2 = s[a23.3C_index; 
t - scatfreelist.sc_index; 
scatfreelist.sc_index = s[al].sc_index; 
s[al].sc_index - s[a2].sc_index; 
s[a2].sc_index - t; 

(void) estabur(up->u_tsize, up->u_dsize, up->u_ssize, 0, RO); 
#ifdef OLD 

a => up->u_j)rocp->p_addr + n - up->u_ssize; 
i =« n; 

if (d < 0) { 

n = up->u_ssize; 
while (n—) { 

copyseg(a-d, a); 
a++; 

} 

} 

expand(i); 

iendif 

up->u_j)rocp->p_flag fi- -SCONTIG; 
return; 

bigger; 

expand(n); 

al “ up->u_procp->p_scat; 

/* 

* find last index of original data space 
*/ 

n - up->u_dsize + v.v_usize - d; 
if (n -= 0) 

printf C'sbreak;original size is zero\n”); 
for (i-1; i<n; i++) 

al - 3[al].sc_index; 

/* 

* inove stack if necessary 
*/ 

if (up->u_ssize i-Q && (int) (up->u__dsize-d) <- 0) 


printfCsbreak:bigger; unusual condition #l\n"); 
if (up->u_ssize =- 0) { 
while (d— > 0) 

clearseg(ixtoc(al “ s[al].sc_index)); 
if (s[al].sc_index SCATEND) 

printf Csbreak: not at end of list\n*'); 

} else { 

/* 

* find end of original stack space 
*/ 

a2 - al; 

for (i“0; i<up->u_ssize; i++) 
a2 - s[a2].sc_index; 
t “ s[al].sc_index; 
s[al].sc_index - s[a2].sc_index; 
s[a2].sc_index = SCATEND; 
while (d— > 0) 

clearseg(ixtoc(al = s[al].sc_index)); 
s[all.sc_index = t; 

} 

(void) estabur (up->u_tsize, up->u__dsize, up->u_ssize, 0, RO) 
up->u_procp->p_flag -SCONTIG; 

#ifdef OLD 

a = up->u_procp->p_addr + n; 
n = up->u_ssize; 
while (n—) { 


♦endif 

} 


copyseg(a-d, a); 

} 

while (d—) 

clearseg(—a); 
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/* e(f)sys2.c 1.6 */ 

^include "sys/param.h” 

^include "sys/types.h“ 

^include ■‘sys/systm.h" 

♦include **sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/proc.h" 

♦include "sys/errno.h” 

♦include "sys/file.li" 

♦include "sys/inode.h" 

♦include "sys/sysinfo.h" 

♦ifdef UCB_NET 
♦include •net/misc.h" 

♦include "net/socket.h" 

♦include "net/socketvar.h" 

♦endif 

/* 

* read system call 
*/ 

readO 

{ 

sysinfo.sysread++; 
rdwr(FREAD); 

} 

f* 

* write system call 
*/ 

write() 

{ 

sysinfo.syswrite++; 
rdwr(FWRITE); 

} 

/* 

* common code for read and write calls; 

* check permissions, set base, count, and offset, 

* and switch out to readi or writei code. 

*/ 

rdwr(mode) 
register mode; 

{ 

register struct user *up; 
register struct file *fp; 
register struct inode *ip; 
register struct a { 

int fdes; 
char *cbuf; 
unsigned count; 

} *uap; 

register int type; 
up - 4u; 

uap “ (struct a *)up->u_ap; 
fp - getf(uap->fdes); 
if (fp — NULL) 
return; 

if ((fp->f_flag4mode) -- 0) { 
up->u_error - EBADF; 
return; 

} 

up>->u_base - (caddr_t)uap->cbuf; 

up->u_count “ uap->count; 

up->u_segflg » 0; 

up->u__fmode = fp“>f_flag; 

ip = fp->f_inode; 

type = ip->i_modeSlFMT; 

/* 

* Fix from ROOT: check for file lock before attempting 

* to lock the inode. 

*/ 

if (type—IFREG) { 

if ((up->u_fmode&FAPPEND) && (mode —- FWRITE)) 


♦ifdef 


♦endif 


fp->f__offset - ip->i_size; 
up->u_offset “ fp->f_offset; 
if (ip“>i_locklist && 

locked(1, ip, up->u_offset, 

(off_t){up->u_offset+up“>u_count))) 
return; 

} 

UCB_NET 

if (fp->f_flag & FSOCKET) { 
if (mode = FREAD) 

u.u__error = soreceive ((struct socket *) fp->f_socket, (struct sockaddr *)0); 

else 

u.u__error = sosend( (struct socket *) fp“>f_socket, (struct sockaddr *)0); 

} else 
{ 

if (type=lFREG | | type—IFDIR) { 
plock(ip); 

if <(up->u_fmode4FAPPEND) && (mode — FWRITE)) 
fp->f_offset - ip->i_size; 

} else if (type — IFIFO) { 
plock(ip); 
fp->f_offset = 0; 

} 

up->u_offset - fp->f_offset; 
if (mode — FREAD) 
readi(ip); 

else 

writei(ip); 

if (type—IFREG I I type—IFDIR I i type—=IFIFO) 
prele(ip); 

fp->f_offset +- uap^>coiint-up->u_count; 

} 

up->u_rvall = uap->count‘-up~>u_count; 
up->u_ioch +“ (unsigned)up->u_rvall; 
if (mode — FREAD) 

sysinfo.readch +- (unsigned)up->u_rvall; 

else 

sysinfo.writech +- (unsigned)up->u_rvall; 


/* 

* open system call 
*/ 

open() 

{ 

register struct a { 

char *fname; 

int mode; 

int crtmode; 

} *uap; 


uap =* (struct a *)u.u_ap; 

copen(uap->mode-FOPEN, uap->crtmode); 


/* 

* creat system call 
*/ 

creat () 

( 

struct a ( 

char *fname; 

int fmode; 

} *uap; 


uap -= (struct a *)u.u_ap; 

copen(FWRITE1FCREAT1FTRUNC, uap->fmode); 


/* 

* common code for open and creat. 

* Check permissions, allocate an open file structure, 

* and call the device open routine if any. 

*/ 

copen(mode, arg) 
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register mode; 


register struct user *up; 
register struct inode *ip; 
register struct file *fp; 
int i; 

up = 4u; 

if ((mode4(FREAD|FWRITE)) « 0) { 
up->u_error - EINVAL; 
return; 

} 

if (inode4FCREAT) { 

ip =“ namei (uchar, 1); 
if (ip = NULL) { 

for (i=Q; i<NOFILE; i++) 

if (up->u_ofile[i] “= NULL) 
break; 

if (i >- NOFILE) { 

iput(u.u_pdir); 
up->u_error =■ EMFILE; 

} 

if (up->u_error) 
return; 

ip - i[iaknode(arg40?7774 {-ISVTX)) ; 

if (ip = NULL) 
return; 

mode 4= -FTRUNC; 

) else { 

if (ip->i_locklist != NULL 44 

(ip->i_flag4IFHT) “ IFREG 44 
locked(2, ip, (long)(0L), (long) (1L«30))) { 
iput(ip); 
return; 

} 

if (mode4FEXCL) { 

up->u__error = EEXIST; 

iput (ip) ; 

return; 


#ifndef VIRTUAL451 

xmfree(ip); 


ip = namei(uchar, 0); 
if (ip =“ NULL) 
return; 

! (mode4FCREAT)) { 
if (mode4FREAD) 

(void) access(ip, IREAD); 
if (mode4(FWRITE|FTRUNC)) { 

(void) access(Ip, IWRITE); 
if ((ip->i_mode4IFHT) -= IFDIR) 
up->u_error = EISDIR; 


if (up->u_error || (fp - falloc(ip, raode4FMASK)) 
iput(ip); 


if (mode4FTRUNC) 

itrunc(ip); 
prele(lp); 
i = up->u_rvall; 

if (save(up->u_qsav)) { /* catch half-opens 
if (up->u_error =■= 0) 

up->u_error - EINTR; 
up->u_ofile[i] - NULL; 

♦ifdef UCB_NET 

fp->f_flag I- FISUSER; 

♦endif 

closef(fp); 


i else { 


openi(ip, mode); 
if (up->u_error *=“ 0) 
return; 

up->u_ofile[i] - NULL; 
if ((—fp->f_count) <- 0) { 

fp->f_next - ffreelist; 
ffreelist = fp; 

} 

iput(ip); 

} 

} 

/* 

* close system call 
*/ 

close() 

{ 

register struct file *fp; 
register struct a { 

int fdes; 

} *uap; 

uap = (struct a *)u.u_ap; 
fp - getf(uap->fdes); 
if (fp “= NULL) 
return; 

u.u_ofile[uap->fdes] = NULL; 

♦ifdef UCB_NET /* so sockets close correctly */ 

fp->f_flag I- FISUSER; 

♦endif 

closef(fp); 

) 

/* 

* seek system call 
*/ 

seek() 

{ 

register struct file *fp; 
register struct inode *ip; 
register struct a { 

int fdes; 

off_t off; 
int sbase; 

) *uap; 

register struct user *up; 
up = 4u; 

uap >= (struct a *)up->u_ap; 
fp - getf(uap->fdes); 
if (fp = NULL) 
return; 

♦ifdef UCB_NET 

if (fp->f_flag4FSOCKET) { 

u.u_error - ESPIPE; 
return; 

} 

♦endif 

ip - fp->f_inode; 
if ((ip->i_mode4IFMT)=-IFIFO) { 
up->u_error * ESPIPE; 
return; 

) 

if (uap->sbase =- 1) 

uap->off +“ fp->f_offset; 
else if (uap->sbase “ 2) 

uap->off +“ fp->f_inode->i_si 2 e; 
else if (uap->sbase i- 0) { 

up->u_error - EINVAL; 
psignal(up->u_procp, SIGSYS); 
return; 

} 

if (uap->off < 0) { 

up->u_error - EINVAL; 
return; 

} 
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fp“>f_offset ” uap->off; 
up->u_roff =« uap->off; 

/* 

* link system call 
*/ 

linkO 

{ 

register struct user *up; 
register struct inode *ip, *xp; 
register struct a { 

char *target; 

char *1inkname; 

} *uap; 
up “ &u; 

uap = (struct a *)up->u_ap; 
ip = namei(uchar, 0); 
if (ip “= NULL) 
return; 

if (ip->i_nlink >“ MAXLINK) { 
up->u_error = EMLINK; 
goto outn; 

if ((ip->i_mode&IFHT)==IFDIR && IsuserO) 
goto outn; 

/* 

* Unlock to avoid possibly hanging the namei. 

* Sadly, this means races. (Suppose someone 

* deletes the file in the meantime?) 

* Nor can it be locked again later 

* because then there will be deadly 

* embraces. 

* Update inode first for robustness. 

*/ 

ip->i_nlink++; 
ip->i_flag |= ICHG|ISYN; 
iupdat(ip, &time, itime); 
prele(ip); 

up->u_dirp = (caddr_t)uap->linkname; 
xp = namei(uchar, 1); 
if (xp !- NULL) { 
iput(xp); 

up“>u_error = EEXIST; 
goto out; 

) 

if (up->u_error) 
goto out; 

if (up-“>u_pdir->i_dev i= ip->i_dev) { 
iput (up->u_j>dir) ; 
up->u_error - EXDEV; 
goto out; 

} 

wdir(ip); 

out: 

plock(ip); 
if (up->u_error) { 

ip->i_nlink—; 
ip->i_flag [- ICHG; 

} 

outn: 

iput(ip); 
return; 

} 

/* 

* mknod system call 
*/ 

mknod() 

{ 

register struct inode *ip; 
register struct a ( 

char * fname; 
int fmode; 

int dev; 


} *uap; 


uap -= (struct a *)u.u_ap; 

if ((uap->fmode&IFMT) !=* IFIFO &£ IsuserO) 
return; 

ip - namei(uchar, 1); 
if (ip !- NULL) { 
iput(ip); 

u.u_error = EEXIST; 
return; 

} 

if (u.u_error) 
return; 

ip - maknode(uap->fmode) ; 
if (ip ““ NULL) 
return; 

switch(ip->i_mode &IFMT) { 
case IFCHR: 
case IFBLK: 

ip->i_rdev = (dev_t)uap->dev; 
ip->i_flag )= ICHG; 

) 

iput(ip); 

} 

/* 

* access system call 
*/ 

saccessO 

{ 

register struct user *up; 
register svuid, svgid; 
register struct inode *ip; 
register struct a { 

char *fname; 

int fmode; 

} *uap; 
up - &u; 

uap - (struct a *)up“>u_ap; 
svuid = up->u_uid; 
svgid = up->u_gid; 
up->u_uid = up->u_ruid; 
up->u_gid = up“>u_rgid; 
ip = namei(uchar, 0) ; 
if (ip I- NULL) { 

if (uap->fmode& (IREAD»6)) 

(void) access(ip, IREAD); 
if (uap->fmode& (IWRITE»6)) 

(void) access(ip, IWRITE); 
if (uap->fmode4(IEXEC»6)) 

(void) access(ip, lEXEC); 
iput(ip); 

} 

up->u_uid - svuid; 
up->u_gid * svgid; 


} 
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/* e(t)sys3.c 1.4 */ 

#include "sys/param.h" 

^include "sys/types.h" 

^include "sys/sysmacros.h" 
♦include "sys/systm.h” 

Tinclude "sys/iaount.h" 

♦include "sys/ino.h" 

♦include "sys/buf.h" 

♦include "sys/filsys.h“ 

♦include "sys/dir .h** 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/inode.h" 

♦include "sys/file.h" 

♦include "sys/conf.h" 

♦include "sys/stat.h" 

♦include "sys/ttold.h" 

♦include "sys/var.h" 

♦ifdef UCB_NET 
♦include "sys/termio.h" 

♦include "net/misc.h" 

♦include "net/socketvar.h" 

♦endif 

/* 

* the fstat system call. 

*! 

fstat () 

{ 

register struct file *fp; 

register struct a { 

int fdes; 
struct stat *sb; 

} *uap; 


uap “ (struct a *)u.u_ap; 
fp “ getf(uap->fdes); 
if(fp “= NULL) 
return; 

♦ifdef UCB_NET 

if (fp->f_flag & FSOCKET) 

u.u_error = sostat((struct socket *)fp->f_socket, uap->sb); 

else 

♦endif 

statl(fp->f_inode, uap“>sb); 


/* 

* the stat system call. 

*{ 

stat() 

{ 

register struct inode *ip; 
register struct a { 

char *fnaroe; 
struct stat *sb; 

} *uap; 


uap - (struct a *)u.u_ap; 
ip - naraei(uchar, 0); 
if(ip — NULL) 
return; 

statl(ip, uap->sb); 
iput(ip); 


/* 

* The basic routine for fstat and stat: 

* get the inode and pass appropriate parts back. 
*/ 

statl(ip, ub) 

register struct inode *ip; 
struct stat *ub; 

{ 

register struct dinode ’"'dp; 


register struct buf *bp; 
register struct stat *dsp; 
struct stat ds; 


} 


if (ip-'>i_flag&(IACC|IUPD|ICHG)) 

iupdat(ip, itime, &time); 

/* 

* first copy from inode table 
*/ 

dsp •= &ds; 

dsp->st_dev = brdev(ip->i_dev) ; 
dsp->st_ino - ip->i_number; 
dsp->st_mode = ip->i_mode; 
dsp->st__nlink =*• ip“>i_nlink; 
dsp->st_uid = ip->i_uid; 
dsp->st_gid = ip->i_gid; 
d sp-> st_rdev - (dev_t)ip->i_rdev; 
dsp->st_size = ip->i_size; 

/* 

* next the dates in the disk 
*/ 

bp - bread (iFr->i_dev, FsITOD (ip“>i_dev, ip->i_number)); 
dp * bp->b_tui.b_dino; 

dp +=* FsITOO(ip->i_dev, ip->i_niiraber) ; 
dsp->st_atime “ dp->di_atime; 
dsp->st_ratime - dp->di_mtime; 
dsp'->st_ctime = dp'->di_ctime; 
brelse(bp); 

if (copyout((caddr_t)dsp, (caddr_t)ub, sizeof(ds)) < 0) 
u.u error = EFAULT; 


/* 

* the dup system call. 

*/ 

dupO 

{ 

register struct file *fp; 
int i; 
struct a { 

int fdes; 


J *uap; 


uap ■= (struct a *)u.u_ap; 
fp - getf(uap->fdes) ; 
if(fp “= NULL) 
return; 

if ((i = ufalloc(O)) < 0) 
return; 

u.u_ofile[i] - fp; 
fp“>f_count++; 


/* 

* the file control system call. 
*/ 

fcntl() 


register struct file *fp; 
register struct a ( 

int fdes; 

int cmd; 

int arg; 

} *uap; 
register i; 

register struct user *up; 


up “ 4u; 

uap - (struct a *)up->u_ap; 
fp - getf(uap->fdes); 
if (fp “ NULL) 
return; 

switch (uap->cnid) { 
case 0: 

i - uap->arg; 

if (i < 0 ii i > NCFILE) { 
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up->u_error = EINVAL; 
return; 

} 

if ((i “ ufalloc(i)) < 0) 
return; 

up->u_ofile [i] =*= fp; 
fp-> f_count++; 
break; 

case 1: 

up->u_rvall =• up->u_jx3file[uap-‘>fdes] ; 
break; 

case 2: 

up->u__poflle[uap->fdes] = uap->arg; 
break; 


) 


case 3: 

up->u_rvall “ fp->f_flag+FOPEN; 
break; 

case 4; 

fp->f_flag 4- (FREADIFWRITE); 

fp->f_flag 1“ <uap“>arg-FOPEN) & -(FREADIFWRITE); 
break; 

default; 

up->u_error == EINVAL; 

} 


/* 

* character special i/o control 
*/ 

ioctl() 

{ 

register struct file *fp; 
register struct inode *ip; 
register struct a { 

int fdes; 

int cmd; 

int arg; 

) *uap; 

register dev_t dev; 

♦ifdef UCB_NET 

register unsigned fmt; 

tendif 


uap “ (struct a *)u.u_ap; 
if ((fp = getf(uap->fdes)) == NULL) 
return; 

tifdef UCB_NET 

if {fp->f_flag £ FSOCKET) { 

soioctl ((struct socket *) fp->f_socket, uap->cmd, (caddr_t) uap**>arg); 
return; 

} 

tendif 

ip = fp->f_inode; 

#ifdef UCB_NET 

fmt =■ ip”>i_mode fi IFMT; 
if (fmt IFCHR) { 

if (uap->cmd—FIONREAD &£ (fmt =- IFREG |j fmt “ IFDIR 
I I fmt — IFIFO)) { 
off_t nread; 

if ((ip“>i__mode4IFMT)““IFIFO) 
nread “ ip->i__size; 

else 

nread - ip->i_3ize - fp->f_off3et; 
if (copyout((caddr_t)£nread, (caddr_t)uap->arg, 
sizeof(off_t))) 
u.u_error “ EFAULT; 

) else if (uap->ciad ““ FIONBIO /*tl uap->cmd — FIOASYNC*/) 
return; 

else 

u,u_error - ENOTTY; 


return; 


} 

♦else 

if ((ip->i_mode4IFMT) 1“ IFCHR) { 
u.u_error = ENOTTY; 
return; 

} 

♦endif UCB_NET 

dev “ (dev_t)ip->i__rdev; 

(*cdevsw[(short)major(dev)].d_ioctl)(minor(dev),uap->cmd,uap->arg,fp->f_flag); 

} 

/* 

* old stty and gtty 
*/ 

stty() 

{ 

register struct a { 

int fdes; 
int arg; 
int narg; 

} *uap; 

uap “ (struct a *)u.u_ap; 
uap->narg - uap->arg; 
uap->arg = TIOCSETP; 
ioctl 0; 

} 

gttyo 

{ 

register struct a { 

int fdes; 
int arg; 
int narg; 

} *uap; 

uap “ (struct a *)u.u_ap; 
uap->narg * uap->arg; 
uap->arg “ TIOCGETP; 
ioctl(); 

} 

/* 

* the mount system call. 

*/ 

smount () 

{ 

register struct user *up; 
register dev_t dev; 
register struct inode *ip; 
register struct mount *mp; 
struct mount *smp; 
register struct filsys *fp; 
struct inode *bip “ MULL; 
register struct a ( 

char *f3pec; 

char *freg; 

int ronly; 

) *uap; 


up “ £u; 

uap “ (struct a *)up->u_ap; 
if (JsuserO) 

return; 

ip “ namei(uchar, 0); 
if(ip — NULL) 
return; 

iff (ip->i_iiio<le* IFMT) !“ IFBLK) 
up->u_error “ ENOTBLK; 
dev “ (dev_t)ip->i_rdev; 
if(braajor(dev) >“ bdevcnt) 
if (!up->u_error) 

up->u_error - ENXIO; 

if {up->u_error) 
goto out; 
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bip =“ ip; 

up->u_dirp « (caddr_t)uap->freg; 
ip - namei(uchar, 0); 
if(ip NULL) { 

iput (bip) ; 
return; 

} 

if ((ip->i_modeSIFMT) 1- IFDIR) { 
up->u_errQr = ENOTDIR; 
goto out; 

} 

if (ip->i_count 1) 
goto out; 

if (ip->i_nuinber »“ ROOTING) 
goto out; 
smp = NULL; 

for(mp •= imountIO]; rap < (struct mount *)v.ve_raount; mp++) 
if(mp->m_flags != MFREE) { 

if (brdev(dev) brdev(mp->m_dev)) 
goto out; 

} else 

if(smp “= NULL) 

smp = mp; 

} 

mp - smp; 
if(rap “■ NULL) 

goto out; 

mp->m_flags = KINTER; 
mp->ni_dev * brdev(dev); 

(*bdevsw[ (short )hniajor (dev) ] .d_open) (minor (dev) , 

uap->ronly 2 (FREAD ! FKERNEL) : (FREAD | FSJRITE | 
if(up->u_error) 

goto outl; 

rap“>m_bufp - geteblkO; 
fp = inp->ra_bufp->b_un.b_filsys; 
up->u_offset = SUPERBOFF; 
up->u_count = sizeof(struct filsys); 
up->u_base = (caddr_t)fp; 
uP“>ii_segflg == 1; 
readi(bip); 
if (up->u_error) { 

brelse(mp->m_bufp); 
goto outl; 


mp->m_inodp - ip; 
mp->m_flags - MINUSE; 
if (fp->s_magic 1= FsMAGIC) 
fp->s_type = Fslb; 
if (fp->s_type “= Fs2b) 

rap->m_dev 1= Fs2BLK; 

YPE ““ 4 

if (fp->s_type =“= Fs4b) 

mp->m_dev |- Fs4BLK; 


assume old file system 


if (brdev(pipedev) =»*=■ brdev (mp“>m_dev)) 
pipedev = rap->ra_dev; 
fp->s_iloclc ” 0; 
fp->s_floclc ■= 0; 
fp->s_ninode - 0; 
fp-> s_inode[0] “ 0; 
fp->s_ronly “ uap->ronly & 1; 
if (mp->ra_mount - iget(mp->m_dev, ROOTING)) 
prele(mp->m_raount); 

else { 

brelse (rap->m__bufp) ; 
goto outl; 

) 

ip->i_flag |- IMOUNT; 
iput (bip) ? 
prele(ip); 
return; 


rap->ra_flags = MFREE; 
if (bip i- NULL) 


) 


iput(bip); 

if (up->u_error 0) 

up->u_error ■= EBUSY; 
iput(ip); 

/* 

* the umount system call. 

*/ 

sumount() 

{ 

register dev_t dev; 
register struct inode *ip; 
register struct mount *mp; 
register struct a { 

char *fspec; 

}; 

if (IsuserO) 

return; 

dev - getmdev(); 
if(u.u_error) 

return; 

for(mp * imount[0]; mp < (struct mount *)v.ve_raount; mp++) 

if(mp->m_flags ” MINUSE && brdev(dev) -= brdev(mp->m_dev)) 
goto found; 
u.u_error = EINVAL; 
return; 

found; 

dev - mp->m_dev; 

(void) xumount(dev); /* remove unused sticky files from text table */ 

update(); 

if (mp->m__mount) { 

plock (mp->m__moimt) ; 
iput(mp->m_mount); 
mp->m_mount -= NULL; 

} 

for(ip ” &inode[0]; ip < (struct inode *)v.ve_inode; ip++) 
if (ip->i_numb€r !== 0 &4 dev -= ip->i_dev) { 
u.u_error = EBUSY; 
return; 

} 

(*bdevsw[ (short)hmajor (dev) ] .d_close) (minor (dev), FKERIIEL) ; 
binval(dev); 
ip - mp-'>m_inodp; 
ip->i_flag 4- -IMOUNT; 
plock(ip); 
iput(ip); 

brelse(mp->m_bufp); 
mp->m_bufp = NULL; 
mp->m_flags == MFREE; 


/* 

* Common code for mount and umount. 

* Check that the user's argument is a reasonable 

* thing on which to mount, and return the device number if so. 
*/ 

dev_t 
getmdev() 

{ 

dev_t dev; 

register struct inode *ip; 

ip = namei(uchar, 0); 
if(ip — NULL) 

return(NODEV); 

if((ip->i_mode*IFMT) I- IFBLK) 
u.u_error - ENOTBLK; 
dev - (dev_t)ip->i_rdev; 
if(bmajor(dev) >- bdevcnt) 
u.u_error - ENXIO; 
iput(ip); 
return(dev); 
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setgidO 

{ 

register unsigned gid; 
register struct a { 
int gid; 

} *uap; 

register struct user *up; 
up = &u; 

uap - (struct a *)up->u_ap; 
gid ” uap->gid; 
if (gid >= MAXUID) { 

up->u_error EINVAL; 
return; 

) 

if (up->u_rgid =“ gid |] suserO) ( 
up->u_gid =»= gid; 
up->u_rgid “ gid; 

} 

} 

getgid() 

( 

register struct user *up; 
up - &u; 

up“>u__rvall - up->u_rgid; 
up->u_rval2 = up->u_gid; 

} 

getpid() 

{ 

register struct user *up; 
up = 4u; 

up->u_rvall - up->u_procp“>p_j)id; 
up->u_rval2 =* up->u_procp->p__ppid; 

} 

setpgrpO 

{ 

register struct proc *p = u,u_j)rocp; 
register struct a { 

int flag; 

} *uap; 

uap ” (struct a *)u.u_ap; 
if (uap->flag) { 

if (p->p_j>grp 1- p->p_pid) 
u.u_ttyp - NULL; 
p->p_j)grp - p->p_j)id; 

) 

u.u_rvall = p->p_pgrp; 

) 

syncO 

{ 

update(); 

} 

nice() 

{ 

register n; 
register struct a { 

int niceness; 

} *uap; 

register struct user *up; 
up - &u; 

uap - (struct a *)up->u_ap; 
n “ uap->nlcenes3; 

if ((n < 0 II n > 2*NZERO) £& isuser{)) 
n - 0; 

n +- up->u__procp->p_nice; 
if (n >- 2*NZERO) 
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n - 2*NZERO -1; 
if (n < 0) 

n -= 0; 

up“>u_procp->p_nice * n; 
up->u_rvall = n - NZERO; 


}* 

* Unlink system call. 

* Hard to avoid races here, especially 

* in unlinking directories. 

*/ 

unlink() 

register struct inode *ip, *pp; 
struct a { 

char *fname,* 

}; 

register struct user *up; 


up ” 4u; 

pp “ namei(uchar, 2); 
if (pp NULL) 
return; 
f* 

* Check for unlink 

* to avoid hanging on the iget 
*/ 

if (pp“'>i_nuinber = up->u_dent .d_ino) { 
ip = pp; 
ip->i_count++; 

} else 

ip = iget(pp->i_dev, up->u_dent.d_ino); 
if (ip “ NULL) 

goto outl; 

if ((ip->i_mode&IFMT) == IFDIR && IsuserO) 
goto out; 

/* 

* Don't unlink a mounted file. 

*/ 

if (ip->i_dev '= pp->i_dev) { 
up->u_error * EBUSY; 
goto out; 

} 

if (ip->i_flag&ITEXT) 

xrele(ip); /* try once to free text */ 

if (ip->i_flag4ITEXT 44 ip->i_nlink “ 1) { 
up-->u_error - ETXTBSY; 
goto out; 

} 

up->u_offset -=■ sizeof(struct direct); 
up->u_base = (caddr_t)4up->u_dent; 
up->u_count = sizeof(struct direct); 
up->u_dent.d_ino - 0; 
up->u_segflg = 1; 
up->u_fraode ”= FWRITE IFSYNC; 
writei(pp); 
if (up->u_error) 
goto out; 
ip->i_nlink—; 
ip->i_flag |- ICHG; 


out: 

iput(ip); 

outl: 

iput (pp) ; 

) 

chdir0 
{ 

chdirec(4u.u_cdir); 

} 


chroot() 

{ 

if (isuserO) 


return; 

chdirec (4u. u__rdir) ; 

} 

chdirec(ipp) 

register struct inode **ipp; 

{ 

register struct inode *ip; 

struct a { 

char *fname; 

}; 

ip - namei(uchar, 0); 

if (ip — NULL) 
return; 

if ((ip->i_mode4IFMT) 1= IFDIR) { 
u.u_error » ENOTDIR; 
goto bad; 

} 

if (access(ip, lEXEC)) 
goto bad; 

prele(ip); 

if (*ipp) { 

plock(*ipp); 
iput(*ipp); 

} 

*ipp - ip; 

return; 


bad: 

iput(ip); 


chmod () 

{ 

register struct inode *ip; 

register struct a { 

char *fname; 

int fmode; 

} *uap; 

uap = (struct a *)u.u_ap; 

if ((ip = owner0) — NULL) 
return; 

ip->i_mode 4= ~07777; 

if (u.u_uid) { 

uap->fmode 4= -ISVTX; 
if (u.u_gid 1= ip->i_gid) 

uap->fmode 4- -ISGID; 

} 

ip“>i_mode 1- uap->fmode407777; 

ip->i_flag |- ICHG; 

if (ip->i_flag4ITEXT 44 (ip->i_mode4ISVTX)—0) 
xrele(ip); 

iput(ip); 


chown() 
{ 


register struct 
register struct 
char 
int 
int 

} *uap; 


inode *ip; 
a { 

*fname; 

uid; 

gid; 


uap ■“ (struct a *)u.u_ap; 
if ((ip - owner0) — NULL) 
return; 

ip->i_uid - uap->uid; 
ip->i_gid - uap->gid; 
if (u.u_uid !- 0) 

ip->i_mode 4- ~(ISUID(ISGID); 
ip->i_flag 1- ICHG; 
iput(ip); 
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ssigO 

{ 

register a; 

register struct proc *p; 
struct a { 

int signo; 

int fun; 

) *uap; 

register struct user *up; 


} 


up “ firu; 

uap - (struct a *)up->u_ap; 
a - uap-“>signo; 

if (a <- 0 I I a > NSIG I I a — SIGKILL) { 
up->u_error *= EINVAL; 
return; 

} 

up->u_rvall “ up->u_signal[a-l]; 
up->u_signal[a-1] - uap->fun; 
up*->ujprocp->p_sig &«= ~(lL«(a-l)); 
if (a == SIGCLD) { 

a = up->u_j>rocp->p_j)id; 

for (p “ &proc[l]; p < (struct proc *)v.ve_proc; p++) 
if (a == p->p_j)pid && p->p_stat = SZC5MB) 
psignal(up->u_procp, SIGCLD); 

} 

} 

if (uap'*>fun4l) 

up->u_j>rocp->p_3igign |= (1«(uap->signo-l)) ; 

else 

up->u_j)rocp->p_sigign i- ~ (1« (uap“>signo-l)); 


killO 

{ 

register struct proc *p, *q; 
register arg; 
register struct a { 
int pid; 

int signo; 

} *uap; 
int f; 

register struct user *up; 
up = iu; 

uap = (struct a *)up->u_ap; 
if (uap“>5igno < 0 || uap->signo > NSIG) { 
up->u_error = EINVAL; 
return; 

} 

/* Prevent proc 1 (init) from being SIGKILLed */ 
if (uap->signo =- SIGKILL && uap->pid — 1) { 
up->u_error “ EINVAL; 
return; 

} 

f - 0; 

arg - uap“>pid; 
if (arg > 0) 

p - 4proc[l]; 

else 

p = &proc[2]; 
q - up->u_jjrocp; 

if (arg 0 4& q->p_pgrp —= 0) { 
up->u_error - ESRCH; 
return; 

} 

for(; p < (struct proc *)v.ve_j)roc; p++) { 
if (p->p_8tat — NULL) 
continue; 

if (arg > 0 4S {>->p_pid i- arg) 
continue; 

if (arg “ 0 64 p“>p_pqi'p J- q“>p_j5grp) 
continue; 

if (arg < -1 44 p->pjpgrp i- -arg) 
continue; 


if (! (up->u_uid 0 I I 

up->u_uid p->p_uid 1i 
up->u_ruid =“ p->p_uid |1 
up->u_uid — p->p_suid I I 
up->u_ruid = p->p_suid )) 
if (arg > 0) { 

up->u_error EPERM; 
return; 

} else 

continue; 

f++; 

if (uap->signo) 

psignal(p, uap->signo); 
if (arg > 0) 

break; 

} 

if (f — 0) 

up”>u_error - ESRCH; 


times () 

{ 

register struct a { 

time_t (*times)[4] ; 

} *uap; 

register struct user *up; 
time_t loctime[4]; 

up *= 6u; 

uap - (struct a *)up->u_ap; 
if (v,v_hz=»=60) { 

if (copyout((caddr_t)6up->u_utime, (caddr_t)uap->times, 
sizeof(*uap->times))) 

up->u_error ” EFAULT; 

SPL7(); 

up->u_rtiine = Ibolt; 

SPLOO ; 

} else { 

loctirae[0} “ up->u_utime * 60 / v.v_hz; 
loctime[l] “ up->u__stime * 60 / v.v_hz; 
loctim.eE2] - up->u_cutime * 60 / v.v_hz; 
loctiraeE3] = up->u_cstliae * 60 / v.v_hz; 
if (copyout((caddr_t)6loctime[0], (caddr_t)uap->times, 
sizeof(loctime)) < 0) 

up->u_error = EFAULT; 

SPL7() ; 

up->u_rtime = Ibolt*60/v-v_h 2 ; 

SPLOO; 

} 

} 

profil() 

{ 

register struct a { 

short *bufbase; 
unsigned bufsize; 
unsigned pcoffset; 
unsigned pcscale; 

} *uap; 

register struct user *up; 
up = 6u; 

uap « (struct a *)up->u_ap; 
up->u_jprof ,pr_base ■= uap->bufbase; 
up->u_prof .pr_si 2 e =■ uap->bufsize; 
up“>u_prof.pr_off - uap->pcoffset; 
up->u_j)rof .pr_scale = uap->pcscale; 

) 

/* 

* alarm clock signal 
*/ 

alarm 0 

{ 

register struct proc *p; 
register c; 
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register struct a { 

int deltat; 

} *uap; 

uap - (struct a *)u.u_ap; 
p = u,u_procp; 
c “ p->p_cl]ctim; 
p->p_clktira - uap->deltat; 
u.u_rvall = c; 

} 

/* 

* indefinite wait- 

* no one should wakeup(&u) 

*/ 

pause() 

{ 


) 


for(;;) 

(void) sleep((caddr_t)&u, PSLEP); 


!* 

* mode mask for creation of files 
*/ 

umaskO 

{ 

register struct a { 

int mask; 

} *uap; 
register t; 

register struct user *up; 


up “ &u; 

uap ” (struct a *)up->u_ap; 
t = up->u_cmask; 
up->u_cniask - uap->mask & 0777; 
up->u__rvall ~ t; 


/* 

* Set lUPD and lACC times on file. 

*i 

utime () 

{ 

register struct a { 

char *fname; 
tirae_t *tptr; 

} *uap; 

register struct inode *ip; 
time_t tv [2]; 

uap = (struct a *)u.u_ap; 
if (uap->tptr != NULL) { 

if (copyin((caddr_t)uap->tptr, (caddr_t)tv, sizeof(tv))) { 
u.u_error = EFAULT; 
return; 

} 

} else { 

tv[0] - time; 
tv[l] == time; 

} 

ip =- namei(uchar, 0) ; 
if (ip “ NULL) 
return; 

if (u.u_uid != ip->i_uid && u.u_uid i- 0) { 
if (uap->tptr !- NULL) 

u.u_error - EPERM; 

else 

(void) access(ip, IWRITE); 

} 

if (iu.u_error) { 

ip-’>i_flag |- lACC I lUPD IICHG; 
iupdat(lp, ttv[0], &tv(l]); 

) 


iput(ip); 
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/* e(*)sysent.c 1.3 */ 

int 

sconnect () ; 

#include "sys/param.h" 

int 

saccept(); 

#include "sys/types.h” 

int 

ssendO ; 

*include "sys/systm-h" 

int 

sreceiveO ; 


int 

ssocketaddr() 

/* 

int 

netreset(); 

* This table is the switch used to transfer 

* to the appropriate routine for processing a system call. 

#endif 


*! 

/* 



* Local system calls 


int 

alarm () ; 

*/ 





int 

chdirO ; 

int locking(y; 





int 

chmod{); 

int phys(y; 





int 

chown(); 

int reboot i ); 





int 

chroot(); 






int 

close(y; 

struct sysent sysent[] - 





int 

creat {) ; 

{ 





int 

dup(); 

nosys. 

/* 

0 


indir */ 

int 

exec(); 

rexit. 

/* 

1 


exit */ 

int 

exece(); 

fork. 

/* 

2 

= 

fork */ 

int 

fcntlO; 

read. 

/* 

3 


read */ 

int 

forkO; 

write. 

/* 

4 


write */ 

int 

fstat {); 

open. 

/* 

5 

- 

open */ 

int 

getgid(); 

close. 

/* 

6 


close */ 

int 

getpid(); 

wait. 

/* 

7 

-= 

wait */ 

int 

getuid(); 

creat. 

/* 

8 

- 

creat */ 

int 

gtime(J; 

link. 

/* 

9 


link */ 

int 

gtty(); 

unlink. 

/* 

10 

= 

unlink */ 

int 

ioctl(); 

exec. 

/* 

11 

= 

exec */ 

int 

killO; 

chdir. 

/* 

12 


chdir */ 

int 

link(); 

gtime. 

/* 

13 

=■ 

time */ 

int 

lockO; 

mknod. 

/* 

14 


mknod */ 

int 

mknod(); 

chmod. 

/* 

15 

= 

chmod */ 

int 

msgsys(); 

chown. 

1* 

16 


chown; now 3 args */ 

int 

nice(); 

sbreak. 

/* 

17 

= 

break */ 

int 

nosys () ; 

stat. 

/* 

18 

- 

stat */ 

int 

nullsys(); 

seek. 

/* 

19 


seek */ 

int 

open(); 

getpid. 

/* 

20 


getpid */ 

int 

pause(); 

smoxmt. 

/* 

21 

= 

mount */ 

int 

pipe(); 

sumount. 

/* 

22 


umount */ 

int 

profil(y; 

setuid. 

/* 

23 

= 

setuid */ 

int 

ptrace{y; 

getuid. 

/* 

24 


getuid */ 

int 

read(y; 

stime. 

/* 

25 

= 

stime */ 

int 

rexit(y; 

ptrace. 

/* 

26 

= 

ptrace */ 

int 

saccess(y; 

alarm. 

/* 

27 


alarm */ 

int 

sbreak(); 

fstat. 

/* 

28 


fstat */ 

int 

seek(y; 

pause. 

/* 

29 

- 

pause */ 

int 

semsys(y; 

utime. 

/* 

30 


utime */ 

int 

setgid(y; 

stty. 

/* 

31 


stty */ 

int 

setpgrp(y; 

gtty. 

/* 

32 

- 

gtty */ 

int 

setuid(y; 

saccess. 

/* 

33 

- 

access */ 

int 

shmsys(y; 

nice. 

/* 

34 

= 

nice */ 

int 

smount(y; 

nosys. 

/* 

35 


sleep; inoperative */ 

int 

ssig(y ; 

sync. 

/* 

36 

* 

sync */ 

int 

state y ; 

kill. 

/* 

37 


kill */ 

int 

stime (y; 

nosys. 

/* 

38 

_ 

X */ 

int 

stty(); 

setpgrp. 

/* 

39 

- 

setpgrp */ 

int 

sumount(y; 

nosys. 

/* 

40 


tell - obsolete */ 

int 

sync(y; 

dup. 

1* 

41 


dup */ 

int 

sysacct(y; 

pipe. 

/* 

42 

- 

pipe */ 

int 

times(y; 

times. 

/* 

43 


times */ 

int 

ulimit < y ,* 

profil. 

/* 

44 

- 

prof */ 

int 

umask(y; 

lock. 

/* 

45 

- 

proc lock */ 

int 

unlink(y; 

setgid. 

/* 

46 


setgid */ 

int 

utirae {y; 

getgid. 

/* 

47 


getgid */ 

int 

utssys(y; 

ssig. 

/* 

48 

- 

sig */ 

int 

wait (y; 

msgsys. 

/* 

49 

- 

IPC Messages */ 

int 

write (y; 

nosys. 

/* 

SO 

- 

reserved for local use */ 



sysacct. 

/* 

51 

- 

turn acet off/on */ 

♦ifdef 

UCB_NET 

shmsys. 

/* 

52 

- 

IPC Shared Memory */ 

♦include "net/misc.h" 

semsys. 

/* 

53 


IPC Semaphores */ 

/* net 

stuff */ 

ioctl. 

/* 

54 


ioctl */ 

int 

select{y; /* not implimented for character devices yet */ 

phys. 

/* 

55 

- 

phys */ 

int 

gethostname(); 

locking. 

/* 

56 

- 

file locking */ 

int 

sethostname(y; 

utssys. 

/* 

57 

- 

utssys */ 

int 

ssocket(y; 

nosys. 

/* 

58 

- 

reserved for USG */ 
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nosys, 

nosys, 

nosys, 

nosys, 

nosys, 

nosys, 

nosys. 


/* 121 - X */ 
I* 122 - X */ 
/* 123 - X */ 
/* 124 - X */ 
/* 125 = X */ 
/* 126 - X */ 
/* 127 = X */ 
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linclude "sys/param.h" 

^include "sys/config.h" 
linclude ”sys/types.h" 

♦include "sys/mmu.h'* 

♦include "sys/sysmacros.h" 

♦include ■sys/dir.h" 

♦include "sys/proc.h" 

♦include "sys/seg.h" 

♦include "sys/signal.h" 

♦include ■sys/errno.h“ 

♦include *sys/user.h" 

♦include "sys/systm.h" 

♦include "sys/inode.h" 

♦include "sys/ino.h" 

♦include "sys/file.h" 

♦include "sys/conf.h" 

♦include "net/misc.h" 

♦include "net/protosw.h" 

♦include "net/socket.h" 

♦include "net/socketvar.h" 

♦include "net/ubavar.h" 

♦include "sys/map.h" 

♦include "sys/callo.h" 

♦include "net/if.h" 

♦include "net/in.h" 

♦include "net/in_systm.h" 

♦include "net/ip.h" 

♦include "net/ip_var.h" 

♦include "sys/var.h" 

/* 

* sees id @(♦)syslocal.c 1.6 (Berkeley) 2/27/82 

*/ 

/* 

* These routines implement local system calls 

*/ 


short 

netoff = 0; 




int 

protoslow; 




int 

protofast; 




int 

ifnetslow; 




int 

nselcoll; 




char 

netstak[3000]; 

/* 

stack when system is "in 

the network" (mch.s) 

char * 

svstak; 

/* 

globle where mch.s saves 

current stack */ 


/* 

* Initialize network code, ealled from main(). 

*/ 

netinit {) 
t 

extern struct uba_device ubdinit[]; 

register struct uba_driver *udp; 

register struct uba_device *ui = &ubdinit[0]; 

if(netoff) return; 
rabinit(); 

for(ui - 4 ubdinit[ 0 ] ; udp - ui->ui_driver ; ui++) { 

/* ud_probe could go here */ 
ui->ui_alive ” 1; 
udp-’>ud_dinfo [ui->ui_unit] - ui; 

(*udp->ud_attach)(ui); 

♦ifdef INET 

loattachO; /* XXX */ 

Ifinit (); 

pfinitO; /* must follow interfaces */ 

♦endif 

♦ifdef TCPACKMOST 
/* 

* Fool some systems into thinking that tcp_niaxseg sbspace 

* max window. Ergo, force acking of most packets when talking to 

* (the vax) 


*/ 

extern int tcp_sendspace, tcp_recvspace; 
tcp_sendspace = tcp_recvspace = 1024; 

} 

♦endif 

} 

/* netreset — network reset system call */ 

/* 3/23/83 billn: doesnt quite work yet */ 
netreset() 

{ 

register wait - lOOOOQ; 
register s = spl6(); 
register struct file *fp; 
extern int netisr; 

netoff =1; /* prevent net traffic (during resets) */ 

netisr - 0; 

/* unbeknownst sockets to UNIX */ 

for (fp = fifile[0]; fp < (struct file *)v.ve_fil6; fp++) { 
if ((fp->f_flag & FSOCKET) && fp->f_count) { 
bzero ((char *)fp, sizeof (struct file)); 

} 

} 

mbinit(); 

♦ifdef INET 

ifinit () ; 
pfinit (); 

♦endif 

splx(s); 
while (wait—); 
netoff “ 0; 

} 

splimp() 

{ 

return spl6(); 

} 

spinet() 

{ 

return spl6(); 

} 

/* 

* Entered via software interrupt vector at spll. Check netisr bit array 

* for tasks requesting service. 

*/ 

net int r () 

{ 

register int onetisr; 

while(spl70,(onetisr - netisr)) { 
netisr - 0; 

(void) spinet(); 
if (onetisr £ (1«NETISR_RAW)) 
rawintr 0; 

if (onetisr £ (1«NETISR_IP)) 
ipintr0 ; 

if (protofast <- 0) { 

protofast - HZ / PR_FASTHZ; 
pffasttimoO ; 

) 

if (protoslow <- 0) { 

protoslow - HZ / PR SLOSmZ; 
pfslowtimo 0 ; 

) 

if (ifnetslow <- 0) { 

ifnetslow - HZ / IFNET_SLOWHZ; 
if_slowtirao 0; 


/* relink mbufs */ 

f* re-init interfaces */ 

/* must follow interfaces */ 


/* wait for pending ints. */ 
/* allow traffic */ 
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} 


int enprint =0; /* enable nprintf */ 

/* 

* net printf. prints to net log area in memory (nlbase, nlsize). 

*/ 

/* VARARGSl */ 
nprintf (frat, xl) 
char *fmt; 
unsigned xl; 

{ 

if (enprint =*= Q) return; 

/* billn — do regular printf for now 
prf (fmt, &xl, 4); 

*/ 

printf (fmt, xl); 

} 

/* 

* Select system call. 

*/ 

select() 

{ 

register struct uap { 
int nfd; 

fd_set *rp, *wp; 
long time; 

} *ap = (struct uap *)u.u_ap; 
fd_set rd, wr; 
int nfds == Q; 
long selscanO; 
extern setrun(); 

long readable - 0, writeable = 0; 
time_t t “ time; 
int s, tsel, ncoll, rem; 
label_t Iqsav; 

if (ap->nfd > NOFII£) 

ap->nfd ” NOFILE; 
if (ap->nfd < 0) { 

u.u_error = EBADF; 
return; 

} 

if (ap->rp copyin((caddr_t)ap->rp,(caddr_t)&rd,sizeof(fd_set))) 
return; 

if (ap->wp && copyin((caddr_t)ap->wp,(caddr_t)&wr,sizeof(fd_set))) 
return; 

retry: 

ncoll “ nselcoll; 
u.u_procp->p_flag != SSEL; 
if (ap->rp) 

readable - selscan(ap“>nfd, rd, tnfds, FREAD); 
if (ap->wp) 

writeable =« selscan(ap->nfd, wr, &nfds, FWRITE) ; 
if (u.u_error) 

goto done; 

if (readable || writeable) 
goto done; 

rem - (ap->timo+999)/lOOO - (time - t); 
if (ap->timo — 0 | | rem <•=• 0) 
goto done; 
s = spl6(); 

if ((u.u_procp->p_flag & SSEL) —^ 0 || nselcoll !- ncoll) { 
u.u_procp-“>p_flag *- ~SSEL; 
splx(s); 
goto retry; 

} 

u.u_procp->p_flag -SSEL; 
if (ran) ( 

bcopy((caddr_t)u.u_qsav, (caddr_t)Iqsav, sizeof (label^t)); 
if (save(u.u_qsav)) { 

rm_callout(setrun, {caddr_t)u. u_procp); 
u.u_error EINTR; 


splx(s); 
goto done; 

} 

rem = rem*v.v_hz; 

timeout (setrun, (caddr_t)u.u_j)rocp, rem) ; 

} 

sleep((caddr_t)sselwait, PZERO+1); 
if (rem) { 

bcopy((caddr_t)Iqsav, (caddr_t)u.u_qsav, sizeof (label_t)); 
rm_callout(setrun, (caddr_t)u.u_procp); 

} 

splxis ); 
goto retry; 

done: 

rd.fds_bits[0] - readable; 
wr.fds_bits[0] =- writeable; 
u.u_rvall = nfds; 
if (ap->rp) 

(void) copyout((caddr_t)&rd, (caddr_t)ap->rp, sizeof(fd_set)) 
if (ap->wp) 

(void) copyout((caddr_t)&wr, (caddr_t)ap->wp, sizeof(fd_set)) 

} 

/* 

* remove entry in callout vector 

* which is scanned by clock interrupt 
*/ 

rm_callout(func,arg) 
int (*func)(); 
caddr_t arg; 

{ 

register struct callo *pl, *p2; 
register int tt; 
int pri; 

pi ” 4callout[0]; 

pri * spl7(); 

while (pi->c__func I- 0) { 

if ((pl->c_func *= func) && (pl->c_arg -= arg)) 
break; 

pl++; 

} 

if (pi >- (struct callo *)v.ve_call-l) { 

printf("Timeout entry not found, not deleted\n"); 
return; 

} 

/* copy everything that follows in the list up one 
position, adding our unused time to theirs */ 
tt “ pl->c_time; 
p2 - pi; 

while(pl->c_f;inc !- 0) { 

p2++; 

pl->c_time =*• p2->c_time + tt; 
pl“>c_func - p2->c_func; 
pl->c_arg - p2->c_arg; 
pi ” p2; 

} 

splx(pri); 

long 

selscan(nfd, fds, nfdp, flag) 
int nfd; 
fd_set fds; 
int *nfdp, flag; 

{ 

struct file *fp; 
struct inode *ip; 
long bits,res - 0; 
int i, able; 

bits - fds.fds_bits[Q]; 
while (i - ffs(bits)) ( 
if (i >- nfd) 
break; 

bits i- ~(lL«(i-l)); 
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fp => u.u_ofile[i-l] ; 
if (fp =- NULL) { 

u.u_error - EBADF; 
return (0); 

} 

if (fp->f_flag & FSCCKET) 

able “ soselect((struct socket *)fp->f_socket, flag); 

else { 

ip = fp->f_inode; 

switch (ip->i_mode & IFMT) { 


fifdef notdef 


#else 


case IFCHR: 

able “ 

(*cdevsw[major(ip->i_rdev)].d_select) 
((int) ip*->i_rdev, flag) ; 

/* 

* for now the only char device we need 

* to select on is the control side of 

* ptys — for the rlogin deamon. At 

* some point someone can put general 

* select code into all char, devices. 

*/ 

{ 

extern int ptc__dev; 


if (major((int)(ip->i_rdev)) =- ptc_dev) 

able - ptcselect((int)ip->i_rdev, flag); 

else 

able “0; 

} 

tendif 

break; 


} 

return 


case IFIFO: 
case IFBLK: 
case IFREG: 
case IFDIR: 

able “ In¬ 
break; 

} 

} 

if (able) { 

res 1= (lL«(i-l)); 
(*nfdp)++; 

} 

(res) ; 


ffs(mask) 

long mask; 

{ 

register int i; 
register imask; 

if (mask “ 0) return (0); 
imask - loint(mask); 
for(i=l; i<-16; it+) ( 
if (imask & 1) 

return (i); 
imask »- 1; 

[ 

imask « hiint(mask); 
for(; i<-32; i++) { 

if (imask & 1) 

return (i); 
imask »- 1; 

} 

return (0); /* can't get here anyway! */ 

) 

tifdef notdef 
/*ARGSUSED*/ 
seltrue(dev, flag) 


3 


dev_t dev; 
int flag; 

( 

return (1); 

} 

♦endif 

selwakeup(p, coll) 

register struct proc *p; 
int coll; 

( 

int s; 

if (coll) { 

nselcoll++; 

wakeup((caddr_t)fiselwait); 

1 

S - Spl6{) ; 

if (P) { 

if (p->p_wchan (caddr_t)&selwait) 
setrun(p); 

else { 

if (p->p_flag & SSEL) 

p->p_flag 4“ -SSEL; 

} 

} 

splx(s); 

} 


#ifdef notdef 
/* ARGSUSED */ 
nulselect(x, y) 

{ 

return 0; 

} 

iendif 

char hostname[32] = "hostnameunknown”; 

int hostnamelen = 16; 


gethostname() 

{ 

register struct a { 

char *hostnarae; 

int len; 

] *uap “ (struct a *)u.u_ap; 
register int len; 


} 


len ■= uap->len; 
if (len > hostnamelen) 

len = hostnamelen; 

if (copyout((caddr_t)hostname, (caddr_t)uap->hostname, len)) 
u.u error = EFAULT; 


sethostnameO 

{ 

register struct a { 

char *hostname; 

int len; 

} *uap - (struct a *)u.u_ap; 




if (IsuserO) 

return; 

if (uap-->len > sizeof (hostname) - 1) { 
u.u_error - EINVAL; 
return; 

} 

hostnamelen “ uap->len; 

if (copyin((caddr_t)uap“>hostname, hostname, uap“>len + 1)) 
u.u error ” EFAULT; 


/ 
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* Some raise, subroutines. Prob should be in a sep module 
*/ 

fifdef notdef /* system 3 has it's ovm */ 

/* 

* Provide about n microseconds of delay 
*/ 

delay(n) 
long n; 

{ 

register hi,low; 

low = (n&0177777); 
hi = n»16; 
if{hi-=0) hi=l; 
do { 

do { } while(—low); 

} while (—hi); 

} 

#endif 

/* 

* compare bytes; same result as VAX cmpc3. 

*/ 

bcmp(sl, s2, n) 
register char *sl, *s2; 
register n; 

{ 

do 

if(*sl++ !*= *s2++) break; 
while(—n); 
return(n); 

} 


/* 

* Insert an entry onto queue- 
*} 

_insque(e,prev) 

register struct vaxque *e,*prev; 

{ 

register x * spl7(); 
e->vq_prev = prev; 
e->vq_next = prev~>vq_next; 
if (prev->vq^next) 

prev->vq next->v q^ p rev = e; 
prev->vq_next - e; 
splx (X); 


} 


/* 

* Remove an entry from queue. 

*/ 

_remque (e) 

register struct vaxque *e; 

{ 


register x = spl7(); 


e->vq_prev->vq_next =» e->vq_next; 
if (e->vq_next) 

e->vq_next->vq_prev - e->vq_prev; 

splx(X); 

} 


struct proc * 
pfind(pid) 

int pid; 

{ 


register struct proc 


*p; 


for (p-proc; p < iproctv.v_proc]; p++) 
If (p->p_pid — pid) 
return (p); 

return ((struct proc *)0); 

) 


/* b 2 ero(p,n) — zero n bytes starting at p */ 


bzero(p,n) 
register char * p; 
register n; 

{ 

if (n) 

do { 

*p++ - 0; 

} while (—n); 

} 

/* 

* iomalloc — allocate elks of mem. for io. 

* Right now, no dma. 

*/ 

mbioallocO 

{ 

return 0; 

} 

I* 

* raballoc should be combined with/done like memapO. THIS STUFF DEPENDS 

* ON MSIZE BEING A POWER OF 2. 

*/ 

♦define MBUFCONFIG 1 /* undef extern of Mbuf, mbuf */ 

♦include <net/mbuf.h> 

char mbufbufs[(NMBUFS+1)*MSIZE]; 

struct mbuf * 
mballocO 
{ 

unsigned int location - (unsigned int)(&rabufbufs[0]); 
int slop => location & (MSIZE-1); 

/* round actual buffers to MSIZE boundry */ 
return ((struct mbuf*)(location + MSIZE - slop)); 
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/* tcp_debug.c 4.3 82/03/29 */ 

♦include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/errno.h” 

♦include "sys/types.h" 

♦include "sys/systm.h" 

♦include "net/misc.h" 

♦ include "net/inbuf .h" 

♦include "net/socket.h” 

♦include "net/socketvar.h“ 

♦define PRUREQUESTS 
♦include "net/protosw.h" 

♦include "net/in.h" 

♦include "net/route.h" 

♦include "net/in^jpcb.h" 

♦include "net/in__systm.h" 

♦include "net/if.h" 

♦include "net/ip.h" 

♦include "net/ip_var.h" 

♦include "net/tcp.h" 

♦define TCPSTATES 
♦include "net/tcp_fsm.h'* 

♦include "net/tcp_seq.h" 

♦define TCPTIMERS 
♦include "net/tcp_timer.h" 

♦include "net/tcp_var.h" 

♦include "net/tcpip.h" 

♦define TANAMES 
♦include "net/tcp_debug.h" 

♦include "errno.h" 

int tcpconsdebug * 1; 

/* 

* Tcp debug routines 
*/ 

tcp_trace(act, estate, tp, ti, req) 
short act, estate; 
struct tepeb *tp; 
struct tcpiphdr *ti; 
int req; 

{ 

tcp_seq seq, ack; 
int len, flags; 

struct tcp_debug *td = 4tcp_debug[tcp_debx++]; 

if (tcp_debx = TCP_NDEBUG) 
tcp_debx -= 0; 
td->td_tinie - iptime () ; 
td->td_act = act; 
td->td_ostate - estate; 
td->td_tcb “ (caddr_t)tp; 
if (tp) 

td->td_cb = *tp; 

else 

bzero((caddr_t)&td->td_cb, sizeof (*tp)); 

if (ti) 

td->td_ti “ *ti; 

else 

bzero((caddr_t)4td->td_ti, sizeof (*ti)); 
td->td_req “ req; 
if (tcpconsdebug ” 0) 
return; 

if (tp) 

printf("%x %s:", tp, tepstates(estate]); 

else 

printf("2?????2? "); 
printf("%s ", tanames(act]); 
switch (act) f 

case TA_INPUT: 
case TA_OUTPUT: 

seq - ti->ti_seq; 
ack - ti->ti_ack; 
len - ti“>ti len; 


lif.ndef WATCHOUT 


if (act TA_OUTPUT) { 

seq * ntohl(seq); 
ack - ntohl(ack); 
len = ntohs((u_short)len); 

} 

♦endif 

if (act = TA_OUTPUT) 

len —* sizeof (struct tcphdr); 

if (len) 

printf("[%x..%x)", seq, seq+len); 

else 

printf("%x", seq); 
printf("g%x", ack); 
flags = ti-->ti_flags; 
if (flags) { 

♦ifndef lint 

char *cp - "<"; 

♦define pf{f) { if (ti->ti_flags&TH_/**/f) { printf("%s%s", cp, "f"); cp == ","; } ) 
pf(SYN); pf(ACK); pf(FIN); pf(RST); 

♦endif 

printf(">"); 

} 

break; 

case TA_USER; 

printf("%s", prurequests[req&Oxff]); 
if ((req & Oxff) =— PRU_SLOWTIMO) 

printf ("<%s>", tcptiiners[req»8]); 

break; 

} 

if (tp) 

printf(■ -> %s", tcpstates{tp->t_state]); 

/* print out internal state of tp I2i */ 
printf("\n"); 

if (tp == 0 I 1 tcpconsdebug “ 2) 
return; 

printf("\trcv_(nxt,wnd) (%x, %x) snd_(una,nxt,iaax) (%x,%x,%x) \n", 

tp->rcy_nxt, tp->rcv_wnd, tp->snd_una, tp”>snd_nxt, tp->snd_max); 
printf("\tsnd_(wll,wl2,wnd) (%x,%x,%x)\n", 
tp->snd_wll, tp->snd_wl2, tp->snd_wnd); 


} 
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/* %M% %I% %E% */ 

^include '•sys/param.h'* 

^include “sys/config.h" 

♦include "sys/errno.h" 

♦include "sys/types^h" 

♦include "sys/systm.h" 

♦include "net/ndsc,h" 

♦include "net/mbuf.h" 

♦include "net/protosw.h" 

♦include "net/socket.h“ 

♦include "net/socketvar.h" 

♦include "net/in.h" 

♦include "net/route.h" 

♦include "net/in_pcb.h" 

♦include "net/in_systm.h'' 

♦include "net/if.h" 

♦include "net/ip.h" 

♦include "net/ip_var.h" 

♦include "net/tcp.h" 

♦include "net/tcp_fsra.h" 

♦include "net/tcp_seq.h" 

♦include "net/tcp_tiraer .h" 

♦include "net/tcp_var.h" 

♦include "net/tcpip.h" 

♦include "net/tcp_debug.h" 

♦include "errno.h" 

int tcpprintfs * 1; /* l=print, 2* panic */ 
short tcpcksum ==1; 

struct sockaddr_in tcp_in “ { AF_INET }; 
struct tcpiphdr tcp_saveti; 
extern tcpnodelack; 

struct tcpcb *tcp_newtcpcb{); 

/* 

* TCP input routine, follows pages 65-76 of the 

* protocol specification dated September, 1981 very closely. 

*/ 

tcp_input(mO) 

register struct mbuf *m0; 

{ 

register struct tcpiphdr *ti; 
register struct inpcb *inp; 
register struct mbuf *m; 
struct mbuf *om *= 0; 
int len, tlen, off; 
register struct tcpcb *tp = 0; 
register int tiflags; 
register struct socket *so; 
register int todrop, acked; 
short estate; 
struct in addr laddr; 


/* 

* Get IP and TCP header together in first mbuf. 

* Note: IP leaves IP header in first mbuf. 

*/ 

♦ifdef SIGH 

{ extern int intepinput; } 

if (intepinput) printf("intepinput..."); else intepinput++; 

♦endif 

m - mO; 

ti - mtod(m, struct tcpiphdr *); 

if (((struct ip *)ti)->ip_hl > (sizeof (struct ip) » 2)) 

ip_stripoptions((struct ip *)ti, (struct mbuf *)0); 
if (m->m_off > tMAXOFF II m->m_len < sizeof (struct tcpiphdr)) { 
if ((m - m._pullup(m, sizeof (struct tcpiphdr))) — 0) { 
tepstat.tcps_hdrops++; 

♦ifdef SIGH 

intepinput—; 

♦endif 

return; 

} 

ti - mtod(m, struct tcpiphdr *); 


} 


/* 

* Checksum extended TCP header and data. 

*/ 

tlen “ ((struct ip *)ti)->ip_len; 
len - sizeof (struct ip) + tlen; 

/* 

if ((tlen > 576) ll (len > 7Q0)) 

printf("len“%d, tlen-%d !!I\n", len, tlen); 

*/ 

if (tcpcksum) { 

register sum; 

ti->ti_next - ti->ti_prev = 0; 

ti->ti_xl = 0; 

ti->ti_len = (u_short)tlen; 

♦ifndef WATCHOUT 

ti->ti_len = htons((u_short)ti->ti_len); 

♦endif 

mbprint(m, "tin before ck"); 
nprintf("len%o\n", (unsigned)len); 

/* 

if (len «= 40) 

(int i; int j; printf("segment:\n");for(j“0;j<4;j++){for(i-0;i<10;i++)printf("%x ",(((char *)ti)[i+10* 
if (ti->ti_sum = in_cksuiti(m, len)) { 

*/ 

if (sum = in_cksi 2 m(ra, len)) ( 

nprintf ("badsi 2 m%o\n", ti“>ti_sum) ; 
tepstat.tcps_badsum++; 
if (tcpprintfs) 

/* 

printf("tep cksum %x, length %d, loca %x\n",ti->ti_sum,len,ti); 

*/ 

printf("tep cksum %x, length %d, loca %x\n",sura,len,ti); 
if (len = 40) 

{int i; int j; printf("segraent:\n");for(j“0;j<4;j++){for(i“0;i<10;i++)printf("%x ",(((char *)t 
if (tcpprintfs=2) panic ("tep ck\n") ; 
goto drop; 

} 

ti->ti_st3m = sum; 


* Check that TCP offset makes sense, 

* pull out TCP options and adjust length. 

*/ 

off - ti->ti_off « 2; 

if (off < sizeof (struct tcphdr) 1 I off > tlen) { 
tepstat.tcps_badoff++; 
goto drop; 

} 

tlen — off; 

ti->ti_len * tlen; 

if (off > sizeof (struct tcphdr)) { 

if ((m “ m_pullup(m, sizeof (struct ip) + off)) ” 0) { 
tepstat.tcps_hdrops++; 

♦ifdef SIGH 

intepinput—; 

♦endif 

return; 

} 

ti - mtod(m, struct tcpiphdr *); 
ora - m_get(M_DONTffAIT); 
if (om 0) 

goto drop; 

om->m_off ■= MMINOFF; 

om->m_len - off - sizeof (struct tcphdr); 

{ caddr_t op -* mtod(m, caddr_t) + sizeof (struct tcpiphdr); 
MBCOPY(m, sizeof(struct tcpiphdr), ora, 0, ora->ra_len); 
ia->m__len -= om->m_len; 
bcopy(op+ora->m_len, op, 

(int)(m->m_len-sizeof (struct tcpiphdr))); 


ti->tl_flags; 


/ 
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* Drop TCP and IP headers. 

*/ 

m->ra_off += sizeof(struct tcpiphdr); 
ra->ra_len — sizeof(struct tcpiphdr); 

fifndef WATCHOUT 
/* 

* Convert TCP protocol specific fields to host format. 

*/ 

ti->ti_seq •" ntohl (ti->ti_seq); 
ti->ti_ack - ntohl(ti->ti_ack); 
ti->ti_win * ntohs(ti->ti_win); 
ti->ti_urp ■* ntohs (ti~>ti_urp); 

#endif 

/* 

* Locate pcb for segment. On match, update the local 

* address stored in the block to reflect anchoring, 

*/ 

inp * in_jx;blookup 

(itcb, ti“>ti_src, ti->ti_sport, ti->ti_dst, ti->ti_dpQrt, 
INPLOOKUP_WILDCAEU5) ; 

/* 

* If the state is CLOSED (i.e., TCB does not exist) then 

* all data in the incoming segment is discarded. 

*/ 

if (inp “ 0) 

goto dropwithreset; 
tp “ intotcpcb(inp); 
if (tp = 0} 

goto dropwithreset; 
so - inp->inp_socket; 
if (so->so__options & SO_DEBUG) { 
estate - tp->t_state; 
tcp_saveti - *ti; 

} 

/* 

* Segment received on connection. 

* Reset idle time and keep-alive timer. 

*/ 

tp->t_idle = Q; 

tp->t_timertTCPT_KEEP] = TCPTV_KEEP; 

/* 

* Process options, 

*/ 

if (om) { 

tcp_dooptions(tp, om); 
om - 0; 

} 

/* 

* Calculate amount of space in receive window, 

* and then do TCP input processing. 

*! 

tp->rcv_wnd “ sbspace(&so->so_rcv); 
if (tp->rcv_wnd < Q) 

tp->rcv_wnd - 0; 

switch (tp->t_state) { 

/* 

* If the state is LISTEN then ignore segment if it contains an RST. 

* If the segment contains an ACK then it is bad and send a RST. 

* If it does not contain a SYN then it is not interesting; drop it. 

* Otherwise initialize tp->rcv_nxt, and tp->irs, select an initial 

* tp->iss, and send a seigment: 

* <SEQ-ISS><ACK«RCV_NXT><CTL-SYN,ACK> 

* Also initialize tp->snd_nxt to tp->iss+l and tp->snd_una to tp->iss. 

* Fill in remote peer address fields if not previously specified. 

* Enter SYN_RECEIVED state, and process any other fields of this 

* segment in this state. 

V 

case TCPS LISTEN; 


if (tiflags i TH_RST) 
goto drop; 

if (tiflags & TH_ACK) 

goto dropwithreset; 
if ({tiflags & TH_SYN) — 0) 
goto drop; 

tcp_in.sin_addr « ti->ti_src; 
tcp_in.sin_j)ort =• ti->ti_sport; 
laddr = inp->inp_laddr; 
if (inp->inp_laddr.s_addr ■=” 0) 

inp->inp_laddr =■ ti->ti_dst; 

if (in_pcbconnect(inp, (struct sockaddr_in *)Stcp_in)) { 
inp->inp_laddr - laddr; 
goto drop; 

} 

tp->t__template =■ tcp_template (tp) ; 
if (tp->t_template -“0) { 

in_pcbdiscQnnect(inp); 
inp->inp_laddr = laddr; 
tp “ 0; 
goto drop; 

} 

tp->iss -= tcp_iss; tcp_iss += TCP_ISSINCR/2; 

tp->irs = ti->ti_seq; 

tcp_sendseqinit(tp); 

tcp_rcvseqinit(tp); 

tp->t_State « TCPS_SYH_RECEIVED; 

tp->t_timer [TCPT__KEEP] = TCPTV_KEEP; 

goto trimthenstep6; 


* If the state is SYN_SENT; 

* if seg contains an ACK, but not for our SYN, drop the input. 

* if seg contains a RST, then drop the connection. 

* if seg does not contain SYN, then drop it. 

* Otherwise this is an acceptable SYN segment 

* initialize tp->rcv_nxt and tp->irs 

* if seg contains ack then advance tp->snd_una 

* if SYN has been acked change to ESTABLISHED else SYN_RCVD state 

* arrange for segment to be acked (eventually) 

* continue processing rest of data/controls, beginning with URG 
*/ 

case TCPS_SYN_SENT: 

if ((tiflags & TH_ACK) && 

/* this should be SEQ_LT; is SEQ_LEQ for BBN vax TCP only */ 

(SEClLT( ti->ti_ack, tp->iss) || 

SEQ_GT(ti->ti_ack, tp->snd_max))) 
goto dropwithreset; 
if (tiflags & TH_RST) { 

if (tiflags & TH_ACK) { 

tcp_drop(tp, ECONNREFUSED); 
tp - 0; 

} 

goto drop; 

} 

if ((tiflags & TH_SYN) — 0) 
goto drop; 

tp->snd_una - ti->ti_ack; 
if (SEQ_LT(tp->snd_nxt, tp->snd_una)) 
tp->snd_nxt == tp->snd_una; 
tp->t_timer[TCPT_REXMT] = 0; 
tp->irs =• ti->ti_seq; 
tcp_rcvseqinit (tp) ; 
tp->t_flags I- TF_ACKNOW; 
if (SEQ_GT(tp->snd_una, tp->iss)) { 

if (so->so_options & SO_ACCEPTCONN) 

so->50_state |-= SS_CONNAWAITING; 
soisconnected(so); 
tp->t_state “ TqPS_ESTABLISHED; 

(void) tcp_reass(tp, (struct tcpiphdr *)0); 

) else 

tp->t_State - TCPS_SYN_RECEIVED; 
goto trimthenstep6; 

trinii.henstep6: 

/* 
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* Advance ti->ti_seq to correspond to first data byte. 

* If data, trim to stay within window, 

* dropping FIN if necessary. 

*/ 

ti*>ti_seq++; 

if {ti->ti_len > tp->rcv_wnd) { 

todrop -= ti->ti_len - tp“>rcv_wnd; 
m_adj(ra, -todrop); 
ti->ti_len - tp->rcv_wnd; 
ti->ti_flags &= ~TH_FIN; 

} 

tp->snd_wll “= ti->ti_seq - 1; 
goto step6; 

} 

/* 

* States other than LISTEN or SYN_SENT. 

* First check that at least some bytes of segment are within 

* receive window. 

*/ 

if (tp->rcv_wnd =0) { 

/* 

* If window is closed can only take segments at 

* window edge, and have to drop data and PUSH from 

* incoming segments. 

*/ 

if (tp->rcv_nxt 1= ti->ti_seq) 
goto dropafterack; 
if (ti->ti_len > 0) { 

m_adj(m, ti->ti_len) ; 
ti->ti_len - 0; 

ti->ti_flags &= ~{TH_PUSH|TH_FIN); 

) 

} else { 

/* 

* If segment begins before rcv_nxt, drop leading 

* data (and SYN); if nothing left, just ack. 

*/ 

todrop - tp->rcv_nxt - ti->ti_seq; 
if (todrop >0) { 

if (tiflags & TH_SYN) { 

tiflags 4= ~TH_SYN; 

ti->ti_flags -TH_SYN; 

ti->ti_seq++; 
if (ti->ti_urp > 1) 

ti->ti_urp—; 

else 

tiflags &= ~TH_URG; 
todrop—; 

if (todrop > ti->ti_len I I 

todrop — ti->ti_len && (tiflags&TH_FIN) — 0) 
goto dropafterack; 
ra_adj(m, todrop); 
ti->ti_seq +- todrop; 
ti->ti_len — todrop; 
if (ti->ti_urp > todrop) 

ti->ti_urp — todrop; 

else { 

tiflags 4- ~TH_URG; 

ti->ti_flags 4-TH_URG; 

ti->ti_urp “ 0; 

} 

} 

/* 

* If segment ends after window, drop trailing data 

* (and PUSH and FIN); if nothing left, just ACK. 

*/ 

todrop - (t±->ti_soq+ti->ti_len) - (tp->rcv_nxt+tp->rcv_wnd); 
if (todrop > 0) { 

if (todrop >” ti->ti_len) 
goto dropafterack; 
m_adj(m, -todrop); 
ti->ti_len — todrop; 
ti->ti_flags 4- -(TH_PUSH|TH_FIN); 


} 
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*i 

if {(tiflags & TH_ACK) =— 0) 
goto drop; 

/* 

* Ack processing. 

*/ 

switch (tp->t_state) { 

/* 

* In SYN_RECEIVED state if the ack ACKs ovir SYN then enter 

* ESTABLISHED state and continue processing, othewise 

* send an RST. 

*/ 

case TCPS_SYN_RECEIVED; 

if (SEQ_GT<tp->snd_una, ti->ti_ack) || 

SEQ_GT(ti->ti_ack, tp->snd_max)) 
goto dropwithreset; 

tp->snd_una++; /* SYN acked */ 

if (SEQ_LT<tp->snd_nxt, tp->snd_una)) 
tp“>snd_nxt =■ tp->snd_una; 
tp->t_tira.er[TCPT_REXMT] - 0; 
if (so->so_options & SO_ACCEPTCOHN) 

SO->SO_State 1“ SS_CONNAl?AITING; 
soisconnected(so); 
tp->t_state = TCPS_ESTABLISHED; 

(void) tcp_reass(tp, (struct tcpiphdr *)0); 
tp->snd_wll = ti->ti_seq - 1; 

/* fall into ... */ 

/* 

* In ESTABLISHED State: drop duplicate ACKs; ACK out of range 

* ACKs. If the ack is in the range 

* tp->snd_una < ti->ti_ack <= tp“>snd_max 

* then advance tp->snd_una to ti->ti_ack and drop 

* data from the retransmission queue. If this ACK reflects 

* more up to date window information we update our window information. 
*/ 

case TCPS_ESTABLISHED; 
case TCPS__FIN_WAIT_1: 
case TCPS_FIN_WAIT_2: 
case TCPS_CLOSE_WAIT: 
case TCPS_CLOSING; 
case TCPS_LAST_ACK: 
case TCPS_TIHE_WAIT: 

#define ourfinisacked (acked > 0) 

if (SEQ_LEQ(ti->ti_ack, tp->snd_una)) 
break; 

if (SEQ_GT(ti->ti_ack, tp->snd_max)) 
goto dropafterack; 
acked = ti->ti_ack -> tp-’>snd_una; 

/* 

* If transmit timer is running and timed sequence 

* number was acked, update smoothed round trip time. 

*/ 

if (tp->t_rtt &(l SEQ_GT(ti->ti_ack, tp->t_rtseq)) { 
if (tp->t_srtt — 0) 

tp->t_srtt * tp->t_rtt * 10; 

else 

tp->t__srtt - 

(tcp_alpha * tp->t_srtt) / 10 + 

(10 - tcp_alpha) * tp-->t_rtt; 

/* printfC'rtt %d srtt{*10) now %d\n”, tp->t_rtt, tp->t_srtt); */ 
tp->t_rtt - 0; 

} 

if (ti->ti_ack -- tp->snd_roax) 

tp->t_timer[TCPT_REXMT] * 0; 

else { 

TCPT_RANGESET(tp“>t_timer[TCPT_REXMT], 

(tcp_beta * tp->t_srtt)/lOO, TCPTV_MIN, TCPTV_MAX); 
tp->t_rtt - 1; 
tp->t_rxtshift - 0; 


} 


if (acked > so->so_snd.sb_cc) { 

sbdrop(& so->so_snd, so->so_snd.sb_cc); 
tp->snd_wnd -= sO'->so_snd.sb_cc; 

) else { 

sbdrop(&so->so_snd, acked); 
tp->snd_wnd — acked; 
acked - 0; 

} 

if ((so->so_snd.sb_flags & SB_WAIT) || so->so_snd.sb_sel) 
sowwakeup(so); 
tp->snd_una - ti->ti_ack; 
i f (SEQ_LT (tp-'> snd_nxt, tp-> snd_una)) 
tp’’>snd_nxt =■ tp->snd_una; 

switch (tp->t_state) { 

/* 

* In FIN_WAIT_1 STATE in addition to the processing 

* for the ESTABLISHED state if our FIN is now acknowledged 

* then enter FIN_frAIT_2. 

*/ 

case TCPS_FIN_WAIT_1: 

if (ourfinisacked) { 

/* 

* If we can't receive any more 

* data, then closing user can proceed. 

*/ 

if (so->so_state & SS_CANTRCVMORE) 
soisdisconnected(so); 
tp->t_state "= TCPS_FIN_WAIT_2; 

} 

break; 

/* 

* In CLOSING STATE in addition to the processing for 

* the ESTABLISHED state if the ACK acknowledges our FIN 

* then enter the TIME-5SAIT state, otherwise ignore 

* the segment. 

*/ 

case TCPS_CLOSING: 

if (ourfinisacked) { 

tp->t_state = TCPS_TIME_WAIT; 
tcp_canceltimers(tp); 

tp->t_timer[TCPT_2MSL] - 2 * TCPTV_MSL; 
soisdisconnected(so); 

} 

break; 

/* 

* The only thing that can arrive in LAST_ACK state 

* is an acknowledgment of our FIN. If our FIN is now 

* acknowledged, delete the TCB, enter the closed state 

* and return. 

*/ 

case TCPS_LAST_ACK: 

if (ourfinisacked) { 

tcp_close(tp); 
tp - 0; 

} 

goto drop; 

/* 

* In TIME_WAIT state the only thing that should arrive 

* is a retransmission of the remote FIN. Acknowledge 

* it and restart the finack timer. 

*/ 

case TCPS_TIME_WAIT: 

tp->t_timertTCPT_2MSL] - 2 * TCPTV_HSL; 
goto dropafterack; 

) 

#undef ourfinisacked 
} 

step6: 

/* 

* Update window information. 
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*/ 

if (SEQ_LT(tp->snd_wll, ti->ti_seq) || tp->snd__wll — ti->ti_seq 
(SEQ_LT(tp->snd_wl2, ti->ti_ack) i | 

tp-->snd_wl2 “ ti->ti_aclc && ti->ti_Hin > tp->snd_wnd)) { 
tp->snd_wnd ■* ti->ti__win; 
tp->snd_wll “ ti->ti_seq; 
tp-’>snd_wl2 - ti->ti_ack; 

/* 

if (tp->snd_wnd > 0) 

*/ 

if (tp~>snd_wnd != 0) 

tp->t_timerETCPT_PERSIST] - 0; 


) 


* Process segments with URG. 

*/ 

if ((tiflags & TH_URG) && ti->ti_urp && 

TCPS_HAVERCVDFIN(tp“>t_state) — 0) { 

/* 

* If this segment advances the known urgent pointer, 

* then mark the data stream. This should not happen 

* in CLOSE_WAIT, CLOSING, LAST_ACK or TIME_WAIT STATES since 

* a FIN has been received from the remote side. 

* In these states we ignore the URG. 

*/ 

if (SEQ_GT(ti->ti_seq+ti“>ti_urp, tp->rcv_up)) { 
tp->rcv_up *= ti->ti_seq + ti->ti_urp; 
so->so_oobmark = so“>so_rcv.sb_cc + 

(tp->rcv_up - tp->rcv_nxt) - 1; 
if (so->so_oohmark —* 0) 

SO->SO state t” ss RCVATMARK; 


iifdef TCPTRUEOOB 


if ((tp->t_flags & TF_DOOOB) = 0) 

sohasoutofband(so); 
tp->t_OObflags 4- ~TCPOOB_HAVEDATA; 


* Remove out of band data so doesn't get presented to user. 

* This can happen independent of advancing the URG pointer, 

* but if two URG's are pending at once, some out-of-band 

* data may creep in... ick. 


if (ti->ti_urp <= ti->ti_len) { 

tcp_pulloutofband{so, ti); 


* Process the segment text, merging it into the TCP sequencing queue, 

* and arranging for acknowledgment of receipt if necessary. 

* This process logically involves adjusting tp->rcv_wnd as data 

* is presented to the user (this happens in tcp_usrreq.c, 

* case PRU_RCVD). If a FIN has already been received on this 

* connection then we just ignore the text. 

*/ 

if ((ti->ti_len It (tiflags4TH_FIN)) && 

TCPS_HAVERCVDFIN(tp->t_state) 0) { 
tiflags - tcp_reass(tp, ti); 
if (tcpnodelack »=” 0) 

tp->t_flags 1= TF_DELACK; 

else 

tp->t_flags I- TF_ACKNOW; 

) else { 

m_freera(m); 
tiflags &- ~TH_FIN; 


/* 

* If FIN is received ACK the FIN and let the user know 

* that the connection is closing. 

*/ 

if (tiflags & TH_FIN) { 

if (TCPS_HAVERCVDFIN(tp->t_3tate) ” 0) { 
socantrcvmore(so); 
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if (tiflags £ TH_RST) 
goto drop; 

if (tiflags & TH_ACK) 

tcp_respond(tp, ti, (tcp_seq)0, ti->ti_ack, TH_RST); 

else { 

if (tiflags & TH_SYN) 
ti->ti_len++; 

tcp_respond(tp, ti, ti->ti__seq+ti->ti_len, {tcp_seq)0, 
TH RSTITH ACK); 


#ifdef SIGH 

intcpinput—; 

#endif 


* Drop space held by incoming segment and return. 

*/ 

if (tp && (tp->t_inpcb->inp_socket->so_options & SO_DEBUG)} 
tcp_trace(TA_DRaP, ostate, tp, £tcp_saveti, Q); 
m_freem (m) ; 

#ifdef SIGH 

intcpinput—; 

iendif 

return; 


tcp_dooptions(tp, om) 

register struct tcpcb *tp; 
register struct mbuf *om; 

register u_char *cp; 
register int opt, optlen, cnt; 

MAPSAVE(); 

cp “ mtod{om, u_char *); 
cnt “ om->m_len; 

for (; cnt >0; cnt — optlen, cp +=* optlen) { 

opt - UCHAR(cp[0n; 

if (opt == TCPOPT_EOL) 
break; 

if (opt TCPOPT_NOP) 
optlen =” 1; 

else 

optlen = UCHAR(cp[l]); 
switch (opt) { 


case TCPOPT_MAXSEG: 

if (optlen 1“ 4) 
continue; 

bcopy((caddr_t)(cp+2), (caddr_t)4tp->t_maxseg, 2); 


♦ifdef SMALLTCP 


♦endif 

♦ifndef WATCHOUT 


tp->t_maxseg =- 256; 


tp->tjtaaxseg “ ntohs ((u_short) tp->t_maxseg); 


♦ifdef TCPTRUEOOB 

case TCPOPT_WILLOOB; 

tp->t_flags I- TF_DCXX>B; 
printfCtp %x dooob\n", tp) ; 

break; 


case TCPOPT_OOBDATA: ( 
int seq; 

register struct socket *30 - tp->t_inpcb->inp_sockei:.: 
tcp_seq mark; 


if (optlen !=> 8) 
continue; 

seq - tJCHAR(cp[2]); 
if (seq < UCHAR(tp->t_iobseq)) 
seq +“ 256; 

printf ("oobdata cp[2] %d iobseq %d seq %d\n*', cp[2], tp->t_iobseq, seq) ; 

if (seq - UCHAR(tp->t_iobseq) >128) { 

printf("bad seqNn"); 

tp->t_oobflags I- TCPOOB_OWEACK; 
break; 

} 

tp->t_iobseq - cp[2]; 

tp->t_iobc “ cp[3]; 

bcopy(cp+4, &mark, sizeof mark); 

♦ifndef WATCHOUT 

mark = ntohl(mark); 

♦endif 

so->so_oobraark = so->so_rcv.sb_cc + (mark-tp->rcv_nxt); 
if (so->so_oobaiiark >*= 0) 

SO->so_state |= SS_RCVATMARK; 

printf("take oob data %x input iobseq now %x\n", tp->t_iobc, tp->t_iobseq); 
sohasoutofband(so); 
break; 

} 

case TCPOPT_OOBACK: { 
int seq; 



/* 

* Pull out of band byte out of a segment so 

* it doesn't appear in the user's data queue. 

* It is still reflected in the segment length for 

* sequencing purposes. 

*/ 

tcp_pulloutofband(so, ti) 

register struct socket *so; 
register struct tcpiphdr *ti; 
t 

register struct mbuf *m; 
register int cnt - ti->ti_urp - 1; 


MAPSAVE0; 
m - dtom(ti); 
while (cnt >- 0) { 

if (m->m_len > cnt) { 

char *cp - mtod(m, caddr_t) + cnt; 
struct tcpcb *tp - 30 totcpcb(so) ; 


tp“>t_iobc ” *op; 

tp->t_oobflags |“ TCPOOB_HAVEDATA; 
bcopy(cp+l, cp, (int)(m->m_len - cnt - 1)); 
m->m_len—; 
goto out; 

} 

cnt — m->m_len; 
m - ra-->m_next; 
if (m — 0) 

break; 
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panic{''tcp_pulloutofband'*); 


#ifdef WATCHOUT /* this is for the 11 */ 

#define ti_rQbuf ti_sum 

#define DT0«(d) ( (struct mbuf *) {(d)->ti_inbuf) ) 

♦define INSQUE{i,p) ( \ 

struct tcpiphdr *tii; \ 

MSGET(tii, struct tcpiphdr, Q); if (tii — 0 ) goto drop; \ 
insque(tii,p); \ 

tii“>ti_len - (i)->ti_len; tii->ti_seq - {i)->ti_seq; \ 
tii->ti_flags = (i)“>ti_flags; tii->ti_inbuf - mO; i = tii; } 

♦else 

♦define DTOH(d) dtom(d) 

♦define INSQUE(i,p) insque(i,p) 

♦endif 


* Insert segment ti into reassembly queue of tcp with 

* control block tp. Return TH_FIN if reassembly now includes 

* a segment with FIN. 

*/ 

tcp_reass(tp, ti) 

register struct tcpcb *tp; 
register struct tcpiphdr *ti; 

register struct tcpiphdr *q,*qp; 

register struct socket *so tp->t_inpcb->inp_socket; 
register struct mbuf *m,*m0; 
register int cnt, flags,eji^jty = 0; 


* Call with ti==>=0 after become established to 

* force pre-ESTABLISHED data up to user socket. 
*/ 

if (ti “ 0) 

goto present; 
mO - dtom{ti); 


* Find a segment which begins after this one does. 
*/ 

for (q = tp->seg_next; q !* (struct tcpiphdr *)tp; 
q =>= (struct tcpiphdr *)q->ti_next) 

if (SEQ_GT(q->ti_seq, ti->ti_seq)) 
break; 


* If there is a preceding segment, it may provide some of 

* our data already. If so, drop the data from the incoming 

* segment. If it provides all of our data, drop us. 

*/ 

if ((struct tcpiphdr *)q->ti_prev != (struct tcpiphdr *)tp) { 
register int i; 

q ” (struct tcpiphdr *)q->ti_j)rev; 

/* conversion to int (in i) handles seq wraparound */ 
i - q'>ti_seq + q->ti_len - ti->ti_seq; 
if (i > 0) ( 

if (i >- ti->ti_len) 
goto drop; 
m_adj(raO, i); 
ti->ti_len — i; 
ti->ti_seq += i; 

} 

q - (struct tcpiphdr *)(q->ti_next); 


* While we overlap succeeding segments trim them or, 

* if they are completely covered, dequeue them. 

*,/ 

while (q 1- (struct tcpiphdr *)tp) { 

register int i - (ti->ti_seq + ti->ti_len) - q->ti_seq; 


if (i <=■ 0) 

break; 

if (i < q->ti_len) { 

q-’>ti_seq +-> i; 
q->ti_len -- i; 
ra_adj(DTOM(q), i); 
break; 

} 

qp = q; 

q •= (struct tcpiphdr *)q->ti_next; 
m - DTOM(qp); 
remque(qp); 

♦ifdef WATCHOUT 

MSFREE(qp); 

♦endif 

m_freem(m); 

) 

/* 

* Stick new segment in its place. Insque stuff can be expensive, 

* so avoid if possible. 

*/ 

if (tp-'>seg_next ==» (struct tcpiphdr *)tp) /* queue was empty */ 

empty+t; 

else 

INSQUE (ti, q->ti_j>rev) ; 

present; 

/* 

* Present data to user, advancing rcv_nxt through 

* completed sequence space. 

*/ 

if (TCPS_HAVERCVDSYN(tp->t_state) — 0) 
goto out; 

if ('empty) ti * tp~>seg_next; 

if (ti (struct tcpiphdr *)tp | | ti->ti_seq .'= tp->rcv_nxt) 
goto out; 

if (tp->t_state === TCPS_SYN_RECEIVED && ti->ti_len) 
goto out; 
if (empty) { 

tp->rcv_nxt +- ti->ti_len; 
flags - ti->ti_flags & TH_FIN; 
if (so->so__state & SS_CANTRCVMORE) 
m_freem(m0) ; 

else 

sbappend(&so->so_rcv, mO); 

sorwakeup(so); 
return (flags); 

} 

do { 

tp->rcv_nxt +* ti->ti_len; 
flags - ti-'>ti_flags & TH_FIN; 
remque(ti) ; 
m - DTOM(ti) ; 
qp - ti; 

ti - (struct tcpiphdr *)ti“>ti_next; 

♦ifdef WATCHOUT 

MSFREE(qp); 

♦endif 

if (SO->so_state & SS_CANTRCVMORE) 
m_f reera (m); 

else 

sbappend(tso->so_rcv, m); 

} while (ti i- (struct tcpiphdr *)tp && ti->ti_seq «« tp->rcv_nxt); 
sorwakeup(so}; 
return (flags); 

drop: 

m_freem(m0) ; 
return (0); 

out: 

if (empty) INSQUE(ti, tp); 

/* 


If there are more than 10 tcp segments already queued, 
drop the oldest one from the queue. This sometimes happens 
when we get flooded with packets from unbuffered writes and 
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* there are gaps in the sequence numbers. (Hhy are gaps so likely 

* with unbuffered writes?) A retransmit ^covering all the 

* one byte segments queued) will occur in a moment. 

*/ 

cnt “ 0; 

for (q = tp->3eg_next; q I- {struct tcpiphdr *)tp; 
q “ (struct tcpiphdr *)q“>ti_next) 
cnt++; 

if (cnt >10) { 

q “ tp->seg_next; 
m - DTOM(q) ; 
remque(q); 

#ifdef WATCHOUT 

MSFREE(q); 

#endif 

m_freem(m); 

} 

return (0); 

} 
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/* %H% %I% %E% */ 

#include "sys/paraia-h" 

♦include "sys/config.h" 

♦include "sys/errno.h" 

♦include ^sys/types-h" 

♦include "sys/systm.h" 

♦include ’•net/misc.h" 

♦include "net/mbuf.h" 

♦include "net/protosw.h" 

♦include "net/ socket-ii" 

♦include "net/socketvar.h" 

♦include "net/in.h" 

♦include "net/route.h" 

♦include "net/in_j>cb.h" 

♦include "net/in_5ystia . h" 

♦include "net/ip.h" 

♦include "net/ip_var.h" 

♦include "net/tcp.h" 

♦define TCPOUTFIAGS 
♦include "net/tcp_fsm.h" 

♦include "net/tcp_seq.h" 

♦include "net/tcp_timer.h" 

♦include "net/tcp_var.h" 

♦include "net/tcpip.h" 

♦include "net/tcp_debug.h" 

♦include "errno.h" 

char *tcpstatesn; /* XXX */ 

♦define returnerr(e) { error »= (e); goto out; } 

/* 

* Initial options: indicate max segment length 1/2 of space 

* allocated for receive; if TCPTRUEOOB is defined, indicate 

* willingness to do true out-of-band. 

*/ 


♦ifndef 

TCPTRUEOOB 




u_char 

♦else 

tcp_initQpt [4] { 

[ TCPOPT_MAXSEG, 

4, 0x0, 

0x0, }; 

u_char 

♦endif 

tcp_initopt[6] = ^ 

[ TCPOPT_HAXSEG, 

4, 0x0, 

0x0, TCPOPT_WILLOOB, 2 


/* 

* Tcp output routine; figure out what should be sent and send it. 
*/ 

tcp_output(tp) 

register struct tcpcb *tp; 

{ 

register struct socket *so =• tp->t_inpcb->inp_socket; 

register int len; 

register struct mbuf *mQ; 

int off, flags, win, error; 

register struct mbuf *m; 

register struct tcpiphdr *ti; 

register u_char *opt » 0; 

register unsigned optlen = 0; 

register int sendalot; 


/* 

* Determine length of data that should be transmitted, 

* and flags that will be used. 

* If there is some data or critical controls (SYN, RST) 

* to send, then transmit; otherwise, investigate further. 
*/ 

♦ifdef SIGH 

{ extern int intcpoutput; } 

{if (intcpoutput) printf("intcpoutput..."); intcpoutput++;} 

♦endif 

again; 

sendalot - 0; 

off - tp->snd_nxt - tp->snd_una; 

len - MIN(so->so_snd.sb_cc, tp->snd_wnd+tp->t_force) - off; 
if (len < 0) { 

returnerr(Q); 


/* 22 ? */ 


/* past FIN */ 


if (len > tp->t_maxseg) { 

len “ tp->t_niaxseg; 
sendalot - 1; 

} 

flags = tcp_outflags[tp->t_state]; 

if ( SEQ_LT((tp->snd_nxt + len), (tp->snd_una + so->so_snd.sb_cc)) ) 
flags 4- ~TH_FIN; 

if (flags 4 (TH_SYN|TH_RST|TH_FIN)) 
goto send; 

if (SEQ_GT(tp->snd_up, tp->snd__una)) 
goto send; 


/* 

* Sender silly window avoidance. If can send all data, 

* a maximum segment, at least 1/4 of window do it, 

* or are forced, do it; otherwise don't bother. 

*/ 

if (len) { 

if (len “= tp->t_maxseg 1| off+len >= so->so_snd.sb_cc) 
goto send; 

if (len * 4 >= tp->snd_wnd) /* a lot */ 

goto send; 

if (tp->t_force) 

goto send; 


} 


/* 

* Send if we owe peer an ACK. 
*/ 

if (tp->t_flags4TF_ACKNOW) 
goto send; 


♦ifdef TCPTRUEOOB 
/* 

* Send if an out of band data or ack should be transmitted. 
*/ 

if (tp->t_oobflags4 {TCPOOB_OWEACKi TCPOOB_NEEDACK) )) 
goto send; 


♦endif 


/* 

* Calculate available window, and also amount 

* of window known to peer (as advertised window less 

* next expected input.) If this is 35% or more of the 

* maximiim possible window, then want to send a segment to peer. 

*/ 

win = sbspace(4so->so_rcv); 
if (win > 0 44 

((100*(win-(tp->rcv_adv-tp->rcv_nxt))/so->so_rcv.sb_hiwat) >- 35)) 
goto send; 


/* 

* TCP window updates are not reliable, rather a polling protocol 

* using "persist" packets is used to insure receipt of window 

* updates. The three "states" for the output side are; 

* idle not doing retransmits or persists 

* persisting to move a zero window 

* (re)transmitting and thereby not persisting 


* tp->t_timer[TCPT_PERSIST] 

* is set when we are in persist state. 

* tp->t_force 

* is set when we are called to send a persist packet. 

* tp->t_timer[TCPT_REXMT] 

* is set when we are retransmitting 

* The output side is idle when both timers are zero. 

* 

* If send window is closed, there is data to transmit, and no 

* retransmit or persist is pending, then go to persist state, 

* arranging to force out a byte to get more current window information 

* if nothing happens soon. 

*/ 

if (tp->3nd_wnd — 0 44 so->so_3nd.sb_cc 44 

tp->t_timer[TCPT_REXMT] -- 0 44 tp->t_timeriTCPT_PERSIST] «= 0) { 

tp->t_rxtshift - 0; 
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tcp_setpersist(tp); 


No reason to send a segment, just return. 


returnerr(0); 


* Grab a header mbuf, attaching a copy of data to 

* be transmitted, and initialize the header from 

* the template for sends on this connection. 

*/ 

MGET(m, 0); 
if (m =“ 0) { 

*ifdef SIGH 

printf (“cant get header in tcpoutput\n“); 

l-endif 

returnerr(ENOBUFS); 

ra->ra_off » MMAXOFF ■’ sizeof (struct tcpiphdr); 
ra->m_len = sizeof (struct tcpiphdr); 
if (len) { 

m->m_next = m_copy(so“>so__snd.sb_inb, off, len); 
if (ra->m_next — 0) 
len = 0; 

} 

ti “ mtod(m, struct tcpiphdr *); 
if (tp->t_template ==» 0) 

panic("tcp_output"); 

bcopy((caddr_t)tp->t_template, (caddr_t)ti, sizeof (struct tcpiphdr)); 


* Fill in fields, remembering maximum advertised 

* window for use in delaying messages about window sizes. 
*/ 

ti->ti_seq = tp->snd_nxt; 
ti->ti_ack => tp->rcv_nxt; 

^ifndef WATCHOUT 

ti->ti_seq = htonl(ti->ti_seq); 
ti->ti ack = htonl(ti->ti ack); 


* Before ESTABLISHED, force sending of initial options 

* unless TCP set to not do any options. 

*/ 

if (tp->t_state < TCPS_ESTABLISHED) { 
if (tp->t_flags&TF_NOOPT) 
goto noopt; 
opt * tcp_initopt; 
optlen - sizeof (tcp_initopt); 

* (u_short *) (opt + 2) •= so->so_rcv. sb_hiwat / 2; 

fifdef SMALLTCP 

*{u_short *)(opt + 2) “ 256; 

♦endif 

*ifdef TCPACKMOST 

*(u_short *)(opt +2) = so->so_rcv.sb_hiwat; 

♦endif 

♦ifndef WATCHOUT 

*(u_short *)(opt + 2) * htons(*(u_short *)(opt + 2)); 

♦endif 


if (tp->t_tcpopt — 0) 
goto noopt; 

opt “ mtod(tp->t_tcpopt, u_char *); 
optlen - tp->t_tcpopt->m_len; 

} 

tifndef TCPTRUEOOB 
if (opt) 

♦else 

if (opt It (tp->t_OObflags* (TCPOOB_OWEACKtTCPOOB_NEEDACK))) 

♦endif 


mO » m->m_next; 


m->m_next - m_get(M_DONTWAIT); 
if (m->m_next = 0) { 

(void) m_free(m); 
m_freem(m0) ; 
returnerr(ENOBUFS); 

} 

m->m_next->ra_next = mO; 
mO - m->m_next; 
m0->m_off - HMINOFF; 
m0->m_len =- optlen; 

♦ifdef WATCHOUT 

if (opt tcp_initopt) 

bcopy((caddr_t)opt, ratod(mO, caddr_t), (int)optlen); 

else 

MBCOPY(tp->t_tcpopt, 0, mO, 0, (int)optlen); 

♦else 

bcopy((caddr_t)opt, mtod(mO, caddr_t), (int)optlen); 

♦endif 

opt = (u_char *)(mtod(mQ, caddr_t) + optlen); 

♦ifdef TCPTRUEOOB 

if (tp->t_oobflags&TCPOOB_OWEACK) ( 
printf(“tp %x send OOBACK for %x\n“, tp->t_iobseq); 

*opt++ = TCPOPT_OOBACK; 

*opt++ =3; 

*opt++ = tp->t_iobseq; 
m0->m_len +- 3; 

tp->t_oobflags &= ~TCPOOB_OWEACK; 

/* sender should rexmt oob to force ack repeat */ 

} 

if (tp->t_oobflags&TCPOOB_NEEDACK) { 
tcp_seq oobseq; 

printf (“tp %x send OOBDATA seq %x data %x\n", tp->t_oobseq, tp“>t_oobc); 
*opt++ - TCPOPTjOOBDATA; 

*opt++ - 8; 

*opt++ - tp->t_oobseq; 

*opt++ = tp->t_OQbc; 

oobseq >= tp->t_oobimark - tp->snd_nxt; 


♦ifndef WATCHOUT 


oobseq - htonl(oobseq); 

l^copy ((caddr_t) 6 oobseq, opt, sizeof oobseq); 
m0->m_len +- 8; 

TCPT_RANGESET(tp->t_timer[TCPT_OOBREXMT], 

(tcp_beta*tp->t__srtt) /lOO, TCPTV_MIN, TCPTV_MAX) ; 


while (m0->m_len & 0x3) { 

*opt++ “ TCPOPT_EOL; 
m0->m_len++; 

} 

optlen = mQ->m__len; 

ti “ ratod(m, struct tcpiphdr *); /* needed for 11 */ 

ti->ti_off “ (sizeof (struct tcphdr) + optlen) » 2; 


ti'->ti_flags * flags; 
win “ sbspace(4so->so_rcv); 

♦ifndef TCPACKHOST 

if (win < so->so_rcv.sb_hiwat / 4) /* avo 

♦else 

if (win < SQ->so_rcv.sb_hiwat) /* avo 

♦endif 

win - 0; 
if (win > 0) 

♦ifndef WATCHOUT 

ti->ti_win - htons((u_short)win); 

♦else 

ti->ti_win - win; 

♦endif 

if (SEQ_GT(tp->>snd_up, tp->snd_nxt)) ( 

ti->ti_urp -= tp->snd_up - tp->snd_nxt; 

♦ifndef WATCHOUT 

ti->ti_urp - htons(ti->ti_urp); 

♦endif 

ti->ti_fiags t- TH_URG; 


/* avoid silly window */ 
/* avoid silly window */ 


) else 
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/* 

* If no urgent pointer to send, then we pull 

* the urgent pointer to the left edge of the send window 

* so that it doesn't drift into the send window on sequence 

* number wraparound. 

V 

tp->snd_up - tp->snd_una; /* drag it along */ 

/* 

* If anything to send and we can send it all, set PUSH. 

* (This will keep happy those iir^leiaentations which only 

* give data to the user when a buffer fills or a PUSH comes in. 

*/ 

if (len && off+len =■ so*“>so_snd.sb_cc) 
ti->ti_flags |= TH_PUSH; 

/* 

* Put TCP length in extended header, and then 

* checksum extended header and data. 

*/ 

if (len + optlen) { 

ti->ti_len = sizeof (struct tcphdr) + optlen + len; 

^ifndef WATCHOUT 

ti->ti_len - htons((u_short)ti“>ti_len); 

♦endif 

) 

mbprint(m, "before tout ck"); 

ti->ti_sum = in_cksum(m, sizeof (struct tcpiphdr) + (int)optlen + len); 
nprintf ("tout siua%x len%x\n*',ti->ti_sum, sizeof (struct tcpiphdr)+opt lent len) ; 

/* 

* In transmit state, time the transmission and arrange for 

* the retransmit. In persist state, reset persist time for 

* next persist. 

*/ 

if (tp->t_force ==-0) { 

/* 

* Advance snd_nxt over sequence space of this segment. 

*/ 

if (flags & (TH_SYNiTH_FIN)) 
tp->snd_nxt++; 
tp->snd__nxt += len; 

/* 

* Time this transmission if not a retransmission and 

* not currently timing anything. 

*/ 

if {SEQ_GT(tp->snd_nxt, tp->snd_max) && tp->t_rtt -= 0) { 
tp->t_rtt - 1; 

tp“>t_rtseq - tp->snd_nxt - len; 

} 

if (SEQ_GT(tp->snd_nxt, tp->snd_raax)) 
tp->snd_max - tp->snd_nxt; 


/* 

* Set retransmit timer if not currently set. 

* Initial value for retransmit timer to tcp_beta*tp->t_srtt. 

* Initialize shift counter which is used for exponential 

* backoff of retransmit time. 


*/ 


if (tp->t_timer[TCPT_REXMT] 0 
tp->snd_nxt I- tp->snd_una) { 

TCPT_RANGESET(tp->t_timer[TCPT_REXMT], 

(tcp_beta*tp->t_srtt)/lOO, TCPTV_MIN, 
tp->t_rxtshift “ 0; 

} 

tp->t_timer[TCPT_PERSIST] - 0; 

} else { 


} 


if (SBQ GT(tp-> 9nd_una+1, tp-> snd_ma x)) 
tp->snd_max - tp“>snd_una+l; 


TCPTV_HAX); 


/* 

* Trace. 

*/ 

if (so->so_options & S0_DEBUG) 


tcp_trace(TA_OUTPUT, tp->t_state, tp, ti, 0); 


/* 

* Fill in IP length and desired time to live and 

* send to IP level. 

*/ 

((struct ip *)ti)->ip_len - sizeof (struct tcpiphdr) + optlen + len; 
((struct ip *)ti)->ip_ttl = TCP_TTL; 

if (error = ip_output(m, tp~>t_ipopt, (so->so_options & SO_DONTRO0TE) 
sroutetoif : 4tp->t_inpcb->inp_route, 0)) { 
returnerr(error); 

} 

/* 

* Data sent (as far as we can tell). 

* If this advertises a larger window than any other segment, 

* then remember the size of the advertised window. 

* Drop send for purpose of ACK requirements. 

*/ 

if (win > 0 SEQ_GT (tp-’>rcv_nxt+win, tp->rcv_adv)) 
tp->rcv_adv - tp->rcv_nxt + win; 
tp->t_flags &= ~(TF_ACKNOW|TF_DELACK); 
if (sendalot &£ tp->t_force =*=* 0) 
goto again; 
returnerr(0); 


out: 

tifdef SIGH 

intcpoutput—; 

♦endif 


) 


return (error); 


tcp_setpersist(tp) 

register struct tcpcb *tp; 

{ 


if (tp->t_timer[TCPT_REXMT]) 

panic (••tcp_output REXMT"); 

/* 

* Start/restart persistence timer- 
*/ 

TCPT_RANGESET(tp“>t_timer[TCPT_PERSIST], 

((tcp_beta * tp->t_srtt)/lOO) « tp->t_rxtshift, 
TCPTV_PERSHIN, TCPTV_MAX); 
tp->t_rxtshift++; 

if (tp->t_rxtshift >= TCP_MAXRXTSHIFT) 
tp->t__rxtshift - 0; 
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/* tcp_subr.c 4.27 82/0S/20 */ 

♦include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/errno.h** 

♦include *sys/types.h" 

♦include "sys/systm.h** 

♦include "net/misc.h" 

♦include "net/rabuf.h" 

♦include "net/socket.h" 

♦include "net/socketvar.h" 

♦include "net/protosw.h" 

♦include "net/in.h" 

♦include "net/route.h" 

♦include "net/in_pcb.h" 

♦include "net/in_systra.h" 

♦include "net/if.h" 

♦include "net/ip.h" 

♦include "net/ip_var.h" 

♦include "net/ip_icrap.h" 

♦include "net/tcp.h" 

♦include •net/tcp_fsni.h" 

♦include "net/tcp_seq.h" 

♦include "net/tcp_timer.h" 

♦include "net/tcp_var.h" 

♦include "net/tcpip.h“ 

♦include "errno.h" 

/* 

* Tcp initialization 
*/ 

tcp_init() 

{ 

tcp_iss ”1; /* wrong */ 

tcb.inp_next = tcl>.inp_prev = &tcb; 
tcp_alpha - TCP^ALPHA; 
tcp_beta - TCP_BETA; 

} 

/* 

* Create template to be used to send tcp packets on a connection. 

* Call after host entry created, allocates an mbuf and fills 

* in a skeletal tcp/ip header, minimizing the amount of work 

* necessary when the connection is used. 

*/ 

struct tcpiphdr * 
tcp_tGmplate(tp) 

register struct tcpcb *tp; 

{ 

register struct inpcb *inp - tp->t_inpcb; 
register struct tcpiphdr *n; 

MSGET(n, struct tcpiphdr, 1); 
if (n — 0) 

return (0); 

n->ti_pr - IPPROTO_TCP; 

n“>ti_len = htons(slzeof (struct tcpiphdr) - sizeof (struct ip)); 

n->ti_src =■ inp”>inp_laddr; 

n->ti_dst ” inp->inp_faddr; 

n->ti_sport - inp->inp_lport; 

n->ti_dport - lnp->inp_fport; 

n->ti_off - 5; 

return (n); 

} 

/* 

* Send a single message to the TCP at address specified by 

* the given TCP/TP header. If flags“0, then we make a copy 

* of the tcpiphdr at ti and send directly to the addressed host. 

* This is used to force keep alive messages out using the TCP 

* template for a connection tp->t_template. If flags are given 

* then we send a message back to the TCP which originated the 

* segment ti, and discard the mbuf containing it and any other 

* attached rabufs. 


* In any case the ack and sequence number of the transmitted 

* segment are as specified by the parameters. 

*/ 

tcp_respond(tp, ti, ack, seq, flags) 
register struct tcpcb *tp; 
register struct tcpiphdr "ti; 
register tcp^seq ack, seq; 
register int flags; 

{ 

register struct mbuf *m; 
register int win - 0, tlen; 
register struct route *ro - 0; 

if (tp) { 

win = sbspace(4tp->t_inpcb->inp_socket->so_rcv); 
ro = 4tp->t_inpcb->inp_route; 

) 

if (flags = 0) { 

m = m_get(M_DONTWAIT); 
if (ra =- 0) 

return; 

m“>m_off “ MMINOFF; 

m->m_len - sizeof (struct tcpiphdr) + 1; 

bcopy((caddr_t)ti, mtod{m, caddr_t), sizeof *ti); 

ti = mtod(ra, struct tcpiphdr *); 

flags - TH_ACK; 

tlen = 1; 

} else { 

m = dtom(ti); 

m_freem (m->m_next); 

m->m_next - 0; 

♦ifndef newmbufs 

m->m_off - (int)ti - (int)m; 

♦else 

m->m_off » (int)ti - mtobuf(m, int); 

♦endif 

m->m_len “ sizeof (struct tcpiphdr); 

♦define xchg(a,b,type) { type t; t=a; a=b; b-t; } 

xchg (ti->ti_dst.s_addr, ti->ti_src.s_addr, u_long); 
xchg(ti->ti_dport, ti“>ti_sport, u_short); 

♦undef xchg 

tlen = 0; 

} 

ti->ti_next = ti->ti_j 3 rev = 0; 
ti->ti_xl = 0; 

ti“>ti_len = sizeof (struct tcphdr) + tlen; 
ti->ti_seq =» seq; 
ti->ti_ack - ack; 

♦ifndef WATCHOUT 

ti->ti_len - htons((u_short)ti->ti_len); 
ti->ti_seq -= htonl (ti->ti_seq) ; 
ti->ti_ack = htonl(ti->ti_ack); 

♦endif 

ti“>ti_x2 “ 0; 

ti->ti_off “ sizeof (struct tcphdr) » 2; 
ti->ti_flags = flags; 
ti->ti_win - win; 

♦ifndef WATCHOUT 

ti“>ti_win = htons(ti->ti_win); 

♦endif 

ti->ti_urp - 0; 

/* billn 
ti->ti_sum - 0; 

*/ 

ti->ti_sum - in_cksum(m, sizeof (struct tcpiphdr) + tlen); 
((struct ip *)ti)-•>lp_len - sizeof (struct tcpiphdr) + tlen; 
{(struct ip *)ti)->ip_ttl - TCP_TTL; 

(void) ip_output(ra, (struct mbuf *)0, ro, 0); 


/* 

* Create a new TCP control block, making an 

* empty reass^doly queue and hooking it to the argument 

* protocol control block. 
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Struct tcpcb * 
tcp_newtcpcb(inp) 

register struct inpcb *inp; 

{ 

register struct tcpcb *tp; 


MSGET(tp, struct tcpcb, 1); 
if (tp = 0) 

return (0); 

tp->seg_next «* tp->seg_prev = (struct tcpiphdr *)tp; 
/* Correction from Dan§sri-tsc 


tp->t__maxseg - 576; 
tp->t_roaxseg = 512; 
tp->t_flags *= 0; 
tp->t_inpcb =■ inp; 
inp->inp_ppcb = (caddr_t)tp; 
return (tp); 


/* satisfy the rest of the world */ 
/* satisfy the rest of the world */ 
/* sends options! *! 


* Drop a TCP connection, reporting 

* the specified error. If connection is synchronized, 

* then send a RST to peer. 

*/ 

tcp__drop(tp, errno) 

register struct tcpcb *tp; 
register int errno; 

{ 

struct socket *so « tp->t_inpcb->inp_socket; 

if (TCPS_HAVERCVDSYN(tp->t_state)) { 
tp->t_state = TCPS_CLOSED; 

(void) tcp_output(tp); 

} 

so->so_error = errno; 
tcp__close(tp) ; 


tcp_abort(inp) 

register struct inpcb *inp; 

{ 

tcp_close( (struct tcpcb *)inp->inp_j>pcb) ; 


fifdef WATCHOUT 
tdefine ti_inbuf ti_sum 

♦define DTOM(d) ( (struct mbuf *) ((d)->ti_mbuf) ) 
♦else 

♦define DTOM(d) dtom(d) 

♦endif 


* Close a TCP control block: 

* discard all space held by the tcp 

* discard internet protocol block 

* wake up any sleepers 

*/ 

tcp_close(tp) 

register struct tcpcb *tp; 

{ 

register struct tcpiphdr *t; 

♦ifdef WATCHOUT 

register struct tcpijrfidr *to; 

♦endif 

register struct inpcb *inp - tp->t_inpcb; 
register struct socket *so - inp->inp_socket; 

for (t - tp“->5eg_next; t !- (struct tcpiphdr *)tp;) { 
m_freem(DTOM(t)); 

♦ifdef WATCHOUT 


♦ifdef WATCHOUT 


t - (struct tcpiphdr *)t->ti_next? 


MSFREE(to); 


♦endif 


} 

if (tp->t_template) 

MSFREE(tp->t_template); 
if (tp->t_tcpopt) 

(void) m_free(tp->t_tcpopt); 
if (tp->t_ipopt) 

(void) ni_free (tp->t_ipopt); 
MSFREE(tp); 
inp->inp_ppcb - 0; 
soisdisconnected(so); 
in_jjcbd6tach(inp); 


tcp_drain() 

{ 


tcp_ctlinput(cmd, arg) 

register int cmd; 
register caddr_t arg; 

{ 

register struct in_addr *sin; 
extern u_char inetctlerrmap(]; 

if (cmd <011 cmd > PRC_NCMDS) 
return; 

switch (cmd) { 

case PRC_ROUTEDEAD: 
break; 

case PRC_QUENCH: 
break; 

/* these are handled by ip */ 
case PRC_IFDOWN: 
case PRC_HOSTDEAD: 
case PRC_HOSTUNREACH: 
break; 

default: 

sin = 4((struct icmp *)arg)->icmp_ip.ip_dst; 
in_pcbnotify(&tcb, sin, inetctlerrmap[cmd], tcp_abort); 

} 

} 
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/* tcp_timer.c 4.23 B2/06/2Q */ 

^include "sys/param.h" 

#include “sys/config.h" 
tinclude "sys/errno.h*' 

#include "sys/types.h* 

♦include "sys/systiu.h" 

♦include “net/iaisc.h" 

♦include "net/itibuf .h“ 

♦include **net/socket .h" 

♦include "net/socketvar.h» 

♦include "net/protosw.h” 

♦include "net/in.h" 

♦include "net/route.h“ 

♦include "net/in_jx:b.h" 

♦include "net/in_systra.h" 

♦include "net/if.h" 

♦include "net/ip.h" 

♦include "net/ip_var.h" 

♦include "net/tcp.h" 

♦include "net/tcp_fsm.h" 

♦include "net/tcp_seq.h" 

♦include *net/tcp_timer.h" 

♦include "net/tcp__var. h" 

♦include "net/tcpip.h" 

♦include "errno.h" 

int tcpnodelack =0; 

♦ifdef SIGH 

int infasttimo =0; 

int inslowtimo - 0; 

♦endif 

/* 

* Fast timeout routine for processing delayed acks 
*/ 

tcp_fasttii!io () 

{ 

register struct inpcb *inp; 
register struct tcpcb *tp; 
register int s = spinet(); 

♦ifdef SIGH 

if (infasttimo) printf("infasttimo.; else infasttimo++; 

♦endif 

inp =“ tcb.inp_next; 
if (inp) 

for (; inp 1= &tcb; inp = inp->inp_next) 

if ((tp “ (struct tcpcb *)inp->inp_ppcb) && 
(tp->t_flags & TF_DELACK)) { 
tp->t_flags fi- ~TF_DELACK; 
tp->t_flags I- TF_ACKNOW; 

(void) tcp_output(tp); 


♦ifdef SIGH 

infasttimo—; 

♦endif 


/* 

* Tcp protocol timeout routine called every 500 ms. 

* Updates the timers in all active tcb's and 

* causes finite state machine actions if timers expire. 

*/ 

tcp_slovrtimo () 

{ 

register struct inpcb *ip, *ipnxt; 
register struct tcpcb *tp; 
register int s - spinet(); 
register int i; 

/* 

* Search through tcb's and update active timers. 

*/ 

♦ifdef SIGH 

if (inslowtimo) printf("inslowtimo.; else inslowtimo++; 


♦endif 


ip “ tcb.inp_next; 
if (ip -- 0) { 

splx<s); 

♦ifdef SIGH 

inslowtimo—; 

♦endif 

return; 

} 

while (ip 4tcb) { 

tp - intotcpcb(ip); 
if (tp = 0) 

continue; 

ipnxt “ ip->inp__next; 

for (i = 0; i < TCPT_NTIMERS; i++) { 

if (tp->t_tiraer [i] £& —tp->t_timer[i] “=-0) { 

(void) tcp_usrreq (tp->t__inpcb->inp_socket, 
PRU_SLO»TIMO, (struct mbuf *)0, 
(caddr_t)i); 

if (ipnxt->inp_prev ip) 

goto tpgone; 

} 

} 

tp->t__idle++; 
if (tp->t_rtt) 

tp->t_rtt++; 

tpgone: 

ip = ipnxt; 

tcp_iss += TCP_ISSINCR/PR_SLOWH2; /* increment iss */ 

splx(s); 

♦ifdef SIGH 

inslowtimo—; 

♦endif 

} 


/* 

* Cancel all timers for TCP tp. 

*/ 

tcp_canceltimers(tp) 

register struct tcpcb *tp; 


register int i; 


} 


for (i “ 0; i < TCPT_NTIHERS; i++) 
tp->t_timer ti] “ 0; 


int tcp_backoff[TCP_MAXRXTSHIFT] - /* scaled by 10 */ 

{ 10, 12, 14, 17, 20, 30, 50, 80, 160, 320 }; 
int tcprexratprint - 1; 

int tcpexprexmtbackoff = 0; 

/* 

* TCP timer processing. 

*/ 

tcp_timers(tp, timer) 

register struct tcpcb *tp; 
register int timer; 

{ 


switch (timer) { 


/* 

* 2 MSL timeout in shutdown went off. Delete connection 

* control block. 

*/ 

case TCPT_2MSL: 

tcp_close(tp); 
return; 


/* 

* Retransmission timer went off. Message has not 

* been acked within retransmit interval. Back off 

* to a longer retransmit interval and retransmit all 

* unacknowledged messages in the window. 

*/ 
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case TCPT_REXHT: 

tp->t_rxtshift++; tendif 

if (tp->t_rxtshift > TCP_HAXRXTSHIFT) { } 

tcp__drop (tp, ETIMEDOUT); } 

return; 

> 

TCPT_RANGESET(tp->t_timer[TCPT_REXMT], 

(int)tp->t_srtt/10, TCPTV_MIN, TCPTV_MAX); 
if (tcpexprexmtbackoff) { 

TCPT_RANGESET {tp->t_timer [TCPT_REXMT], 

tp“>t_timer[TCPT_REXMT] « tp->t_rxtshift, 

TCPTV_HIN, TCPTV_MAX): 

} else { 

TCPT_RANGESET(tp->t_timer[TCPT_REXMT], 

(tp->t_timertTCPT_REXMT] * 

tcp_backoffttp->t_rxtshift - 1])/10, 

TCPTVJMIN, TCPTV_HAX); 

} 

if (tcprexratprint) 

printf (“rexmt set to %d\n", tp->t_tinier [TCPT_REXHT3) ; 
tp->snd_nxt - tp->snd__una; 

/* this only transmits one segment' */ 

{void) tcp_output(tp); 
return; 


/* 

* Persistence timer into zero window. 

* Force a byte to be output, if possible. 
*/ 

case TCPT_PERSIST: 

tcp_setpersist(tp); 
tp->t_force = 1; 

(void) tcp_output(tp); 
tp->t_force =“ 0; 
return; 


/* 

* Keep-alive timer went off; send something 

* or drop connection if idle for too long. 

*/ 

case TCPT_KEEP: 

if (tp->t_state < TCPS_ESTABLISHED) 
goto dropit; 

if (tp->t_inpcb->inp_socket->so_options & S0_KEEPALIVE) { 
if (tp->t_idle >= TCPTV_MAXIDLE) 
goto dropit; 

/* 

* Saying tp->rcv_nxt-l lies about what 

* we have received, and by the protocol spec 

* requires the correspondent TCP to respond. 

* Saying tp->snd_una-l causes the transmitted 

* byte to lie outside the receive window; this 

* is important because we don't necessarily 

* have a byte in the window to send (consider 

* a one-way stream!) 

*/ 


tcp_respond(tp, 

tp->t_template, tp->rcv_nxt-l, tp->snd__una-l, 

} else 

tp->t_idle =0; 

tp->t__timer tTCPT_KEEP] = TCPTV_KEEP; 
return; 

dropit: 

tcp__drop(tp, ETIMEDOUT); 
return; 


0 ); 


#ifdef TCPTRUEOOB 
/* 

* Out-of-band data retransmit timer, 

*/ 

case TCPT_OOBREXMT: 

if (tp->t_flags & TF_NOOPT) 
return; 

(void) tcp_output(tp); 

TCPT_RANGESET(tp->t_timer[TCPT_OOBREXMT], 

(2 * tp->t_srtt)/lO, TCPTV_MIN, TCPTV_MAX); 


return 
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/* tcp_usrreq.c 1.59 82/06/20 */ 

♦include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/errno.h" 

♦include "sys/types.h" 

♦include "sys/systm.h" 

♦include "net/raisc.h" 

♦include "net/mbuf.h" 

♦include "net/socicet.h" 

♦include "net/socketvar.h" 

♦include "net/protosw.h" 

♦include “net/in.h" 

♦include "net/rcute.h" 

♦include ■net/in_pcb.h" 

♦include "net/in_systm.h" 

♦include "net/if.h" 

♦include "net/ip.h" 

♦include "net/ip_var.h" 

♦include "net/tcp.h" 

♦include "net/tcp_fsm.h" 

♦include "net/tcp_seq,h" 

♦include "net/tcp_tiraer.h" 

♦include "net/tcp_var,h" 

♦include "net/tcpip.h" 

♦include "net/tcp_debug.h" 

♦include "errno.h" 

/* 

* TCP protocol interface to socket abstraction. 

*/ 

extern char *tcpstates[]; 
struct tcpcb *tcp_newtcpcb(); 

/* 

* Process a TCP user request for TCP tb. If this is a send request 

* then m is the mbuf chain of send data. If this is a timer expiration 

* (called from the software clock routine), then timertype tells which timer. 
*/ 

tcp_usrreq(so, req, m, addr) 
struct socket *so; 
int req; 
struct mbuf *m; 
caddr_t addr; 

{ 

register struct inpcb *inp = sotoinpcb(so); 

register struct tcpcb *tp; 

int s = spinet(}; 

int error - 0; 

int estate =■ 0; 

extern struct tcpcb * tcp_disconnect(); 
extern struct tcpcb * tcp_usrclosed(); 

/* 

* When a TCP is attached to a socket, then there will be 

* a (struct inpcb) pointed at by the socket, and this 

* structure will point at a subsidary (struct tcpcb). 

* The normal sequence of events is: 

* PRU_ATTACH creating these structures 

* PRU_COIfNECT connecting to a remote peer 

* (PRU_SEND|PRU_RCVD)* exchanging data 

* PRU_DISCONNECT disconnecting from remote peer 

* PRU_DETACH deleting the structures 

* With the operations from PRU_CONNECT through PRU_DISCONNECT 

* possible repeated several times. 

* 

* MULTIPLE CONNECTS ARE NOT YET IMPLEMENTED. 

*/ 

if (inp — 0 req !- PRU_ATTACH) { 
splx(s); 

return (EINVAL); /* XXX */ 

} 

if (inp) { 

tp - intotcpcb(inp); 

♦ifdef KPROF 

tcp_acounts(tp->t_statej [req]++; 


♦endif 


estate - tp->t_state; 


} 

switch (req) { 


* TCP attaches to socket via PRU_ATTACH, reserving space, 

* and internet and TCP control blocks. 

* If the socket is to receive connections, 

* then the LISTEN state is entered. 

*/ 

case PRU_ATTACK: 

if (inp) { 

error - EISCONN; 
break; 

) 

error =• tcp_attach(so, (struct sockaddr *)addr); 
if (error) 

break; 

if ((so->so_options & SO_DONTLINGER) -= 0) 
so->so_linger = TCP_LINGERTIME; 
tp “ sototcpcb(so); 
break; 

/* 

* PRU_DETACH detaches the TCP protocol from the socket. 

* If the protocol state is non-embryonic, then can't 

* do this directly; have to initiate a PRU_DISCONNECT, 

* which may finish later; embryonic TCB's can just 

* be discarded here. 

*/ 

case PRU_DETACH; 

tp ” tcp_disconnect(tp); 
break; 

/* 

* Initiate connection to peer. 

* Create a template for use in transmissions on this connection. 

* Enter SYN_SENT State, and mark socket as connecting. 

* Start keep-alive timer, and seed output sequence space- 

* Send initial segment on connection. 

*/ 

case PRU_CONNECT: 

error - injpcbconnect (inp, (struct sockaddr__in *)addr); 
if (error) 

break; 

tp->t_template = tcp_template(tp); 
if (tp->t_teraplate 0) { 

in_j)cbdisconnect (inp) ; 
error ■= ENOBUFS; 
break; 

} 

soisconnecting(so); 

tp->t_state = TCPS_SYN_SENT; 

tp->t_timertTCPT_KEEP] “ TCPTy_KEEP; 

tp->iss * tcp_iss; tcp_iss +- TCP_ISSINCR/2; 

tcp_sendseqinit(tp); 

error * tcp_output(tp); 

break; 

/* 

* Initiate disconnect from peer. 

* If connection never passed embryonic stage, just drop; 

* else if don't need to let data drain, then can just drop anyways, 

* else have to begin TCP shutdown process: mark socket disconnecting, 

* drain unread data, state switch to reflect user close, and 

* send segment (e.g. FIN) to peer. Socket will be really disconnected 

* when peer sends FIN and acks ours. 

* SHOULD IMPLEMENT LATER PRU_CONNECT VIA REALLOC TCPCB. 

*/ 

case PRU_DISCONNECT: 

tp - tcp_di3connect(tp); 
break; 


/ 
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* Accept a connection. Essentially all the work is 

* done at higher levels; just return the address 

* of the peer, storing through addr. 

*/ 

case PRU_ACCEPT: { 

struct sockaddr_in *sin = (struct sockaddr_in *)addr; 
if (sin) { 

bzero ((caddr__t) sin, sizeof (*sin)) ; 
sin“>sin_family =- AF_INET; 
sin->sin_j>3rt = inp->inp_f port ; 
sin->sin__addr = inp“>inp_faddr; 


* Mark the connection as being incapable of further output. 
*/ 

case PRU_SHUTDOWN: 

socantsendmore(so); 

if (tp = tcp_usrclosed(tp)) 

error = tcp_output(tp) ; 

break; 


* After a receive, possibly send window update to peer. 
*/ 

case PRU_RCVD: 

(void) tcp__output (tp); 
break; 


* Do a send hy putting data in output queue and updating urgent 

* marker if URG set. Possibly send more data. 

*/ 

case PRU_SEND: 

sbappend (& so--> so_snd, m) ; 

#ifdef notdef 

if (tp->t_flags £ TF_PUSH) 

tp'>snd_end = tp->snd_una + so->so_snd.sb_cc; 

#endif 

error “ tcp_output(tp); 
break; 


* Abort the TCP. 

*/ 

case PRU_ABORT: 

tcp_drop(tp, ECONNABORTED); 

tp - 0; 

break; 

/* SOME AS YET UNIMPLEMENTED HOOKS */ 
case PRU_CONTROL; 

error - EOPNOTSUPP; 
break; 

case PRU_SENSE: 

error - EOPNOTSUPP; 
break; 

/* END UNIMPLEMENTED HOOKS */ 

case PRU_RCVOOB: 

if (so->so_oobmark -- 0 4£ 

(so->so_state & SS_RCVATMARK) — Q) 
error -■ EINVAL; 
break; 

) 

if ((tp->t_oobflags & TCPOOB_HAVEDATA) 
error - EWOULDBLOCK; 
break; 


*mtod(m, caddr_t) - tp->t_iobc; 
break; 



/* 

* TCP slow timer went off; going through this 

* routine for tracing's sake. 

*l 

case PRU_SLOWTIMO: 

tcp_timers(tp, (int)addr); 

req I- (int)addr « 8; /* for debug's sake */ 

break; 


default: 

panic("tcp_usrreq") ; 

} 

if (so->so_options 4 SO_DEBUG) 

tcp_trace(TA_USER, estate, tp, (struct tcpiphdr *)0, req); 

splx(s); 
return (error); 


int tcp_sendspace = 1024*2; 

int tcp_recvspace - 1024*2; 

/* 

* Attach TCP protocol to socket, allocating 

* internet protocol control block, tep control block, 

* bufer space, and entering LISTEN state if to accept connections. 
*/ 

tcp_attach(so, sa) 

struct socket *so; 
struct sockaddr *sa; 

{ 

register struct tepeb *tp; 
struct inpeb *inp; 
int error; 

error - in_pcbattach(so, £tcb, 

tcp_sendspace, tcp_recvspace, (struct sockaddr_in *)sa); 
if (error) 

return (error) ; 

inp - (struct inpeb *)so->so_pcb; 
tp - tcp_newtcpcb(inp); 
if (tp — 0) { 

in_pcbdetach(inp); 
return (ENOBUFS); 

) 

if (so->so_options £ SO_ACCEPTCONN) 
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tp“>t_state - TCPS_LISTEN; 

else 

tp->t_state =» TCPS__CLOSED; 
return (0); 


/* 

* Initiate (or continue) disconnect. 

* If embryonic state, just send reset (once). 

* If not in "let data drain" option, just drop. 

* Otherwise (hard), mark socket disconnecting and drop 

* current input data; switch states based on user close, and 

* send segment to peer (with FIN). 

*/ 

struct tcpcb * 
tcp_disconnect(tp) 

struct tcpcb *tp; 

{ 

struct socket *so - tp->t_inpcb->inp_socket; 

if (tp->t_state <- TCPS_LISTEN) { 
tcp__clos6 (tp) ; 
tp = 0; 

) else if (so->so_linger =« 0) { 
tcp_drop(tp, 0); 
tp = 0; 

} else { 

soisdisconnecting(so); 
sbflush(4so->so_rcv); 
if (tp - tcp_usrclosed(tp)) 

(void) tcp_output(tp); 

1 

return (tp); 


/* 

* User issued close, and wish to trail through shutdown states: 

* if never received SYN, just forget it. If got a SYN from peer, 

* but haven't sent FIN, then go to FIN_WAIT_1 state to send peer a FIN. 

* If already got a FIN from peer, then almost done; go to LAST_ACK 

* state. In all other cases, have already sent FIN to peer (e.g. 

* after PRU_SHUTDO»N), and just have to play tedious game waiting 

* for peer to send FIN or not respond to keep-alives, etc, 

* We can let the user exit from the close as soon as the FIN is acked. 
*/ 

struct tcpcb * 
tcp_usrclosed(tp) 

struct tcpcb *tp; 

{ 


switch (tp->t_state) { 

case TCPS_LISTEN: 

case TCPS_SYN_SENT: 

tp“>t_state - TCPS_CLOSED; 
tcp_close(tp); 
tp - 0; 
break; 

case TCPS_SYN_RECEIVED: 

case TCPS_ESTABLISHED: 

tp“>t_state - TCPS_FIN_WAIT_1; 
break; 

case TCPS_CLOSE_WAIT: 

tp->t_state - TCPS_LAST_ACK; 
break; 

) 

if (tp && tp->t_state >» TCPS_FIN_WAIT_2) 

soisdisconnected (tp-’>t_inpcb->inp_socket); 

return (tp); 
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/* 

* Lisa INS8250A device driver 

* Copyright 1984 UniSoft Corporation 
*/ 

#include "sys/param.h* 

♦include "sys/config.h*' 

♦include "sys/types.h” 

♦include "sys/systm.h" 

♦include "sys/dir .h** 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h” 

♦include "sys/file.h" 

♦include "sys/tty.h“ 

♦include •sys/termio.h'* 

♦include "sys/conf.h" 

♦include "sys/sysinfo-h" 

♦include "sys/var.h" 

♦include "setjmp.h" 

♦Include "sys/reg.h“ 

♦include "sys/inmu-h** 

♦include "sys/proc.h" 

int teprocO; 

/* 

* structure to access Tecmar device registers 
*/ 

struct tedevice { 

char filll; 

char te_rbr; /* +1 data register */ 

♦define te_dvlsb te__rbr /* Isb of divisor latch */ 

char fill2; 

char te_ier; /* +3 interrupt enable register */ 

♦define te_dviiisb te_ier /* msb of divisor latch */ 


char 

fills; 



char 

te iir; 

/* 

+5 interrupt id register */ 

char 

fill4; 



char 

te Icr; 

/* 

+7 line control register */ 

char 

fills; 



char 

te mcr; 

/* 

+9 modem control register */ 

char 

fill6; 



char 

te Isr; 

/* 

+11 line status register */ 

char 

fill?; 



char 

te_msr; 

/* 

+13 modem status register */ 

char 

fills; 



char 

te_scrat; 

/* 

+15 scratch register (8250-A only) *; 

char 

fill[0x200-16]; 

/* 

sized to make tedevice be 0x200 long 


}; 

!* 

* structure to access the interrupt reset bit 
*/ 

struct teidevice { 

struct tedevice fill[7];/* filler */ 
char skip; 

char te_intr; /* interrupt reset location */ 

); 

f* 

* array used to remap ivec interrupt board slot number to tty slot 
*/ 

int te_remapt3]; 

/* 

* Slot id to interrupt reset address 
*/ 

struct teidevice *te_idevicet31 - { 

(struct teidevice *)(STDIO), 

(struct teidevice *)(STDIO+0x4000), 

(struct teidevice *)(STDIO+OxSOOO) 

}; 

extern struct tty te_tty[l]; 
extern struct ttyptr te_ttptr[l]; 


extern char te_dparam[l]; 
extern char te_modera[ 13 ; 
extern int te_cnt; 

♦define MODEM 0x80 /* modem control on bit */ 

♦define tedev(d) ((d)i0x7f) /* from unix device number to device */ 

♦define BAUDS0 2304 

♦define BAUD75 1356 

♦define BAUDllO 1047 

♦define BAUD134 857 

♦define BAOD150 768 

♦define BAUD300 384 

♦define BAUD600 192 

♦define BAUD1200 96 

♦define BAUD1800 64 

♦define BAUD2000 58 

♦define BAUD2400 48 

♦define BAUD3600 32 

♦define BAUD4800 24 

♦define BAUD7200 16 

♦define BAUD9600 12 

♦define BAUD19200 6 

♦define BAUD38400 3 

♦define BAUD56000 2 

/* -1 means hangup, -2 means invalid */ 
int tebaudmap[] - { 

-1, BAUD5Q, BAUD75, BAUDllO, BAUD134, BAUDISO, BAUD134, 

BAUD300, BAUD600, BAUD1200, BAUD180Q, BAUD2400, 

BAUD4800, BAUD9600, BAUD19200, BAUD38400 

}; 

/* Interrupt enable register bits */ 

♦define ERBFI 0x01 /* Enable received data available interrupt */ 

♦define ETBEI 0x02 /* Enable transmitter enable holding register empty interrupt */ 

♦define ELSI 0x04 /* Enable receiver line status interrupt */ 

♦define EDSSI QxOS /* Enable modem status interrupt */ 

/* Interrupt ident register bits */ 

♦define IRQ 0x01 /* Interrupt request, 0 if interrupt pending */ 

♦define THE 0x02 /* Transmitter holding register empty */ 

♦define IID 0x06 /* Interrupt ID bit mask */ 

♦define RID 0x04 /* Interrupt receive bit mask */ 

/* Line control register bits */ 

♦define BITS5 0x00 /* 5 bits */ 

♦define BITS6 0x01 /* 6 bits */ 

♦define BITS? 0x02 /* 1 bits */ 

♦define BITS8 0x03 /* 8 bits */ 

♦define STOPl 0x00 /* One stop bit */ 

♦define STOP2 0x04 /* Two stop bit */ 

♦define PEN 0x08 /* Parity enable */ 

♦define EPS 0x10 /* Even parity select */ 

♦define SPS 0x20 /* Stick parity */ 

♦define SBRK 0x40 /* Set break */ 

♦define DLAB 0x80 /* Divisor latch access, i/o direction bit */ 

/* Modem control register bits */ 

♦define DTR 0x01 /* Data terminal ready */ 

♦define RTS 0x02 /* Request to send */ 

/* Line status register bits */ 

♦define DATARDY 0x01 /* Data ready */ 

♦define OV_ERR 0x02 /* Overrun error on receiver */ 

♦define PE_ERR 0x04 /* Parity error */ 

♦define FR_ERR 0x08 /* Framing error */ 

♦define BR_INT 0x10 /* Break interrupt */ 

♦define THRE 0x20 /* Transmitter holding register */ 

♦define TEMT 0x40 /* Transmitter empty */ 

/* Modem status register bits */ 

♦define DCTS 0x01 /* Delta clear to send */ 

♦define DDSR 0x02 /* Delta data set ready */ 

♦define TERI 0x04 /* Trailing edge ring indicator */ 

♦define DDCD 0x08 /* Delta data carrier detect */ 
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^define CTS 0x10 /* Clear to send */ 

idefine DSR 0x20 /* Data set ready */ 

idefine RI 0x40 /* Ring indicator */ 

#define DCD 0x80 /* Data carrier detect */ 

int teslotsused = 0; 

/* 

* Initialize the baud rate 

* slot “ 0, 1, or 2 
*/ 

teinit(slot) 

{ 

register i, val; 
if (teslotsused+4 > te_cnt) { 

printf{*\n\nSystem only configured for %d tecmar ports\n\n'’, te_cnt); 
return(1); 

} 

te_reraap[slot] - teslotsused; 
val - STDIO + slot*0x4000 + 0x200; 
for (i * teslotsused; i < teslotsused+4; i++) { 
te_ttptr[i].tt_addr - val; 
te_ttptr ti].tt_tty = &te_tty[i]; 
val +- 0x200; 

} 

teslotsused += 4; 
return(0); 

} 

/* ARGSUSED */ 
teopen(dev, flag) 
dev_t dev; 

{ 

register struct tedevice *addr; 
register struct tty *tp; 
register d; 

#ifdef SINGLEUSER 

register struct proc *p; 

#endif SINGLEUSER 

d = tedev(dev); 
if (d >- te_cnt) { 

u,u_error = ENXIO; 
return; 

tp " te__ttptr [d] .tt_tty; 

♦ifdef SINGLEUSER 

p “ u.u_procp; 

if ((p->p_pid — p~>p_pgrp) 

&& (u.u_ttyp — NULL) 

£& (tp->t_j)grp — 0)) { 

u.u_error •= ENOTTY; 
return; 

} 

tendif SINGLEUSER 

addr - (struct tedevice *)te_ttptr[d].tt_addr; 
if (tp — 0 II addr = 0) { 
u.u_error - ENXIO; 
return; 

} 

tp“>t_index * d; 

SPL5() ; 

if ((tp->t_state4(ISOPEN IWOPEN)) «= 0) ( 
tp->tjproc « teproc; 
ttinit(tp); 

tP“>t_iflag - ICRNL I ISTRIP; 
tp->t_oflag - OPOST I ONLCR I TABS; 
tp->t_lflag - ISIG I ICANOH I ECHO | ECHOK; 
tp->t_cflag - sspeed I CSS | CREAD | HUPCL; 
teparam(dev); 

} 

te_raodem[d] » dev « MODEM; 
if ((devfiMODEM)—0 II addr->te_msr4DSR) 
tp->t_state I- CARR_ON; 


else 


tp->t_state & -CARR_ON; 

if ('(flag & FNDELAY)) 

while ((tp-'>t_state4CARR_ON) =“ 0) { 
tp->t_state I- WOPEN; 

(void) sleep((caddr_t)stp->t_rawq, TTOPRI); 

} 

SPLO(); 

(*linesw[tp->t_linel.l_open)(tp); 

} 

/* ARGSUSED */ 
teclose(dev, flag) 
dev_t dev; 
int flag; 

{ 

register struct tedevice *addr; 
register struct tty *tp; 
register d; 

d “ tedev{dev); 

tp ” te_ttptr[d].tt_tty; 

(*linesw[tp“>t_line].l_clos6)(tp); 
if (tp->t_cflag&HUPCL) { 

addr - (struct tedevice *) te__ttptr [d] .tt_addr; 
d “ 0; 

addr->te_mcr - d; 

} 

} 

teread(dev) 
dev_t dev; 

register struct tty *tp; 

tp - te_ttptr[tedev(dev)3.tt_tty; 

(*linesw[tp->t_line].l_read)(tp); 

} 

tewrite(dev) 
dev_t dev; 

{ 

register struct tty *tp; 

tp “ te_ttptrltedev(d6v)].tt_tty; 

(*linesw[tp->t_line].l_write)(tp); 

} 

teproc(tp, cmd) 
register struct tty *tp; 

{ 

register struct ccblock *tbuf; 
register struct tedevice *addr; 
register dev_t dev; 
int s; 

extern ttrstrt(); 

s * spltty(); 
dev » tp->t_index; 

addr * (struct tedevice *)te_ttptr[dev].tt_addr; 
switch (cmd) { 

case T_TIME; 

tp->t_state 4- -TIMEOUT; 
goto start; 

case T_WFLUSH: 

tbuf “ 4tp->t_tbuf; 
tbuf->c__size — tbuf“>c_count ; 
tbuf->c_count - 0; 

/* fall through */ 
case T_RESUME: 

tp->t_state 4- -TTSTOP; 
goto start; 

case T OUTPUT: 


start: 
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if (tp->t_state £ (TTSTOPlTIMEOUT I BUSY)) { 

/* if ({tp->t_state fi BUSY) =0) { 

addr = (struct tedevice *)((int)addr £ OxFCCOOO); 
((struct teidevice *)addr)->te_intr - dev; 

} */ 
break; 

) 

if (tp->t_state £ TTXOFF) { 

tp->t_state £- -TTXOFF; 
tp->testate 1* BUSY; 
addr->te_rbr = CSTQP; 
break; 

} 

if (tp->t_state £ TTXON) { 

tp“>t_state fi= -TTXON; 
tp->t_state 1- BUSY; 
addr->te_rbr - CSTART; 
break; 

) 

tbuf “ fitp->t_tbuf; 

if ((tbuf->c_j)tr = 0) li (tbuf->c_count == 0)) { 
if (tbuf->c_ptr) 

tbuf->c_ptr — tbuf->c_size - tbuf“>c_count; 
if (i(CPRES £ (*lineswCtp->t_line].l_output)(tp))) { 
break; 

} 

} 

tp->t_state |== BUSY; 

addr->te_ier = ERBFI I ETBEI I ELSI I EDSSI; 
addr->te_rbr - *tbuf->c_ptr++; 
tbuf->c_count—; 
break; 

case T_SUSPEND: 

tp->t_state 1“ TTSTOP; 
break; 


case T_BIjOCK: 

tp->t_state £- -TTXON; 
tp->t_state I- TBLOCK; 
tp->t_state 1= TTXOFF; 
goto start; 

case T_RFLUSH: 

if (I (tp->t_state£TBLOCK)) 
break; 

/* fall through */ 
case T_UNBL0CK: 

tp->t_state £= -(TTXOFFITBLOCK); 
tp->t_state I* TTXON; 
goto start.- 

case T_BREAK: 

tp->t_state I- TIMEOUT; 

timeout (ttrstrt, (caddr_t)tp, v.v_hz»2); 
break; 

} 

splx(s) ; 

) 


teioctlidev, cmd, arg, mode) 
dev_t dev; 

{ 

if (ttiocom(te_ttptr[tedev(dev)].tt_tty, 
teparam(dev); 


} 


cmd/ 


arg. 


mode)) 


teparam(dev) 
register dev_t dev; 

register struct tty *tp; 
register struct tedevice *addr; 
register int s, speed, oldpri; 
char c; 


tp - te_ttptr[tedev(dev)],tt_tty; 

addr - (struct tedevice *)te_ttptr[tedev(dev)].tt_addr; 
/* check for invalid speed */ 

if ((speed - tebaudmap[tp->t_cflag £ CBAUD]) = -2) { 
u.u_error - EINVAL; 
return; 

} 

s = 0; 

/* 

* hangup the line 
*/ 

if (speed — -1) { 

addr->te_mcr - s; 
return; 

} 

if (tp->t_state £ BUSY) { 

te_dparam[tedev(dev) ] = l.- 
return; 

) 

/* 

* set new speed 
*/ 

oldpri = splttyO; 
addr->te_lcr - DLAB; 
addr->te_dvlsb = speed; 
addr->te_dvmsb =* speed » 8; 
addr->te_lcr - s; 

/* 

* set line control information 
*/ 

if ((tp->t_cflag £ CSIZE) — CSS) 
s I- BITS8; 

else if ((tp->t_cflag £ CSIZE) = CS7) 
s J= BITS?; 

else if ((tp->t_cflag £ CSIZE) — CSS) 
s i- BITS6; 

else if ((tp->t_cflag £ CSIZE) = CSS) 
s 1= BITS5; 

if (tp->t_cflag £ CSTOPB) 
s 1= STOP2; 

if (ti>->t_cflag £ PARENB) 

if ((tp->t_cflag £ PARODD) = 0) 
s 1= PEN I EPS; 
addr->te_lcr - s; 

/* 

* set modem control information 
*/ 

addr->te_mcr - DTR | RTS; 

/* 

* enable interrupts 
*/ 

addr->te_ier - ERBFI | ETBEI I ELSI | EDSSI; 

/* 

* reset pending interrupts 
*/ 

c “ addr->te_rbr; 
c = addr->tB_lsr; 
c ■« addr“>te__msr; 
c - addr->te_iir; 

splx(oldpri); 


/* VARARGS */ 
teintr(ap) 
struct args *ap; 

( 

register struct tedevice *addr; 
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register struct ccblock *cbp; 
register struct tty *tp; 
register int c, lent, fig, iir, Isr; 
register char ctmp; 
int i, any; 

struct teidevice *iaddr; 
int index, s; 
char lbuf[3]; 


s - spl5(); 

index - te_remap[ap->a_dev]; 
iaddr =■ te_idevice[ap->a_dev] ; 
c = 0; 

iaddr“>te_intr - c; i* reset master interrupt */ 
any => 0; 

for (i = index; i < index+4; i++) { 

addr “ (struct tedevice *)te_ttptr[i].tt_addr; 

iir - addr“>te_iir; 
if (iir & IRQ) 

continue; 

tp = te_ttptr[i].tt_tty; 

Isr - addr->te_lsr; 
if (iir & RID) { 

sysinfo.rcvint++; 
c “ addr->te_rbr £ OxFF; 
if (tp->t_rfauf.c__ptr — NULL) { 
any++; 

goto restart; 


if ((Isr & DATARDY) =“ 0) 
c - 0; 

if (tp->t_iflag 4 IXON) { 
ctmp = c & 0177; 
if (tp->t_state & TTSTOP) { 
if (ctmp “• CSTART I 


I tp->t_iflag £ IXANY) 


(*tp->t_proc)(tp, T_RESUME); 


if (ctmp — CSTOP) 

(*tp->tjproc)(tp, T_SUSPEND); 

} 

if (ctmp = CSTART I I ctmp = CSTOP) { 
any++; 

goto restart; 

} 


* Check for errors 
*/ 

lent = 1; 

fig = tp->t_iflag; 

if (Isr £ (PE_ERRtFR_ERR|OV_ERR|BR_INT)) { 

if ((Isr £ PE_ERR) ££ (fig £ INPCK)) 
C i- PERROR; 
if (Isr £ OV_ERR) 

c 1“ OVERRUN; 
if (Isr £ FR_ERR) 

C I- FRERROR; 
if (Isr £ BR_INT) 

c - OVERRUN; /* reset cha 


/* reset char on a break */ 


if (C£ (FRERROR|PERROR|OVERRUN)) { 
if {(Cfi0377) — 0) { 

if (flg£IGNBRK) { 
any++; 

goto restart; 

) 

if (flg£BRKINT) { 

signal(tp->t_pgrp, SIGINT); 
ttyflush(tp, (FREADIFWRITE)); 
any++; 

goto restart; 


if {flg£lGNPAR) { 
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return; 

if (rasr & DSR I 1 te_modeinttp->t_index] — 0) { 
if ((tp->t_state&CARR_ON) = 0) { 
tp->t_state !- CARR_ON; 
if (tp->t_state«WOPEN) 

wakeup((caddr_t)£tp->t_rawq); 

} 

} else { 

if (tp->t_StatC&CARR_ON) { 

tp->t_state 4- ~CARR_OK; 
if (tp->t_rbuf.c_j>tr i- NULL) { 

ttyflush(tp, FREAD!FWRITE); 
signal (tp->t_j>grp, SIGHUP) ; 

) 
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/* 

* Lisa INS8250A device driver 

* 

* Copyright 1984 UniSoft Corporation 
*/ 

♦include "sys/param.h" 

♦include "sys/config.h" 

♦include "sys/types.h" 

♦include "sys/systm.h** 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/file.h** 

♦include "sys/tty.h” 

♦include "sys/termio.h" 

♦include "sys/conf.h" 

♦include "sys/sysinfo.h" 

♦include "sys/var.h" 

♦include "setjmp.h" 

♦include "sys/reg.h" 

♦include "sys/itmu.h" 

♦include "sys/proc.h" 

int teproc(); 

/* 

* structure to access Tecmar device registers 
*/ 

struct tedevice { 

char filll; 

char te_rbr; /* +1 data register */ 

♦define te_dvlsb te_rbr /* Isb of divisor latch */ 

char fill2; 

char te_ier; /* +3 interrupt enable register */ 

♦define te_dvmsb te_ier /* msb of divisor latch */ 


char 

fill3; 



char 

te iir; 

/* 

+5 interrupt id register */ 

char 

fill4; 



char 

te Icr; 

/* 

+7 line control register */ 

char 

fill5; 



char 

te mcr; 

/* 

+9 modem control register */ 

char 

fill6; 



char 

te Isr; 

/* 

+11 line status register */ 

char 

fill?; 



char 

te msr; 

/* 

+13 modem status register */ 

char 

fills; 



char 

te scrat; 

/* 

+15 scratch register {825Q-A only) 

char 

fillt0x200-161; 

/* 

sized to make tedevice be 0x200 long 


}; 

/* 

* structure to access the interrupt reset bit 

V 

struct teidevice { 

struct tedevice fill[7];/* filler */ 
char skip; 

char te_intr; /* interrupt reset location */ 

}; 

/* 

* array used to remap ivec interrupt board slot number to tty slot 

V 

int te_reraap[3]; 

/* 

* Slot id to interrupt reset address 
*/ 

struct teidevice *te_idevicet31 - { 

(struct teidevice *)(STDIO), 

(struct teidevice *)(STDIO+0x4000), 

(struct teidevice *)(STDIO+0x8000) 

); 

extern struct tty te_tty[l]; 
extern struct ttyptr te_ttptr[l]; 


extern char te_dparamtl]; 
extern char te_modem[1]; 
extern int te_cnt; 

♦define MODEM 0x80 /* modem control on bit */ 

♦define tedev(d) ((d)£0x?f) /* from unix device number to device *! 

♦define BAUD50 2304 

♦define BAUD75 1356 

♦define BAUDllO 1047 

♦define BAUD134 857 

♦define BAUDISO 768 

♦define BAUD300 384 

♦define BAUD600 192 

♦define EAUD12Q0 96 

♦define BAUD1800 64 

♦define BAUD2000 58 

♦define BAUD2400 48 

♦define BAUD3600 32 

♦define BAUD4800 24 

♦define BAUD7200 16 

♦define BAUD9600 12 

♦define BAUD19200 6 

♦define BAUD38400 3 

♦define BAUD56000 2 

/* -1 means hangup, -2 means invalid */ 
int tebaudmapC] ^ { 

-1, BAUD50, BAUD75, BAUDllO, BAUD134, BAUDISO, BAUD134, 

BAUD30Q, BAUD600, BAUD1200, BAUD1800, BAUD2400, 

BAUD4800, BAUD9600, BAUD19200, BAUD38400 

}; 

/* Interrupt enable register bits */ 

♦define ERBFI 0x01 /* Enable received data available interrupt */ 

♦define ETBEI 0x02 /* Enable transmitter enable holding register empty interrupt */ 

♦define ELSI 0x04 /* Enable receiver line status interrupt */ 

♦define EDSSI 0x08 /* Enable modem status interrupt */ 

/* Interrupt ident register bits */ 

♦define IRQ 0x01 /* Interrupt request, 0 if interrupt pending */ 

♦define THE 0x02 /* Transmitter holding register empty */ 

♦define IID 0x06 /* Interrupt ID bit mask */ 

♦define RID 0x04 /* Interrupt receive bit mask */ 

/* Line control register bits */ 

♦define BITS5 0x00 /* 5 bits */ 

♦define BITS6 0x01 /* 6 bits */ 

♦define BITS7 0x02 /* 7 bits */ 

♦define BITS8 0x03 /* 8 bits */ 

♦define STOPl 0x00 /* One stop bit */ 

♦define STOP2 0x04 /* Two stop bit */ 

♦define PEN 0x08 /* Parity enable */ 

♦define EPS 0x10 /* Even parity select */ 

♦define SPS 0x20 /* Stick parity */ 

♦define SBRK 0x40 /* Set break */ 

♦define DLAB 0x80 /* Divisor latch access, i/o direction bit */ 

/* Modem control register bits */ 

♦define DTR 0x01 /* Data terminal ready */ 

♦define RTS 0x02 /* Request to send */ 

/* Line status register bits */ 

♦define DATARDY 0x01 /* Data ready */ 

♦define OV_ERR 0x02 /* Overrun error on receiver */ 

♦define PE_ERR 0x04 /* Parity error */ 

♦define FR_ERR 0x08 /* Framing error */ 

♦define BR_INT 0x10 /* Break interrupt */ 

♦define THRE 0x20 /* Transmitter holding register */ 

♦define TEMT 0x40 /* Transmitter empty */ 


/* Modem status register bits */ 


♦define 

DOTS 

0x01 

/* 

Delta clear to send */ 

♦define 

DDSR 

0x02 

/* 

Delta data set ready */ 

♦define 

TERI 

0x04 

/* 

Trailing edge ring indicator */ 

♦define 

DDCD 

0x08 

/* 

Delta data carrier detect */ 
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^define CTS 0x10 /* Clear to send */ 

#define DSR 0x20 /* Data set ready */ 

tdefine RI 0x40 /* Ring indicator */ 

♦define DCD 0x80 /* Data carrier detect */ 

int teslotsused = 0; 

/* 

* Initialize the baud rate 

* slot =■ 0, 1, or 2 
*/ 

teinit(slot) 

{ 

register i, val; 
if (teslotsused+4 > te__cnt) { 

printf("XnXnSystem only configured for %d tecraar ports\n\n", te_cnt); 
return(1); 

} 

te_remap[slot3 = teslotsused; 
val “ STDIO + slot*Qx4000 + 0x200; 
for (i = teslotsused; i < teslotsused+4; i++) { 
te_ttptr{i3 .tt_addr =■ val; 
te_ttptr[i].tt_tty “ &te_tty[i]; 
val +» 0x200; 

} 

teslotsused +- 4; 
return(0); 

} 

/* ARGSUSED */ 
teopen(dev, flag) 
dev_t dev; 

{ 

register struct tedevice *addr; 
register struct tty *tp; 
register d; 

♦ifdef SINGIiEUSER 

register struct proc *p; 
fendif SINGLEUSER 

d = tedev(dev); 
if (d >“ te_cnt) { 

u.u_error = ENXIO; 
return; 

} 

tp = te_ttptr[d].tt_tty; 

♦ifdef SINGLEUSER 

p ” u.u_j>rocp; 
if ((p->p_pid =“ p->p_pgrp) 

&£ (u.u_ttyp — NULL) 

£& (tp->t_pgrp 0)) { 

u.u_error = ENOTTY; 
return; 

1 

♦endif SINGLEUSER 

addr " (struct tedevice *)te_ttptr[d].tt_addr; 
if (tp — 0 II addr =— 0) { 
u.u_error - ENXIO; 
return; 

} 

tp->t_index - d; 

SPL5(); 

if ((tp->t_state4{ISOPEN IWOPEN)) -- 0) { 
tp->t_proc - teproc; 
ttinit(tp); 

tp->t_iflag - ICRNL I ISTRIP; 
tp“>t_oflag - OPOST | ONLCR | TAB3; 
tp->t_lflAg - ISIG I ICAHON I ECHO I ECHOK; 
tP“>t_cflag - sspeed 1 CS8 1 CREAD 1 HUPCL; 
teparaiii(dev); 

} 

te_modeni[d] - dev £ MODEM; 
if ((devfiMODEM)--0 |i addr->te_rasr4DSR) 
tp->t_3tate 1- CARR_ON; 


else 


0 ) { 


tp->t_State £= ~CARR_ON; 
if (‘(flag £ FNDELAY)) 

while ((tp->t_state£CARR_ON) =* 
tp~>t_state I- WOPEN; 

(void) sleep((caddr_t)&tp->t_rawq, TTOPRI); 

) 

SPLOO ; 

(*linesw[tp->t_line].l_open)(tp); 

} 

/* ARGSUSED */ 
teclose(dev, flag) 
dev_t dev; 
int flag; 

{ 

register struct tedevice *addr; 
register struct tty *tp; 
register d; 

d =• tedev(dev); 

tp = te_ttptr[d].tt_tty; 

(*linesw[tp->t_line].l_close)(tp); 
if (tp->t_cflag4HUPCL) { 

addr = (struct tedevice *) te__ttptr [d] .tt_addr; 
d - 0; 

addr->te_nicr = d; 

} 

} 

teread(dev) 
dey_t dev; 

{ 

register struct tty *tp; 

tp - te_ttptrEtedev(dev)].tt_tty; 

(*linesw[tp->t_line].l_read)(tp); 

} 

tewrite(dev) 
dev_t dev; 

{ 

register struct tty *tp; 

tp ” te_ttptr [tedev(dev) ] .tt__tty; 

(*linesw[tp->t_line].l^write)(tp); 

} 

teproc(tp, cmd) 
register struct tty *tp; 

{ 

register struct ccblock *tbuf; 
register struct tedevice *addr; 
register dev_t dev; 
int s; 

extern ttrstrt(); 

s - spltty(); 
dev = tp*->t_index; 

addr - (struct tedevice *)te_ttptr[dev],tt_addr; 
switch (cmd) { 

case T_TIME: 

tp“>t_state 4- -TIMEOUT; 
goto start; 

case T_WFLUSH; 

tbuf - 4tp->t_tbuf; 
tbuf->c_size — tbuf->c_count; 
tbaf->c_count - 0; 

/* fall through */ 
case T_RESUME: 

tp->t_state £“ -TTSTOP; 
goto start; 

case T OUTPUT: 


start; 
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if (tp->t_state & (TTSTOPI TIMEOUT IBUSY)) { 

/* if ((tp->t_state fi BUSY) — 0) { 

addr - (struct tedevice *)((int)addr & OxFCCOOO); 
((struct teidevice *)addr)->te_intr =» dev; 

} */ 
break; 

} 

if (tp->t_state & TTXOFF) { 

tp->t_state &= -TTXOFF; 
tp->t_state !- BUSY; 
addr->te_rbr = CSTOP; 
break; 

if (tp->t_state & TTXON) { 

tp->t_state 4” -TTXON; 
tp->t_state I- BUSY; 
addr“>te_rbr - CSTART; 
break; 

} 

tbuf “ &tp->t_tbuf; 

if ((tbuf->cjptr =>*=0) II (tbuf->c_count ==0)) { 
if (tbuf->c_j>tr) 

tbuf->c_ptr —= tbuf->c_size - tbuf->c_count; 
if (!(CPRES & (*linesw[tp->t_linel.l_output)(tp))) { 


tp->t_state I” BUSY; 

addr->te_ier = ERBFI | ETHEI ] ELSI I EDSSI; 
addr->te_rbr - *tbuf->c_j)tr++; 
tbuf->c_count—; 
break; 

case T_SUSPEND: 

tp->t_state i== TTSTOP ; 
break; 

case T_BLOCK: 

tp->t_state &= -TTXON; 
tp->t_state |== TBLOCK; 
tp->t_State 1= TTXOFF; 
goto Start; 

case T_RFLUSH; 

if (i(tp->t_statesTBLOCK)) 
break; 

/* fall through */ 
case T_UNBLOCK; 

tp->t_state 4- -(TTXOFFITBLOCK); 
tp->t_state 1" TTXON; 
goto start; 

case T_BREAK: 

tp->t_state I- TIMEOUT; 

timeout(ttrstrt, (caddr_t)tp, v.v_hz»2); 

break; 

} 

splx(s); 

} 


teioctKdev, and, arg, mode) 
dev_t dev; 

{ 



(ttiocom(te_ttptrItedev(dev)].tt_tty, 
teparara(dev) ; 


cmd. 


arg, mode)) 


teparam(dev) 
register dev_t dev; 

{ 

register struct tty *tp; 
register struct tedevice *addr; 
register int s, speed, oldpri; 
char c; 
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tp “ te_ttptr[tedev(dev)].tt_tty; 

addr - (struct tedevice *)te_ttptr[tedev(dev)].tt_addr; 
/* check for Invalid speed */ 

if ((speed = tebaudmap[tp->t_cflag 4 CBAUD]) — -2) { 
u.u_error “ EINVAL; 
return; 

s “ 0; 

/* 

* hangup the line 
*/ 

if (speed -1) { 

addr->te_jncr = s; 
return; 

} 

if (tp->t_state 4 BUSY) { 

te_dparam [tedev(dev)] » 1; 
return; 

} 

/* 

* set new speed 
*/ 

oldpri = spltty(); 
addr->te_lcr - DLAB; 
addr->te_dvlsb - speed; 
addr->te_dvmsb - speed » 8; 
addr->te_lcr = s; 

/* 

* set line control information 
*/ 

if ((tp->t_cflag 4 CSIZE) CS8) 
s I- BITS8; 

else if ((tp->t_cflag 4 CSIZE) = CS7) 
s 1= BITS?; 

else if ((tp->t__cflag 4 CSIZE) »= CS6) 
s I- BITS6; 

else if ((tp->t_cflag 4 CSIZE) “= CSS) 
s I” BITS5; 

if (tp->t_cflag 4 CSTOPB) 
s 1= STOP2; 

if (tp->t_cflag 4 PARENB) 

if ((tp->t_cflag 4 PARODD) ” 0) 

S )= PEN IEPS; 
addr->te_lcr = s; 

/* 

* set modem control information 
*/ 

addr->te_mcr - DTR | RTS; 

/* 

* enable interrupts 
*/ 

addr->te_ier * ERBFI I ETBEI | ELSI i EDSSI; 

/* 

* reset pending interrupts 
*/ 

c - addr->te_rbr; 
c - addr->te_lsr; 
c - addr->te_rasr; 
c -• addr“>te_iir; 

splx(oldpri); 


/* VARARGS */ 
teintr(ap) 
struct args *ap; 

( 

register struct tedevice *addr; 
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register struct ccbloclc *cbp; 
register struct tty *tp; 
register int c, lent, fig, iir, Isr; 
register char ctinp; 
int i, any; 

struct teidevics *iaddr; 
int index, s; 
char lbuft3]; 

s - spl5(); 

index « te_remap[ap->a_dev]; 
iaddr =■ te_idevice[ap-’>a_dev3 ; 
c = 0; 

iaddr->te_intr ” c; /* reset master interrupt */ 

again: 

any = 0; 

for (i - index; i < index+4; i++) { 

addr - (struct tedevice *)te_ttptr [i] .tt__addr; 

restart: 

iir = addr-“>te_iir; 
if (iir & IRQ) 

continue; 

tp ” te_ttptr[i].tt_tty; 

Isr = addr->te_lsr; 
if (iir & RID) { 

sysinfo.rcvint++; 
c ” addr-->te_rbr & OxFF; 
if (tp->t_rbuf.c_ptr = NULL) { 
any++; 

goto restart; 

} 

if ((Isr & DATARDY) “ 0) 
c - 0; 

if (tp->t_iflag & IXOH) { 
ctmp = c & 0177; 
if (tp->t_state & TTSTOP) { 

if (ctmp =— CSTART I I tp“>t_iflag & IXANY) 
(*tp->t_proc)(tp, T_RESUHE); 

} else { 

if (ctmp = CSTOP) 

(*tp->t_jjroc) (tp, T_SUSPEND); 

} 

if (ctmp — CSTART I I ctmp =” CSTOP) { 
any++; 

goto restart; 

} 

/* 

* Check for errors 
*/ 

lent =“ 1; 

fig ” tp“>t_iflag; 

if (Isr & (PE_ERR|FR_ERR10V_ERR|BR_INT)) { 

if ((Isr & PE__ERR) && (fig & INPCK)) 
c 1“ PERROR; 
if (Isr & OV_ERR) 

C 1= OVERRUN; 
if (Isr & FR_ERR) 

C 1- FRERROR; 
if (Isr & BR_INT) 

c “ OVERRUN; /* reset char on a break */ 

) 

if (C4(FRERROR1PERROR|OVERRUN)) { 
if ((C40377) — 0) { 

if (flg&IGNBRK) { 
any++; 

goto restart; 

} 

If (flgSBRKTNT) { 

signal(tp->t_pgrp, SIGINT); 
ttyflush(tp, (FREADIFMRITE)); 
any++; 

goto restart; 

} 

} else { 


if (flgfilGNPAR) { 
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return; 

if (msr & DSR i I te_inodem[tp->t_index] =0) { 
if ((tp->t_state4CARR_ON) = Q) { 
tp->t__state 1- CARR_ON; 
if (tp->t_state&5?OPEN) 

wakeupv(caddr_t)itp->t_rawq); 

} 

} else { 

if (tp->t_state&CARR_ON) { 

tp->t_state -CARR_ON; 
if (tp-'>t_rbuf.c_j)tr i- NULL) { 

tty flush (tp, FREAB ! FS?RITE) ; 
signa1(tp~>t_pgrp, SIGHUP); 

} 
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/* e(#)text.c 1,3 */ 
#include “sys/param.h" 
♦include "sys/config.h" 
♦include "sys/ramu.h" 
♦include "sys/types.h" 
♦include "sys/sysiaacros.h" 
♦include "sys/systm.h" 
♦include "sys/map.h" 
♦include "sys/dir.h" 
♦include "sys/signal.h" 
♦include "sys/user.h“ 
♦include '*sys/proc.h'* 
♦include "sys/context.h" 
♦include "sys/text.h” 
♦include "sys/inode.h" 
♦include "sys/buf.h" 
♦include "sys/seg-h** 
♦include "sys/var.h" 
♦include "sys/sysinfo.h" 
♦include "sys/scat .h** 

typedef int mera_t; 


* Swap out process p. 

* The ff flag causes its core to be freed— 

* it may be off when called to create an image for a 

* child process in newproc. 

* On a partial swap ff is the negative number of blocks to be swapped, 

* Os is the old size of the process, 

* and is supplied during core expansion swaps. 

*/ 

xswap(p, ff, os) 
register struct proc *p; 

{ 

register a, i, s, tos; 
int addr, sz; 

if (os 0) 

os = p->p_size; 
p->p_flag 1= (SLOCK] SHOMyfU) ; 
xccdec(p->p_textp); 
cxrelse(p->p_context); 
a = malloc (swapuiap, ctod (p->p_si 2 e)) ; 
if (a — NULL) { 

/* 

* s = decreasing click size of total disk space needed 

* tos *=■ decreasing click size of process being swapped 
*/ 

tos = os; 
s “ p->p_size; 

♦ifdef NONSCATLOAD 

addr - p->p__addr; 

♦else 

addr - p->p_scat; 

♦endif 

for (i-0; i < NSCATSS?AP; i++) { 

if ((a ■= dtoc (mallocl (swapmap))) NULL) 
break; 
if (a > s) 


NONSCATLOAD 


p->p_xaddr[i] - malloc(swapmap, (mem_t) ctod(a)); 
P“>p_xsize[i] “ a; 
sz - HIN(a, tos); 
if (sz) ( 

swap(p->p_xaddrli], addr, (mera_t)sz, B_WRITE); 

addr = swap {p->p_xaddr ti], addr, (meTn_t)3z, 

B WRITE); 


s — a; 
if (3 — 0) 

break; 
tos a; 


♦endif 


♦ifdef NONSCATLOAD 


if (tos < 0) 

tos =0; 

addr +- a; 

♦endif 

if (s I- 0) 

panic("out of swap space"); 
a ” p->p_xaddr[0]; /* for /bin/ps */ 

} else { 

♦ifdef NONSCATLOAD 

swap((daddr_t)a, (int)p->p_addr, (mem_t)os, B_WRITE); 

♦else 

(void) swap( (daddr__t)a, (int)p->p_scat, (raera_t)os, B_WRITE) ; 

♦endif 

} 

p->p_flag 4= -SNOMMU; 
if (ff) { 

♦ifdef NONSCATLOAD 

mf ree (coremap, (iiiera__t) os, (mem_t) p->p_addr); 

♦else 

raemf ree (p'->p__scat) ; 
p->p_scat =0; 

♦endif 

} 

cxrelse(p“>p_context); 
p->p_dkaddr =>» a; 
p->p_flag 4- ~(SLOADlSLOCK); 

♦ifndef NONSCATLOAD 

if (p->p_flag 4 SSWAPIT) { 

p->p_flag 4* "SSWAPIT; 
p->p_flag 1“ SCONTIG; 
wakeup({caddr_t)scatmap); 

} 

♦endif 

p->p_time =■ 0; 
if (runout) { 

runout =0; 

wakeup({caddr_t)4runout); 

} 

} 

/* 

* relinquish use of the shared text segment 

* of a process. 

*/ 

xfree() 

{ 

register struct text *xp; 
register struct inode *ip; 
register struct proc *p = u.u_procp; 

if ((xp =■ p->p_textp) ==* NULL) 
return; 
xlock(xp); 

xp->x_flag 4= -XLOCK; 
p->p_textp * NULL; 
u.u_ptsi 2 e - 0; 
ip =- xp-’>x_iptr; 

if (—xp->x_count=“0 44 ((ip->ijnaode4lSVTX)--0 jj xp->x_flag4XERROR)) { 
xmsave (xp) ; 
xp->x_iptr - NULL; 
if (xp->x_daddr) 

mfree(swapmap, ctod(xp->x_size), (int)xp->x_daddr); 
cxtxfree(xp); 
ip->i_flag 4- -ITEXT; 
if (ip->i_flag4ILOCK) 
ip->i_count—; 

else 

iput(ip); 

) else 

xccdec(xp); 

cxrelse(u.u_procp->p_context); 

} 


/ 
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* Attach to a shared text segment. 

* If there is no shared text, just return. 

* If there is, hook up to it: 

* if it is not currently being used, it has to be read 

* in from the inode (ip); the written bit is set to force it 

* to be written out as appropriate. 

* If it is being used, but is not currently in core, 

* a swap has to be done to get it back. 

*/ 

xalloc(ip) 

register struct inode *ip; 

{ 

register struct text *xp; 
register ts; 

register struct text *xpl; 
register struct user *up; 


loop: 


up = &u; 

if (up->u_exdata.ux_tsize •=” 0) 
return; 
xpl NULL; 

for (xp = &text[0]; xp < (struct text *)v.ve_text; xp++) { 
if (xp->x_iptr “■ NULL) { 
if (xpl NULL) 
xpl “ xp; 
continue; 

} 

if (xp->x__iptr =-= ip) { 
xlock(xp); 
xp->x_count++; 
up-‘>u_procp->p_textp = xp; 
if (xp->x_ccount 0) 

(void) xexpand(xp); 

else 

xp->x_ccount++; 
xunlock(xp); 
return; 

} 

} 

if ((xp“Xpl) “ NULL) { 

printf('*out of text\n**); 
syserr.textovf++; 
if (xumount(NODEV)) 
goto loop; 

psignal(up->u_procp, SIGKILL); 
return; 

} 

xp->x_flag “ XLOADlXLOCK; 
xp->x_count •= 1; 
xp->x_ccount “0; 
xp->x_iptr = ip; 
ip->i_flag |= ITEXT; 
ip“>i_count++; 

ts = btoc(up->u_exdata.ux_tsize) ; 
xp->x_size = ts; 

/* if ((xp~>x_daddr - malloc(swapitiap, ctod(ts))) == NULL) */ 

/* panic("out of swap space"); */ 
xp“>x_daddr - 0; /* defer swap alloc til later */ 

up->u_procp->p_textp =- xp; 
if (xexpand(xp)) { 

(void) estabur{(unsigned)ts, (unsigned)0, (unsigned)0, 0, RW); 

xp->x_flag - XWRIT; 

return; 

} 

(void) estabur((unsigned)ts, {unsigned)0, (unsigned)O, 0, RW); 
up“>u_count - up“>u_exdata.ux_tsize; 
up->u_offset - sizeof(up->u_exdata); 

/* up->u_offset - up->u_exdata.ux_tstart; */ 
up->u__base - (caddr_t) v.v_ustart; 

/* up->u_base - 0; */ 
up->u_segflg “ 2; 
up->ujprocp->p_flag |- SLOCK; 
read!(ip); 

up->u_j>rocp->p_flag ~SLOCK; 
upr>u^Aegflg - 0^ 


if (up->u_error | | up->u_coimtI”0) 
xp->x_flag - XERROR; 

else 

xp->x_flag * XWRIT; 


/* 

* Assure core for text segment 

* Text must be locked to keep someone else from 

* freeing it in the meantime. 

* x ccount must be 0. 


xexpand(xp) 

register struct text *xp; 

{ 

if (xmlink(xp)) { 

xp->x_ccount++; 
xunlock(xp); 
return(1); 

} 

#ifdef HONSCATLOAD 

if ((xp“>x_caddr - malloc(coremap, xp->x_size)) NULL) { 
if ((xp->x_flag&XLOAD)--0) 

swap (xp-*>x_daddr, (int)xp->x_caddr, xp->x_size, B_READ) ; 
xp->x_ccount++; 
xunlock(xp); 
return(0); 

) 

#else 

if ((xp->x_scat = memalloc(xp->x_size)) I=“ NULL) { 
if ((xp~>x_f lag«XLOAD) —0) 

(void) swap(xp->x_daddr, (int)xp->x_scat, 
xp->x_size, B_READ); 

xp->x_ccount++; 
xunlock(xp); 
return(0); 

} 

#endif 

if (save(u.u_ssav)) { 
cxtxfree(xp); 
sureg(); 
return(0); 

} 

xswap(u.u_j)rocp, 1, 0); 

xunlock(xp); 

u.u_procp->p_flag |“ SSWAP; 

qswtch(); 

iifdef lint 

return(0); 

#endif 

) 

/* 

* Lock and xinlock a text segment from swapping 
*/ 

xlock(xp) 

register struct text *xp; 

1 

while(xp->x_flag4XLOCK) { 

xp->x_flag I- XWANT; 

(void) sleep((caddr_t)xp, PSWP); 

} 

xp->x_flag 1- XLOCK; 

} 

xunlock(xp) 

register struct text *xp; 


if (xp->x_flagtXWANT) 

wakeup((caddr_t)xp); 
xp->x_flag ~(XLOCKIXWANT); 


J 
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* Decrement the in-core usage count of a shared text segment. 

* When it drops to zero, free the core space. 

*/ 

xccdec(xp) 

register struct text *xp; 

{ 

int prevlock; 

if (xp=NULL I I xp->x_ccount=”>0) 
return; 
xlock(xp); 

if {Mprevlock = (a.u_procp->p_flag & SLOCK))} 
u. u_j>rocp->p_flag | - SLOCK; 
if (—xp->x_ccount"—'0) { 

if (xp->x_flagsXWRIT) { 

xp->x_flag -XWRIT; 
if (xp->x_daddr “== 0) 

xp->x_daddr » swapalloc(ctod(xp->x_si 2 e), 1); 

#ifdef NONSCATLOAD 

swap(xp->x_daddr,(int)xp->x_caddr, xp->x_size, B_WRITE); 

#else 

(void) swap(xp->x_daddr, 

(int)xp->x_scat, xp->x_size, B_WRITE); 

♦endif 

xmsave (xp); 
cxtxfree(xp); 

if {!prevlock) 

u.u_procp->p_flag & -SLOCK; 

xunlock(xp); 

} 

/* 

* free the swap image of all unused saved-text text segments 

* which are from device dev (used by umount system call). 

*/ 

xumount (dev) 
register dev_t dev; 

{ 

register struct inode *ip; 
register struct text *xp; 
register count = 0; 

for (xp “ &texttO]; xp < (struct text *)v.ve_text; xp++) { 
if ((ip = xp->x_iptr) == NULL) 
continue; 

if (dev i- NODEV && dev 1= ip->i_dev) 
continue; 
if (xuntext(xp)) 
count++; 

) 

return(count); 

/* 

* remove a shared text segment from the text table, if possible. 

*/ 

xrele(ip) 

register struct inode *ip; 

{ 

register struct text *xp; 

if ((ip->i_flag4ITEXT) — 0) 
return; 

for (xp - &text{0]; xp < (struct text *)v.ve_text; xp++) 
if (ip—xp->x_iptr) 

(void) xuntext(xp); 

} 

/* 

* remove text image from the text table. 

* the use count must be zero. 

*/ 

xuntext(xp) 

register struct text *xp; 


{ 


register struct inode *ip; 


xlock(xp); 
if (xp->x_coimt) { 

xunlock(xp); 
return(0); 

) 

ip = xp-->x_iptr; 
xrafree(ip); 
xp->x_flag S- -XLOCK; 
xp->x_iptr = NULL; 
cxtxfree(xp); 
if (xp->x_daddr) 

rafree (swapmap, ctod (xp->x__size), (int) xp->x_daddr) ; 
ip->i_flag 4- -ITEXT; 
if (ip->i_flag4ILOCK) 
ip->i_count—; 

else 

iput(ip) ; 
return(1); 


* allocate swap blocks, freeing and sleeping as necessary 


swapalloc(size, sflg) 

( 

register addr; 


for (;;) { 

if (addr == malloc(swapmap, size)) 
return(addr); 
if (swapcluO) { 

printf (”\n!SARNING: swap space ruiming out\n"); 
printfC* needed %d blocksXn", size) ; 
continue; 

) 

printf("XnDANGER: out of swap spaceXn"); 
printfC needed %d blocksSn**, size); 
if (sflg) { 

mapwant(swapmap)++; 

(void) sleep((caddr_t)swapmap, PSWP); 

} else 

return(0); 


* clean up swap used by text 


register struct text *xp; 
register ans » 0; 


for (xp “ text; xp < (struct text *)v.ve_text; xp++) { 

if (xp->x_iptr — NULL) 
continue; 

if (xp->x_flag4XLOCK) 
continue; 

if (xp->x_daddr — 0) 
continue; 

if (xp->x_count) { 

if (xp->x__ccount) ( 

mfree(swapmap, ctod{xp->x_size), 
(int)xp->x_daddr); 
xp->x_flag |» XMRIT; 
xp->x_daddr = 0; 
ans++; 


(void) xuntext(xp); 
ans++; 
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return(ans); 

/* 

* free the saved text area associated with an inode 


xmfree(ip) 

register struct inode *ip; 

{ 

register struct svtext *svx; 


for (svx - 
if 


#ifdef NONSCATLOAD 


felse 

#endif 


£svtext[03; svx < (struct svtext *)v.ve_3vtext; 3vx++) { 
(svx->x_svflag&XSVBUSY && ip->i_nuraber=svx->x_svnumber && 
ip->i_dev=svx->x_svdev) { 

svx->x_svflag &= -XSVBUSY; 

ittfree(coremap, svx->x_svsize, (mem_t)svx->x_svcaddr); 

itusmf ree ((mem_t) svx->x_svscat) ; 

break; 


/* 

* link up to a text region already in memory 
*/ 

xmlink(xp) 

register struct text *xp; 

{ 

register struct svtext *svx; 
register struct inode *ip; 


ip = xp->x_iptr; 

for (svx =* &svtext[0]; svx < (struct svtext *)v.ve_svtext; svx++) { 

if (svx->x_svflag&XSVBUSY £& ip->i_number=svx->x_svnumber && 
ip->i_dev-»-svx->x_svdev) { 

svx->x_svflag -XSVBUSY; 

iifdef NONSCATLOAD 

xp->x_caddr » svx“>x_svcaddr; 

#else 

xp->x_scat = svx->x_svscat; 

#endif 

#ifdef TEXTTRACE 

printf("linking to text caddr 0x%x\n", svx“>x_svcaddr); 

tendif 

return(1); 

} 

} 

return(0); 

) 


/* 

* Release a shared text segment in the text area space. 
*/ 

xmrelse () 

{ 

register struct svtext *svx, *tsvx; 
register n; 


n - ((unsigned) -1) » 1; 
tsvx “ NULL; 

for (svx “ 4svtext[03; svx < (struct svtext *)v.ve_svtext; svx++) { 
if (svx->x_svflag&XSVBUSY &£ svx->x_svsize<n) { 
n - svx->x_svsize; 
tsvx “ svx; 
continue; 

} 

) 

if (tsvx “ NULL) 
return(Q); 

♦ifdef TEXTTRACE 

printf("freeing %d segments at text caddr 0x%x\n", 
tsvx->x_svsize, tsvx->x_svcaddr); 


tendif 


iifdef NONSCATLOAD 

mfree(coremap, tsvx->x_svsize, (mem_t)tsvx->x_svcaddr); 

#else 

memfree((mem_t)tsvx->x_svscat); 

♦endif 

tsvx->x_svflag 4=* -XSVBUSY; 
return(1); 

} 

/* 

* Save the memory of a text region of a shared process 
*/ 

xmsave(xp) 

register struct text *xp; 

{ 

register struct svtext *svx, *tsvx; 
register struct inode *ip; 


tsvx * NULL; 
ip “ xp->x_iptr; 

for (svx = 4svtextt0J; svx < (struct svtext *)v.ve_svtext; svx++) { 
if ((svx->x_svflag4XSVBUSY) — 0) { 
if (tsvx —= NULL) 

tsvx - svx; 
continue; 

} 

if (ip->i_number==svx->x_svnumber 44 ip->i_dev“svx->x_svdev) { 
printf("xmrelse:memory saved more than once\n"); 
tsvx - NULL; 
break; 


* No space left in table 
*/ 

if (xp->X_flag4XERROR 11 tsvx — NULL) { 

NONSCATLOAD 

mf ree (coremap, xp->x__size, (mem_t)xp->x_caddr); 
mCTifree ((raem_t)xp->x__scat); 

} else { 

tsvx->x_svflag |= XSVBUSY; 
tsvx->x_svsize = xp->x_size; 

NONSCATLOAD 

tsvx->x_svcaddr - xp->x_caddr; 

t svx->x_svscat “ xp->x__scat; 

tsvx->x_svdev - ip->i_dev; 
tsvx->x_svnuraber ip->i_number; 


printf(“saving %d segments at text caddr 0x%x\n", 
tsvx->x_svsize, tsvx->x_svcaddr) ; 


} 


} 
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/* Me fine HOWFAR*/ 

/*♦define SYSCALLS */ 

/* e(i)trap.c 1.2 */ 

♦include "sys/parara.h" 

♦include "sys/types.h** 

♦include "sys/systm.h" 

♦include "sys/dir.h" 

♦include "sys/signal.h" 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/proc.h” 

♦include "sys/reg.h" 

♦include "sys/psl.h" 

♦include "sys/trap.h" 

♦ifdef mc68881 
♦include "sys/fptrap.h" 

♦endif mc68881 
♦include '•sys/seg.h*' 

♦include "sys/sysinfo.h" 

♦ifndef VIRTUAL451 
♦include “sys/buserr.h" 

♦endif 

♦define EBIT 1 /* user error bit in PS: C-bit */ 

♦define USER QxlOOO /* user-mode flag added to number */ 

♦define NSYSENT 128 

♦ifdef SYSCALLS 

static char reserved[] - "reserved”; 
char *callnames[] - { 


/* 

0 

*/ 

"indir". 

"exit", "fork", " 

read". 

/* 

4 

*/ 

"write". 

"open", "close". 

"wait". 

/* 

8 

*/ 

"creat". 

"link", "unlink". 

"exec". 

/* 

12 

*/ 

"chdir". 

"time", "mknod". 

"chmod". 

/* 

16 

*/ 

"chown". 

"break", "stat". 

"seek". 

/* 

20 

*/ 

"getpid" 

, "mount", "umount 

", "setuid". 

/* 

24 

*/ 

"getuid" 

, "stime", "ptrace 

", "alarm". 

/* 

28 

*/ 

"fstat". 

"pause", "utime". 

"stty". 

/* 

32 


"gtty". 

"access", "nice". 

"sleep". 

1* 

36 

*/ 

"sync". 

"kill", "csw", "setpgrp". 

/* 

40 

*/ 

"tell". 

"dup", "pipe", "times". 

/* 

44 

*/ 

"prof". 

"lock", "setgid". 

"getgid". 

/* 

48 

*/ 

"sig", " 

msgsys", reserved. 

"acct". 

/* 

52 

*! 

"slmsys" 

, "semsys", "ioctl 

", "phys". 

/* 

56 

*f 

"locking 

", "utssys", reserved, "exece", 

/* 

60 

*/ 

"umask". 

"chroot", "fcntl" 

, "ulimit". 


/* 64 */ "reboot”, reserved, reserved, reserved, 

♦ifdef UCB_NET 

!* 68 */ reserved, reserved, "select", "gethostname", 

/* 72 */ "sethostname”, "socket", "accept", "connect", 

/* 76 */ "receive", "send", "socketaddr", "netreset", 

♦else 

/* 68 */ reserved, reserved, reserved, reserved, 

/* 72 */ reserved, reserved, reserved, reserved, 

/* 76 */ reserved, reserved, reserved, reserved, 

♦endif 

/* 80 */ reserved, reserved, reserved, reserved, 

/* 84 */ reserved, reserved, reserved, reserved, 

I* 88 *! reserved, reserved, reserved, reserved, 

/* 92 */ reserved, reserved, reserved, reserved, 

/* 96 */ reserved, reserved, reserved, reserved, 

/* 100 */ reserved, reserved, reserved, reserved, 

/* 104 *! reserved, reserved, reserved, reserved, 

/* 108 */ reserved, reserved, reserved, reserved, 

/* 112 */ reserved, reserved, reserved, reserved, 

/* 116 */ reserved, reserved, reserved, reserved, 

/* 120 */ reserved, reserved, reserved, reserved, 

/* 124 */ reserved, reserved, reserved, reserved 

}; 

♦endif 

* Offsets of the user's rcigis.tars relative to 


* the saved rO. See reg.h 
*/ 

char regloc[8+8+l+l] * { 

RO, Rl, R2, R3, R4, R5, R6, R7, 

ARO, ARl, AR2, AR3, AR4, AR5, AR6, SP, PC, 
RPS 


/* 

* Called from the trap handler when a processor trap occurs. 

*/ 

trap(niniiber, regs) 
short number; 

register struct user *up; 
extern int parityno; 
register i; 
time_t syst; 
int retval; 
int *oldar0; 

♦ifdef mc68881 /* MC68881 floating-point coprocessor */ 

extern short fp881; /* is there an MC688S1? */ 

♦endif mc68881 


up •=- iu; 

retval = 0; 

syst = up->u_stime; 

♦ifdef FLOAT /* sky floating jK>int board */ 

up->u_fpsaved =0; 

♦endif 

oldarO = up->u_ar0; 
up->u_ar0 iregs; 
if (USERHODE(up->u_ar0[RPS])) 
number t = USER; 

♦ifdef HOWFAR 

if (number ]= RESCHED && number RESCHED+USER) { 

printf{"trap nxjmber“0x%x ps-'Qx%x\n", number, 
up->u_arQ[RPS]fiOxFFFF); 
showregs(1); 


* Handle parity specially to make it processor independent 
*/ 

if (number “parityno || number—(par it yno| USER)) { 
if ((i - parityerror()) — 0) { 

logparity((paddr_t)&up->u_ar0[PC]); 
goto out; 

) 

if (i > 0) { 

number - i ! (number & USER); 
goto sw; 

if (number & USER) { 

logparity((paddr_t)4up->u_ar0[PC]); 
i - SIGBUS; 

} else { 

if (nofault) { 

up->u_ar0 - oldarO; 
longjmp(nofault, -1); 


showbus(); 

panicC'kernel parity error"); 


switch (niamber) { 


* Trap not expected, 

* Usually a kernel mode bus error, 

*/ 

default: 

if ((number & USER) —0) { 

panicstr - "trap"; /* fake it for printfs */ 

ty|»s nmber ); 



trap.c 


Fri Sep 5 19:08:06 1986 


2 


showregs(1); 

panic("unexpected kernel trap"); 

} 

case CHK + USER; /* CHK instruction */ 

case TRAPV + USER: /* TRAPV instruction */ 

case PRIWIO + USER; /* Priviledge violation */ 

case LlOlO + USER; /* Line 1010 emulator */ 

case Lllll + USER: /* Line 1111 emulator */ 

case TRAP4 + USER: 

case TRAPS + USER: 

case TRAP6 + USER: 

case TRAP? + USER: 

case TRAPS + USER: 

case TRAPS + USER; 

case TRAPIO + USER: 

case TRAP11 + USER: 

case TRAP12 + USER; 

case TRAP13 + USER: 

case TRAP14 + USER: 

case TRAP15 + USER: 

case ILLINST + USER: /* illegal instruction */ 

i = SIGILL; 
break; 

case DIVZERO + USER: /* zero divide */ 

i = SIGFPE; 
break; 

#ifdef mc68881 /* MC68881 floating-point coprocessor */ 

case FPBSUN + USER: /* Branch or Set on Unordered Condition */ 

case FPINEX + USER: /* Inexact Result */ 

case FPDZ + USER: /* Floating Point Divide by Zero */ 

case FPUNFL + USER: /* Underflow */ 

case FPOPERR + USER: /* Operand Error */ 

case FPOVFL + USER: /* Overflow */ 

case FPSNAN + USER: /* Signalling NAN (Not-A-Number) */ 

up->u_fpexc “ number & OxFF; 
i - SIGFPE; 
break; 

iendif mc68881 

case TRCTRAP: /* trace out of kernel mode - */ 

up->u_ar0 -* oldarO; 

return(retval); /* this is happens when a trap instruction */ 
/* is executed with the trace bit set */ 

case TRCTRAP + USER; /* trace */ 

case TRAPl + USER: /* bpt - trap #1 */ 

i - SIGTRAP; 

up->u_ar0[RPS] &= ~PS_T; 
break; 

case TRAP2 + USER: /* iot - trap 42 */ 

i “ SIGIOT; 
break; 

case TRAP3 + USER; /* emt - trap #3 */ 

i - SIGEMT; 
break; 

case SYSCALL + USER: /* sys call - trap 40 */ 

panic("syscallVn"); 

/* 

* Allow process switch 
*/ 

case RESCHED + USER; 
case RESCHED: 

qswtch{); 
goto out; 

4ifdef VIRTUAL451 
/* 

* If the user SP is below the stack segment 

* and, within. SXACKGAP clicks of the bottom 


* of the stack segment, then grow the 

* stack automatically. 

*/ 

case ADDRERR + USER: /* bus error - address error */ 

i SIGBUS; 
retval - 1; 

trapaddr((struct buserr *)&regs); 
break; 

case BUSERR + USER; /* memory management error - bus error */ 
if(pagein((int)(((struct buserr *)iregs)->ber_faddr))) { 
up->u_ar0 = oldarO; 
return(0); 

} 

i - SIGSEGV; 
retval - 1; 

trapaddr((struct buserr *)&regs); 
break; 

case ADDRERR: /* bus error - address error */ 

trapaddr((struct buserr *)&regs); 
printf("kernel address errorXn"); 
showbus(); 

panic("kernel memory management error"); 

case BUSERR: /* memory management error - bus error in kernel */ 

if (nofault) { 

up->u_ar0 = oldarO; 
longjmp(nofault, -1); 

} 

trapaddr((struct buserr *)&regs); 
berdump((struct buserr *)4regs); 
printf("kernel bus errorXn"); 
showbus(); 

panic("kernel memory management error"); 

4else 

/* 

* If the user SP is below the stack segment, 

* grow the stack automatically. 

* This relies on the ability of the hardware 

* to restart a half executed instruction. 

* On the 68000 this is not the case and 

* the routine machdep/backup() will fail. 

*/ 

case ADDRERR + USER: /* bus error - address error */ 

i - SIGBUS; 
retval - 1; 

trapaddr((struct buserr *)sregs); 
break; 

case BUSERR + USER: /* memory management error - bus error */ 

if (i = backup(up->u_ar0)) 

if (grow((unsigned){up->u_ar0[SP]+i))) 
goto out; 
i - SIGSEGV; 
retval = 1; 

trapaddr((struct buserr *)iregs); 
break; 

case ADDRERR; /* kernel address error */ 

case BUSERR; /* kernel bus error */ 

if (nofault) 

longjmp(nofault, -1); 
trapaddr((struct buserr *)&regs); 
showbus(); 

panic("kernel memory management error\n"); 

fendif 

/* 

* Unused trap vectors generate this trap type. 

* Reciept of this trap is a 

* symptom of hardware problems and may 

* represent a real interrupt that got 
seat to the MXicuig place.. Batch out 
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* for hangs on disk completion if this message appears. 
*/ 

case SPURINT: 
case SPURINT + USER: 

printf("\nRandom interrupt ignoredXn"); 
up->u__ar0 - oldarO; 
return(retval); 

} 

} /* end else ... */ 

psignal(up->u_procp, i); 


out: 

if (up->u_procp~>p_sig && issigO) 

psigO; 

if (up->u_prof.pr_scale) 

addupc((unsigned)up->u_ar0[PC], &up->u_prof, (int)(up->u_stime-syst)); 
iifdef FLOAT /* sky floating point board */ 

if (up->u_fpinuse && up“>u_fpsaved) 
restfpO ; 

fendif 

fifdef mc68881 /* MC68881 floating-point coprocessor */ 

if (fp881) 

fprest(); 

#endif mc68881 

up->u_arO = oldarO; 
return(retval); 

} 

/* 

* process a system call 
*/ 

syscall(regs) 

{ 

register struct proc *pp; 
register struct user *up; 
register *regp, *argp; 
register i; 
int *oldarO; 

#ifdef mc68881 /* MC68881 floating-point coprocessor */ 

extern short fp881; /* is there an MC68881? */ 

#endif mc68881 

up = &u; 

sysinfo.syscall++; 
up->u_error = 0; 

#ifdef FLOAT /* sky floating point board */ 

up->u_fpsaved = 0; 

#endif 

oldarO “ up->u_ar0; 
up->u_ar0 = regp « iregs; 
up->u_ap -= argp =- up->u_arg; 

1 = regp[R0] & 0377; 
if (i >- NSYSENT) 
i “ 0; 

argp[0] - regp[AR0]; 
argptl] - regp[Rl]; 
argp[2] « regp(ARl]; 
argp[3] = regptR2]; 
argp[4] - regp[AR2]; 
argp[5] - regp[R3]; 

#ifdef SYSCALLS 

printf ('•***** %s: %x %x %x %x\n", callnames [i], 

argp[0], argptl], argpt2], argp[3], argp[4], argptS]); 

♦endif 

up->u_dirp - (caddr_t)argptO]; 
up->u_rvall - 0; 
up->u_rval2 - regp[Rl]; 
if (qsave(up->u_qsav)) { 

/* 

* restore registers not saved by qsave 
*/ 

up - 4u; 
regp - Sregs; 
argp - up->u_arg; 
if, 


up->u_error = EINTR; 

} else { 

(*(sysent[i].sy_call))(); 

} 

if (up->u_error) { 

regptRO] - up->u_error; 

regptRPS] !- PS_C; /* carry bit */ 

if (+4-up->u_errcnt >16) { 
up->u_errcnt - 0; 
runrun++; 

) 

#ifdef SYSCALLS 

printfC syscall error = %d, pc - 0x%x\n", 

up->u__error, regp[PC]); 

tendif 


} else { 
#ifdef SYSCALLS 


fendif 


printf(“ syscall success, pc = 0x%x\n", 

regp [PC]) ; 


regptRPS] 4“ -PS_C; /* carry bit */ 

regptRO] = up->u_rvall; 
regptRl] = up->u_rval2; 

) 

pp “ up->u_j)rocp; 

/* 

* Test if the trap instruction was executed with the 

* trace bit set (the trace trap was already ignored) 

* and set the trace signal to avoid missing the trace 

* on the trap instruction. 

*/ 


pp->p_pri “ (pp->p_cpu»l) 4- (PUSER - N2ERO) + pp->p_nice; 
curpri * pp~>p_pri; 
if (pp->p_sig && issigO) 
psig(); 

up->u_ar0 “ oldarO; 
if (runrun) 

qswtch(); 

#ifdef FLOAT /* sky floating point board */ 

if (up->u_fpinuse && up->u_fpsaved) 
restfpO ; 

#endif 

#ifdef mc68881 /* MC688S1 floating-point coprocessor */ 

if (fp881) 

fprest(); 

#endif mc68881 


} 


/* 

* nonexistent system call— signal bad system call. 
*/ 

nosysO 

psignal(u.u_procp, SIGSYS); 

} 


/* 

* Ignored system call 
*/ 


nullsys() 
} 


stray(addr) 
physadr addr; 

{ 

logstray(addr); 

printf("stray interrupt at %x\n", addr); 


/* 

* trapaddr - Save the info from a 68010 bus or address error. 
*/ 

trapaddr(ap) 

register struct buserr *ap; 
i 
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extern int cputype; 

if (cputype =»* 0) 
return; 

u.u_fcode - ap->ber_sstat; 
u.u_aaddr “ ap->ber__faddr; 
u.u_ireg =- ap->ber_iib; 

1 

/* 

* showbus - print out status on inmgt error 
*/ 

showbus {) 

{ 

register struct user *up; 
up =■ Au; 

printf(“vaddr = 0x%x paddr = 0x%x ireg - 0x%x fcode - Ox%x\n", 

up->u_aaddr, vtop((caddr_t)up“>u_aaddr), up*>u_ireg40xFFFF, 
up->u_fcode40xF); 
showregs{1); 

} 

/* 

* Show a processes registers 
*/ 

showregs (lorauflg) 
int mrauflg; 

{ 

register struct user *up; 
register int i, j; 
char coinniand[DIRSIZ+l]; 

up - *u; 
iifdef HOWFAR 

if (mrauflg) 

dumpoira(-’l) ; 

#endif HOWFAR 
Oifdef lint 

dumpinm (mrauflg) ; 
iendif lint 

for (i=Q; i<DIRSIZ; i++) { 
j “ up->u_comm[i]; 
if (j<-' ' I I j>-0x7F) 
break; 

command[i] - j; 

) 

coimnandEi] •= 0; 

/* 

* separate prints in case up or u_j)rocp trashed 
*/ 

printfCpc “ 0x%x sr - 0x%x up->u_j>rocp - 0x%x", 

up->u_arO [PC], up~>u_arO [RPS] fiOxFFFF, up->u_j)rocp); 
printfC pid = %d exec « '%s'\n", up->u_j)rocp->p_pid, command); 
for (i - 0; i < 16; i++) { 

printf(”0x%x ", up->u_ar0[i]); 
if (i -= 7 II i 15) printf C'Xn"); 

) 

) 

#ifdef DUMPSTK 
♦include <sys/var,h> 

♦ifndef VIRTUAL451 
♦include <sys/ramu.h> 

♦endif 

♦include <sys/sysraacros.h> 

/* 

* dump the present contents of the stack 

dumpstack(ret) 

{ 

register unsigned short *ip; 

ip - (unsigned short *)4ret; 

ip — 4; 

print f("VnAx ", ipi; 


while (ip < (unsigned short *)((int)&u+ctob(v.v_usize))) { 
if (((int)ip £ 31) =“ 0) 

printf(«\n%x ip); 
printf(" %x", *ip++); 

} 

printf(“\n“); 
if (ret 1“ 0) 

panic(“**** ABORTING ****«); 

} 

/* 

* dump the present contents of the user stack 
*/ 

dumpustack(max) 
unsigned max; 

{ 

register unsigned short *ip, *jp; 
register unsigned i, n; 

ip * (unsigned short *)(u.u_ar0[SP] - 20); 
jp = ip + 64; 

if (jp < (unsigned short *)max) 

jp = (unsigned short *)max; 
if (jp > (unsigned short *)v.v_uend) 

jp ” (unsigned short *)v.v_uend; 
printf (•'\n%x ", ip) ; 

while (ip < jp) { 

i = (fuword(ip++) » 16) & OxFFFF; 
if (((int)ip & 31) = 0) 

printf("\n%x ", ip); 

printf(" %x", i); 

) 

printf("\n"); 

} 

♦endif 
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/* e(*)tto.c 1.4 */ 

/* 

* Line discipline 0 

* Includes Terminal Handling 
*/ 

♦include "sys/param.h" 

♦include "sys/types.h" 

♦include "sys/systm.h" 

♦include “sys/conf .h*' 

♦include "sys/dir.h" 

♦include ”sys/signal.h” 

♦include ”sys/user.h“ 

♦include "sys/errno.h" 

♦include "sys/proc-h" 

♦include "sys/file.h" 

♦include "sys/tty.h'* 

♦include "sys/tennio.h** 

♦include "sys/crtctl.h" 

♦include "sys/sysinfo.h" 

♦include "sys/var-h" 

extern char partab[]; 

char colsave, rowsave; /* temp save for high queue restore */ 

struct clist tempq; /* temp for echo during high queue *f 

/* 

* routine called on first teletype open. 

* establishes a process group for distribution 

* of quits and interrupts from the tty. 

*/ 

ttopen(tp) 

register struct tty *tp; 

{ 

register struct proc *pp; 

pp = u.ujprocp; 
if <(pp->p_pid pp->p_pgrp) 

&& (u.u_ttyp — NULL) 

&& (tp“>t_j>grp == 0)) { 

u.u_ttyp - &tp->t_pgrp; 
tp->t_pgrp = pp->p_j>grp; 

} 

ttioctKtp, LDOPEN, 0, 0); 
tp->t_state -PJOPEN; 
tp->t_state I- ISOPEN; 

} 

ttclose(tp) 

register struct tty *tp; 

{ 

if ((tp->t_state&ISOPEN) =— 0) 
return; 

tp->t_state 4= -ISOPEN; 
tp->t_pgrp ■= 0; 
ttioctKtp, LDCLOSE, 0, 0); 

} 

/* 

* Called from device's read routine after it has 

* calculated the tty-structure given as argument. 

*/ 

ttread(tp) 

register struct tty *tp; 

register struct user *up; 
register struct clist *tq; 

up - 4u; 

tq - 4tp->t_canq; 
if (tq->c_cc — 0) 
canon(tp); 

while (up->u_count 1“0 && up->u_error“-"C) { 
if <up->u_count >- CLSIZE) { 
register n; 


register struct cblock *cp; 


} 


if ((cp - getcb(tq)) NULL) 
break; 

n * min(up->u_count, 

(unsigned){cp->c_last - cp->c_first)); 
if (copyout((caddr_t)&cp->c_data[cp->c_first], 
(caddr_t)up->u_base, n)) 
up->u_error =- EFAULT; 
putcf((struct cblock *)cp); 
up->u_base += n; 
up->u_count -= n; 

} else { 

register c; 



/* 

* Called from device's write routine after it has 

* calculated the tty-structure given as argument. 
*/ 

ttwrite(tp) 

register struct tty *tp; 

{ 

register struct user *up; 
int hqflag; 
int col, row; 


qwait: 


up - &u; 
splttyO ; 

while(tp->t_tmflag & QLOCKB) { 
tp->t_state |» OASLP; 

(void) sleep((caddr_t)&tp->t_outq, TTOPRI); 

} 

SPLO(); 

if (I(tp->t_state&CARR_ON)) 
return; 
hqflag « 0; 
while (up->u_count) { 

if (tp->t_outq.c_cc > tthiwat[tp->t_cflag4CBAUD]) { 

if (hqflag) { 

col - tp->t_col; 
row =■ tp->t_row; 
hqrelse(tp); 

) 

spltty(); 

(*tp->t_proc)(tp, T_OUTPUT); 

while (tp->t_outq.c_cc > tthiwatItp->t_cflag4CBAUD]) { 
tp->t_state I- OASLP; 
if (sleep((caddr_t)4tp->t_outq, 

hqflag ? PZERO : (TTOPRI1PCATCH))) { 

SPLOO; 

goto out; 

} 

} 

SPLO (); 

if (hqflag) { 

tp->t_traflag I- QLOCKI; 
colsave - tp->t_col; 
rowsave - tp->t__row; 
ttyctKLCA, tp, col, row) ; 
continue; 

) 
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if (tp->t__tmflag & QLOCKB) 
goto qwait; 

} 

if (up->u_comit >= (CLSIZE/2) && tp“>t_term -“0) { 
register n; 

register struct cblock *cp; 

if ((cp « getcfO) NULL) 
break; 

n * min{up->u_count, (unsigned) cp->c__last); 
if (copyin( (caddr__t)up->u_base, (caddr_t) cp->c_data, 
n)) { 

up->u_error = EFAULT; 
putcf({struct cblock *)cp); 
break; 

} 

up-->u_base += n; 
up->u_count — n; 
cp->c_last = n; 
ttxput(tp, cp, n); 

} else { 

register c; 

c =* fubyte(up->u_base++) ; 
if (c<0) { 

up“>u_error = EFAULT; 
break; 

} 

up-*>u_comt—; 

if (c =>= ESC && tp->t_term) { 
switch (c = cpassO) { 
int col; 

case -1; 

continued- 
case ESC: 

goto norm; 
case HIQ; 

if (hqflag++) 

continue; 

tp->t_tmflag |“ QLOCKBjQLOCKI; 
tp->t_hqcnt++; 
col save == tp->t_col; 
rowsave = tp->t_row; 
continued- 
case LCA: 
case SVID: 
case DVID; 
case CVID; 

col - cpassO; 

default: 

ttyctKc, tp, col, c==LCA ? cpassO : 0) ; 

} 


ttxput(tp, c, 0); 


if (hqflag) { 

hqrelse(tp) ; 

(void) putc(QESC, 4tp->t_outq); 

(void) putc(HQEND, Stp->t_outq); 
spltty(); 

if (tp->t_state & QASLP) { 

tp->t_state fi- -OASLP; 
wakeup((caddr_t)*tp->t_outq); 


tp->t_tmflag ~(QLOCKBIQLOCKI) ; 

spltty(); 

{*tp->t_proc)(tp, T OUTPUT); 

SPLO <) ; 


/* 

* Place a character on raw TTY input queue, putting in delimiters 

* and waking up top half as needed. 

* Also echo if required. 

*/ 

♦define LCLESC 0400 
ttin(tp) 

register struct tty *tp; 

{ 

register c; 
register fig; 
register char *cp; 
ushort nchar, nc; 

nchar =■ tp->t_rbuf .c_size - tp->t_rbuf .c_count; 

/* reinit rx control block */ 
tp->t_rbuf.c_count = tp->t_rbuf.c_size; 
if (nchar”0) 

return; 

fig “ tp->t_iflag; 

/* KMC does all but IXOFF */ 
if (tp->t_state&EXTPROC) 
fig &= IXOFF; 
nc - nchar; 

cp - tp->t_rbuf .c_jptr; 

if (nc < cfreelist.c_size 11 (fig & (INLCRIIGNCRIICRNLIlUCLC)) 

1 I tp->t_terra) { 

/* must do per character processing */ 
for ( ;nc—; cp++) { 
c = *cp; 

if (tp->t_term) { 
c 0177; 

if ((c “ (*termsw[tp->t_term].t_input) (c,tp)) 

-1) 

continue; 
if (c & CPRES) { 

(void) putc(ESC, &tp->t_rawq); 

(void) putc(c, ttp->t_rawq); 
continue; 

} 

} 

if (c == '\n' 4& flgsiNLCR) 

*cp ■= c =* '\r' ; 
else if (c “= '\r') 

if (flg&lGNCR) 

continue; 

else if (flgilCRNL) 

*cp - c = '\n'; 

if (flg&IUCLC 4S 'A' <- C 44 C <= 'Z') 

C +- 'a' - 'A'; 
if (putc(c, 4 tp->t_rawq)) 
continue; 
sysinfo.rawch++; 

} 

cp = tp->t_rbuf .c_j)tr; 

} else { 

/* may do block processing */ 

putcb(CMATCH((struct cblock *)cp), 4tp->t_rawq); 
sysinfo.rawch +- nc; 

/* allocate new rx buffer */ 

if ({tp-->t_rbuf .c_ptr = getcf {)->c_data) 

— ((struct cblock *)NULL)->c_data) ( 

tp->t_rbuf.c_ptr - NULL; 

retum; 

} 

tp->t_rbuf.c_co\ant - cfreelist.c__size; 
tp->t_rbuf.c_size - cfreelist.c_size; 

} 


if (tp->t_rawq,c_cc > TTXOHI) ( 

if (flg4IXOFF 44 !(tp->t_state4TBLOCK)) 
(*tp->t_proc)(tp, TBLOCK); 
if (tp->t._^raM(i*&_cc > TTXttQG* I 
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ttyflushdp, FREAD); 
return; 

} 

fig - lobyte(tp->t_lflag); 

if (tp“>t_outq.c_cc > (tthiwat[tp->t_cflag4CBAUD] + TTECHI)) 
fig 4- ~(ECHO|ECflOKIECHONL|ECHOE); 

if (fig) while (nchar—) { 
c “ *cp++; 
if (flgilSIG) { 

if (c — tp->t_cc[VINTR]) { 

signal(tp->t_pgrp, 5IGINT); 
if (I(flg&NOFLSH) £& tp->t_hqcnt“-0) 
ttyflush(tp, (FREADIFWRITE)); 
continue; 

} 

if (c »»= tp->t_cctVQUIT]) { 

signal (tp“>t__pgrp, SIGQUIT); 
if (i (flgSNOFLSH) && tp->t_hqcnt—0) 
ttyflush(tp, (FREADIFWRITE)); 
continue; 

} 


if (flgilCANON) { 

if (tp->t_state&CLESC) { 
fig 1= LCLESC; 
tp->t_state &*= ~CLESC; 

} 


if (c = '\nM { 

if (flg&ECHONL) 

fig I- ECHO; 
tp->t__delct++; 

} else if (c = '\\') { 

tp->t_state !- CLESC; 
if (flg&XCASE) { 

c 1= QESC; 
if (flgiLCLESC) 

tp-'>t_state 4= -CLESC; 

} 

} else if (c == tp->t_cc [VEOL] | | c =- tp->t_cc [VEOL2]) 
tp->t_delet++; 
else if ('(flg4LCLESC)) { 

if (C ” tp->t_cc[VERASE] 4 4 flg4ECHOE) { 
if (flg4ECHO) 

ttxputi(tp, '\fa'); 
fig I- ECHO; 
ttxputi(tp, ' '); 
c = '\b'; 

} else if (c — tp->t_cc{VKILL] 44 flg4ECHOK) { 
if (flg4ECHO) 

ttxputi(tp, c); 
fig I- ECHO; 
c “ '\n'; 

} else if (c == tp->t_cc[VEOF]) { 
fig 4= -ECHO; 
tp->t_delct++; 

} 

) 

} 

if (flg4ECHO} { 

ttxputi(tp, c); 

(*tp->t_Jproc) (tp, T_OUTPUT); 


} 

if (i(flg4ICANON)) ( 

tp->t_state 4- -RTO; 
if (tp->t_rawq.c_cc >” tp->t_cc[VMIN]) 
tp->t_delct - 1; 
else if (tp->t_cciVTIHE3) { 

if (!(tp->t_state4TACT)) 
tttimeo(tp); 


) 


if {tp->t_delct 44 (tp->t_state4IASLP)) { 

tp->t_state 4-lASLPf 

waJeeup (icaxid3:_t) ittpr->t_raMq)i; 


} 


} 


/* 

* Interrupt interface to ttxput. 

* Checks for High Queue write in progress, 
*/ 

ttxputi(tp, c) 
register struct tty *tp; 

{ 

if (tp-->t_tmflag 4 QLOCKI) { 

(void) putc (c, 4teirLpq); 
return; 

} else 

ttxput(tp, c, 0); 


} 


and saves characters to be echoed. 


/* 

* Put character(s) on TTY output queue, adding delays, 

* expanding tabs, and handling the CR/NL bit. 

* It is called both from the base level for output, and from 

* interrupt level for echoing. 

*/ 

/* VARARGSl */ 
ttxput(tp, ucp, ncode) 
register struct tty *tp; 
union { 

struct ch { /* machine dependent union */ 

char dum[33; 
unsigned char theaddr; 

} ch; 

int thechar; 
struct cblock *ptr; 

} ucp; 

{ 

register c; 
register fig; 

register unsigned char *cp; 
register char *colp; 
int ctype; 
int cs; 

struct cblock *scf; 


/* KMC does all but XCASE, virt term needs CR info for t_col */ 
if (tp->t_state4EXTPROC) { 

if (tp->t_term || tp->t_lflag4XCASE) 

fig * tp->t_Oflag4(0P0ST|0LCUC10NLRET|0NLCR); 

else 

fig = 0; 

} else 

fig =■ tp->t_oflag; 
if (ncode “0) { 
ncode++; 

if (!(flg40POST)) { 

sysinfo.outch++; 

(void) putc(ucp.thechar, 4tp->t_outq); 
return; 

} 

cp - (unsigned char *)4ucp.ch.theaddr; 
scf “ MULL; 

) else ( 

if (1(flg40POST)) { 

sysinfo.outch +- ncode; 
putcb(ucp.ptr, 4tp->t_outq); 
return; 


cp = (unsigned char *) 4 ucp.ptr->c_data[ucp.ptr->c_first]; 
scf * ucp.ptr; 


while (ncode—) { 
c “ *cp++; 
if (c >” 0200) { 

/* splS-O */ 

if (c — QESC 44 i(tp->t_state4EXTPROC)) 
(void) putc(QESC, 4tp->t_outq); 
sy aiiafo ; 
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top: 


(void) putc(c, 4tp->t_outq); 
continue; 

) 

/* 

* Generate escapes for upper-case-only terminals. 

*/ 

if (tp->t_lflag&XCASE) { 
colp - ••({))! 
while(*colp++) 

if (c =— *colp++) { 

ttxput(tp, '\\'10200, 0); 
c * colp l- 2In¬ 
break ; 

) 

if ('A' <= c &fi c <= 'Z') 

ttxput(tp, '\\'10200, 0); 

} 

if (flgiOLCUC && 'a' <- c c 'z') 
c += 'A' - 'a'; 

cs = c; 

/* 

* Calculate delays. 

* The numbers here represent clock ticks 

* and are not necessarily optimal for all terminals. 

* The delays are indicated by characters above 0200. 

*/ 

ctype = partab[c]; 
colp == &tp->t_col; 
c = 0; 

switch (ctype&077) { 

case 0: /* ordinary */ 

(*colp)++; 

case 1: f* non-printing */ 
break; 

case 2: /* backspace */ 
if (flg&BSDLY) 
c = 2; 
if (*colp) 

(*colp)—; 

break; 

case 3: /* line feed */ 

if (tp->t_term) { 

if (tp->t_vrow £& tp->t_row >« tp->t_lrow) { 
ttyctl(UVSCN, tp); 
continue; 

} 

if (tp->t_tmflag & SNL) ( 
ttyctl(NL, tp); 
continue; 

) 

1 

if (flgSONLRET) 
goto cr; 

if (tp->t_row < tp->t_lrow) 
tp->t_row++; 
if (flg&ONLCR) ( 

if ((!(tp->t_state&EXTPROC)) && 

1(flg&ONOCR && *colp-=0)) ( 
sysinfo.outch++; 

(void) putc('\r', ttp->t_outq); 

) 

goto cr; 

} 

nl; 

if (flgiNLDLY) 

C - 5; 

break; 

case 4i /* tab */ 

c - 8 - ((*colp)s07); 

*CQlp +?«• ,c; 


if (I(tp->t_state4EXTPROC)) { 
ctype - flgiTABDLY; 
if (ctype ““ TABO) { 
c - 0; 

) else if (ctype — TABl) { 
if (c < 5) 

c - 0; 

} else if (ctype =«= TAB2) { 
c = 2; 

} else if (ctype = TAB3) { 
sysinfo.outch +- c; 
do 

(void) putc(' &tp->t_outq); 
while (—c); 
continue; 

} 

} 

break; 

case 5: /* vertical tab */ 
if (flgSVTDLY) 

c - 0177; 

break; 


case 


/* carriage return */ 
if (flgiOCRNL) { 

cs - '\n'; 
goto nl; 

} 

if (flg&ONOCR && *colp —■ 0) 
continue; 

if (I(tp->t_state&EXTPROC)) { 
ctype * flg&CRDLY; 
if (ctype == CRl) { 
if (*colp) 

c - max((unsigned) ((*colp»4)+3), 6); 
} else if (ctype — CR2) { 
c - 5; 

} else if (ctype == CR3) { 
c = 9; 

} 

} 

*colp - 0; 
break; 


case 7: /* form feed */ 
if (flg&FFDLY) 

c - 0177; 

break; 

} 

sysinfo.outch++; 

if (tp->t_term && *colp >- 80 && tp->t_row >= tp->t_lrow 
&& tp->t_tmflag & LCF) { 
ttyctl(VHQHE, tp); 
ttyctl (DL, tp) ; 

ttyctl(LCA, tp, 79, tp->t_lrow-l); 

(*COlp)4-+; 

} 

if (tp->t__term“0) 

(void) putc(cs, &tp->t_outq); 

else 

qputc(cs, &tp->t_outq); 
if (I(tp->t_state&EXTPROC)) { 
if (c) { 

if ((c < 32) && flg&OFILL) { 
if (flg&OFDEL) 

cs - 0177; 

else 

cs - 0; 

(void) putc(cs, &tp->t_outq); 
if (c > 3) 

(void) putc(cs, itp->t_outq); 


} else { 


(void) putc(QESC, ttp->t_outq); 
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} 


} 

} 

} 

if (*colp >- 80 && tp->t_term && tp->t_tmflag4ANL) 
if <tp->t_tmflag&LCF) 

ttyctKLCA, tp, 0, tp->t__rowTl) ; 

else { 

if ((flgiONLCR) — 0) 

ttxputi(tp,'\r'); 
cs « '\n'; 
goto top; 

} 

} 

if (scf 1- NULL) 

putcf(scf); 


/* 

* Get next packet from output queue. 

* Called from xmit interrupt complete. 
*/ 


ttout(tp) 

register struct tty *tp; 

{ 

register struct ccblock *tbuf; 
register c; 
register char *cptr; 
register retval; 


extern ttrstrt(); 


delay: 


if (tp->t_state4TTIOW && tp->t_outq.c_cc=“0) { 
tp->t_state 4- -TTIOW; 
wakeup((caddr_t)&tp->t_oflag); 


tbuf = &tp->t_tbuf; 
if (hibyte(tp->t_lflag)) { 
if (tbuf->c_j)tr) { 

putcf (CMATCH ( (struct cblock *) tbuf->c_j)tr)); 
tbuf->c_ptr = NULL; 

} 

tp->t_state I- TIMEOUT; 
timeout(ttrstrt, (caddr_t)tp, 

(int)((hibyte(tp->t_lflag)40177)+6)); 
hibyte(tp“>t_lflag) = 0; 
return(0); 


retval = 0; 

if (((tp->t_state4EXTPROC) II (i(tp->t_Oflag40POST))) 44 
tp->t_term”0) { 
if (tbuf->c_ptr) 

putcf (CMATCH ((struct cblock *) tbuf->c__ptr)) ; 
if ((tbuf->c_j)tr = (char *) getcb (4tp->t_outq)) == NULL) 
return(0); 

tbuf“>c_count = ((struct cblock *)tbuf->c_ptr)->c_last - 
((struct cblock *)tbuf->c_j>tr)->c_first; 
tbuf->c_si 2 e * tbuf->c_count; 

tbuf->c_ptr - 4((struct cblock *)tbuf->c_ptr)->c_data 

[((struct cblock *) tbuf“>c_j)tr)->c_first]; 

retval - CPRES; 

} else { /* watch for timing */ 

if (tbuf->c_j)tr — NULL) { 

if ((tbuf->cjptr - getcf0->c_data) 

“ ((struct cblock *)NULL)->c_data) { 

tbuf->c_ptr - NULL; 

return(O); /* Add restart? */ 

) 

} 

tbuf->c_count - 0; 
cptr - tbuf->c_ptr; 

while ((c-^etc(4tp->t_outq)) >- 0) { 
if (c — QESC) { 

if ((c - getc(4tp->t_outq)) < 0) 
break,; 


} 



if (tp->t__State40ASLP 44 

tp->t_outq.c_cc<=-ttlowat [tp->t_cflag4CBAUD]) { 
tp->t_state 4- ~OASLP; 
wakeup((caddr_t)4tp->t_outq); 

> 

return(retval); 


tttimeo(tp) 

register struct tty *tp; 

{ 

tp->t_state 4= -TACT; 

if (tp->t_lflag4lCANON I I tp->t_cc[VTIHE3 — 0) 
return; 

if (tp->t_rawq.c_cc -=■ o 44 tp->t_cc[VHIN]) 
return; 

if (tp->t_state4RTO) { 

tp->t_delct “ 1; 
if (tp->t_state4IASLP) { 

tp->t_state 4= -lASLP; 
wakeup((caddr_t)4tp->t_rawq); 

} 

) else { 

tp->t_state 1= RTOITACT; 
timeout(tttimeo, (caddr_t)tp, 

(int)(tp->t_cc[VTIME]*(short)((short) v.v_hz/10))); 

} 

} 


/* 

* I/O control interface 
*/ 

/* ARGSUSED */ 
ttioctl(tp, cmd, arg, mode) 
register struct tty *tp; 


ushort chg; 

struct termcb termblk; 

register struct termcb *tbp; 


switch(cmd) { 
case LDOPEN: 

if (tp->t_rbuf.c_ptr «« NULL) { 

/* allocate RX buffer */ 

while ((tp->t__rbuf. c_ptr - getcf ()->c_data) 

— ((struct cblock *)NULL)->c_data) { 
tp->t__rbuf .c_ptr - NULL; 
cfreeli3t.c_flag - 1; 

(void) sleep((caddr_t)4cfreelist, TTOPRI); 
J 

tp->t_rbuf. c_count ■* cfreelist. c_size; 
tp->t_rbuf. c__size » cfreelist. c_size; 
(*tp->t_proc)(tp, T_INPUT); 


luraak; 
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case LDCliOSE: 

spltty(); 

(*tp->t_proc)(tp, T_RESUME); 

SPLOO ; 
ttywait(tpi; 

ttyflush(tp, (FREADIFWRITE)); 
if (tp->t_tbuf.c_j?tr) { 

putcf (CMATCH ((Struct cblock *) tp->t_tbuf. c_j 3 tr)) ; 
tp->t_tbuf.c_ptr ” NULL; 
tp->t_tbuf.c_count =0; 
tp->t_tbuf.c_si 2 e = G; 

if (tp->t_rbuf.c_ptr) { 

putcf (CMATCH ((struct cblock *) tp->>t_rbuf. c_ptr)) ; 
tp->t_rbuf .c_j>tr NULL; 

tp->t_rbuf .c_count =• 0; 
tp->t_rbuf .c_size -= 0; 

} 

tp->t_tittflag ”0; 
break; 

case LDCHG: 

chg ” tp->t_lflag^arg; 
if (I(chg&ICANON)) 
break; 
spltty{); 

if (tp->t_canq.c_cc) { 

if (tp->t_rawq.c_cc) { 

tp->t_canq.c_cc += tp->t_rawq.c_cc; 
tp->t_canq.c_cl->c_next = tp“>t_rawq.c_cf; 
tp->t_canq. c_cl = tp->t__raHq.c_cl; 

} 

tp“>t_rawq = tp->t_canq; 
tp->t_canq =■ ttnulq; 

} 

tp->t_delct “ tp->t_rawq.c_cc; 

SPLO(); 
break; 

case LDGETTj 

tbp - itennblk; 
tbp->st_flgs •= tp->t_tiaflag; 
tbp->st_termt = tp->t_temi; 
tbp-'>st_crow = tp->t_row; 
tbp->st_ccol = tp->t_col; 
tbp->st_vrow = tp->t_vrow; 
tbp->st_lrow - tp->t_lrow; 

if (copyout((caddr_t)tbp, (caddr_t)arg, sizeof(terrablk))) 
u.u_error = EFAULT; 

break; 

case LDSETT: 

tbp “ Atermblk; 

if (copyin((caddr_t)arg, {caddr_t)tbp, sizeof(termblk))) { 
u.u_error - EFAULT; 
break; 

} 

if ((unsigned) tbp->st_ternit >- termcnt) { 
u.u_error - ENXIO; 
break; 

} 

if (tbp->st_termt) { 

(*termsw[tbp->st_terrat].t_ioctl) 

<tp, 

tp->t_term“-tbp->st_tennt ? LDCHG : LDOPEN, 
tbp->st_vrow) ; 
if {u.u_error) 
break; 

tp“>t_vrow * tbp->st_vrow; 
tp->t_tena -= tbp->st_termt; 
if (tbp->st_flgsfiTM_SET) 

tp->t_tmflag - tbp->st_flgs £ ~TM_SET; 

) else { 

tp->t_teria « 0; 

} 


default: 


tp->t_state “CLESC; 
break; 


/************** additions for TERMINAL HANDLERS **********************/ 
i* 

* release the high priority queue for interrupts. 

* copy over any received characters while queue was locked. 

*/ 

hqrelse(tp) 

register struct tty *tp; 

{ 

register c; 

ttyctl(LCA, tp, colsave, rowsave); 
spltty(); 

while((c - getc(&tenipq)) >= Q) 
ttxput(tp, c, 0); 
tp->t_tmflag -QLOCKI; 

SPLO(); 

} 


/* 

* put a character on the output queue, 

* checking first to see if it is a ESC. 

*1 

qputc(c, qp) 
register c; 
struct clist *qp; 

{ 

if (C — ESC) 

(void) putc(c, qp); 

(void) putc(c, qp); 

) 

#ifdef notdef 

/* simulate Up Variable SCreeN as common routine */ 
ttuvscn(tp) 

register struct tty *tp; 

{ 

ttyctl(VHOME, tp); 
ttyctKDL, tp); 

ttyctl(LCA, tp, 0, tp->t_lrow); 

} 

/* simulate Down Variable SCreeN as common routine */ 
ttdvscn(tp) 

register struct tty *tp; 

{ 

ttyctl(VHOME, tp); 
ttyctl (IL, tp) ; 

) 

tendif 

char colpres, rowpres; 

/* VARARGS */ 

ttyctl(ac, tp, acol, arow) 

register struct tty *tp; 

( 

register char *colp; 
register c; 
int sps; 

c - ac; 

colp - 4tp->t_col; 
sps - spltty 0; 

colpres “ *colp; 
rowpres - tp->t_row; 
aiw4t«ti4o) 4 
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case CUP: 
case DSCRL: 

if (tp->t_row 0) 
goto out; 
tp->t_row—; 
break; 
case CDN: 
case USCRL: 

if (tp->t_row >= tp~>t_lrow) 
goto out; 
tp->t_row++; 
break; 
case UVSCN: 

*colp «= 0; 

tp“>t_row = tp->t_lrow; 
break; 
case DVSCN: 

*colp “ 0; 

tp->t_row = tp->t_vrow; 
break; 
case CRI: 
case STB: 
case SPB: 

if (*colp >-= 79) 
goto out; 

(*colp)+-f; 
break; 
case CLE: 

if (*colp “= 0) 

goto out; 

<*Colp)—; 
break; 
case HOME: 
case CS: 
case CM: 

tp->t_row = 0; 

case DL: 
case IL: 

*colp “ 0; 
break; 
case VHOME: 

*colp - 0; 

tp~>t_row = tp->t_vrow; 
c - LCA; 
break; 
case LCA: 

*colp acol; 
tp->t_row “ arow; 
break; 
case ASEG: 

tp“>t_row “ (short)(tp->t_row+24)%{short)(tp->t_lrow+l); 
break; 

case NL: 

if (tp->t_row < tp->t_lrow) 
tp->t_row++; 

case CRTN: 

*colp “ 0; 
break; 
case SVID: 

tp->t_dstat t- acol; 
c - DVID; 
break; 
case CVID: 

tp->t_dstat 4- ~acol; 
c “ DVID; 
break; 
case DVID: 

tp->t_dstat - acol; 
break; 

) 

(*teriasw[tp->t_tenii] .t_output) (c, tp) ; 

out: 

splx(sps); 
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/* e(#)tti.c 1.4 */ 

/* 

* Line discipline 0 

* No Virtual Terminal Handling 
*/ 

♦include "sys/parara.h" 

♦include "sys/types.h" 

♦include "sys/systm.h" 

♦include "sys/conf.h" 

♦include "sys/dir.h” 

♦include "sys/signal.h” 

♦include "sys/user.h" 

♦include "sys/errno.h" 

♦include "sys/proc.h” 

♦include "sys/file.h” 

♦include "sys/tty.h“ 

♦include "sys/termio.h" 

♦include "sys/sysinfo.h** 

♦include “sys/var-h" 

♦include "sys/reg.h" 

extern char partab[]; 

/* 

* routine called on first teletype open. 

* establishes a process group for distribution 

* of quits and interrupts from the tty. 

*/ 

ttopen(tp) 

register struct tty *tp; 

{ 

register struct proc *pp; 

pp ” u.u_j)rQcp; 
if ((pp->p_pid =“ pp->pjpgrp) 

<u.u_ttyp = NULL) 

&& (tp->t_j>grp — 0)) { 

u.u__ttyp - &tp->t_pgrp; 
tp->t_pgrp = pp->p_J>grp; 

} 

ttioctKtp, LDOPEN, 0, Q); 
tp->t_state «= -WOPEN; 
tp->t_state I* ISOPEN; 


ttclose(tp) 

register struct tty *tp; 

if (<tp->t_stateSISOPEN) = 0) 
return; 

tp->t_state -ISOPEN; 
tp->t_pgrp - 0; 
ttioctKtp, LDCLOSE, 0, 0); 

} 

/* 

* Called from device's read routine after it has 

* calculated the tty-structure given as argument. 
*f 

ttread(tp) 

register struct tty *tp; 

{ 

register struct user *up; 
register struct clist *tq; 

up * su; 

tq ” stp->t_canq; 
if (tq->c_cc ““ 0) 
canon(tp); 

while {up->u_count!-0 £& up->u_error-=0) ( 
if (up->u_count >« CLSIZE) { 
register n; 

register struct cblock *cp; 


if i(cp - Qfitcbltq)) — NULL) 


} 


break; 

n “ MIN(up->u_count, 

(unsigned)(cp->c_last - cp->c_first)); 
if (copyout((caddr_t)5cp->c_data[cp->c_first], 
(caddr_t)up->u_base, n)) 
up->u_error = EFAULT; 
putcf((struct cblock *)cp); 
up->u_base += n; 
up->u_count — n; 

} else { 

register c; 



/* 

* called from device's write routine after it has 

* calculated the tty-structure given as argument. 
*/ 

ttwrite(tp) 

register struct tty *tp; 

{ 

register struct cblock *cp; 
register struct user *up; 
register a, n; 


if ( I (tp->t_state£CARR_ON)) 
return; 

up - 4u; 

a - tthiwat[tp->t_cflag4CEAUD]; 

if (up->u_coiint <= 4 && up->u_ar0[RO] & 0x80000000) { 
n ■=* up->u_arg[3] ; 

SPL6() ; 

while (tp->t_outq.c_cc > a) { 

(*tp->t_proc)(tp, T_OUTPUT); 

/* 

* For non-interrupting output devices sleep 

* only when characters are still pending. 

*/ 

if (tp->t_state&(TIMEOUT 1TTSTOP|BUSY)) { 
tp->t_state 1“ OASLP; 

(void) sleep((caddr_t)&tp->t_outq, TTOPRI); 

} 

} 

SPLOO ; 

while (up->u_count) { 

ttxput(tp, ni0 xFF, 0); 
up->u_base++; 
up->u_count—; 
n »- 8; 

} 

} else 

while (up->u_count) { 

SPL6(); 

while (tp->t_outq.c_cc > a) { 

(*tp->t_proc)(tp, T_OUTPUT); 

/* 

* For non-interrupting output devices sleep 

* only when characters are still pending. 

*/ 

if (tp->t_state&(TIMEOUT ITTSTOPI BUSY)) { 

tp->t_state I- OASLP; 

(void) sleep((caddr_t)fitp->t_outq, TTOPRI); 



ttl.c 


Fri Sep 5 19:08:09 1986 


2 


1 


SPLOO ; 

if (up->u_count >- (CLSIZE/4)) { 

if ((cp - getcfO) NULL) 
break; 

n “ MIN(up->u_count, (unsigned)cp->c_last); 
if (copyin{{caddr_t)up->u_ba se, (ca ddr_t)cp~> c_data, 
n)) { 

up“>u_error = EFAULT; 
putcf((struct cblock *)cp); 
break; 

} 

/* 

* Put trailing '\n' in a separate cblock 
*/ 

if (n=-up->u_count && cp->c_data[n-l]”'\n' £& n>=3) 
n—; 

up->u_base +«= n; 
up-->u_count — n; 
cp->c_last “ n; 
ttxput(tp, cp, n); 

} else { 

n == fi 2 byte(up->u_base++) ; 
if (n<0) { 

up->u_error = EFAULT; 
break; 

} 

up->u_count—; 
ttxput(tp, n, 0); 


} 


spltty{); 


if ('(tp->t_state&BUSY)) 
(*tp->tjproc)(tp, 

SPLOO ; 


T_OUTPUT); 


/* 

* Place a character on raw TTY input queue, putting in delimiters 

* and waking up top half as needed. 

* Also echo if required. 

*/ 

^define LCLESC 0400 
ttin(tp) 

register struct tty *tp; 

{ 

register c; 
register fig; 
register char *cp; 
ushort nchar, nc; 

nchar -= tp“>t_rbuf .c_size - tp->t_rbuf. c_count; 

/* reinit rx control block */ 
tp->t_rbuf.c_count - tp->t_rbuf.c_si 2 e; 
if (nchar“0) 

return; 

fig - tp->t_iflag; 
nc = nchar; 

cp - tp->t_rbuf.c_ptr; 

if (nc < cfreelist.c_size || (fig & (INLCRIIGNCRIICRNLIlUCLC))) { 
/* must do per character processing */ 
for ( ;nc—; cp++) { 
c = *cp; 

if (c — '\n' flgilNLCR) 

*cp - c “ '\r'; 
else if (c “ '\r') 

if (flgilGNCR) 

continue; 

else if (flg&ICRNL) 

*cp - c - '\n'; 

if (flgilUCLC £& 'A' <*• c kt c <- 'Z') 
c +- 'a' - 'A'; 
if (putc(c, 4tp->t_rawq)) 
continue; 
sysinfo. raiich++; 

) 


cp - tp“>t_rbuf .c_j)tr; 

} else { 

/* may do block processing */ 

putcb(CHATCH((struct cblock *)cp), 4tp->t_rawq); 
sysinfo.rawch += nc; 

/* allocate new rx buffer */ 

if ((tp“>t_rbuf .c_j>tr « getcf () “>c_data) 

— ((struct cblock *)NULL)->c_data) { 

tp->t_rbuf.c_j>tr = NULL; 

return; 

} 

tp->t_rbuf. c_count =* cfreelist .c_size; 
tp->t_rbuf.c_size - cfreelist.c^size; 


if (tp->t_rawq.c_cc > TTXOHI) { 

if (flgilXOFF £& Utp->t_state£TBLOCK)) 

(*tp“>t_prQC)(tp, T_BLOCK); 
if (tp->t_rawq.c_cc > TTYHOG) { 
ttyflush(tp, FREAD); 
return; 

} 

} 

fig » lobyte(tp->t_lflag); 

if (tp->t_outq.c_cc > (tthiwat[tp->t_cflag£CBAUD] + TTECHI)) 
fig ~(ECHO|ECHOK|ECHONL|ECHOE); 
if (fig) while (nchar--) { 
c “ *cp++; 
if (flg&ISIG) { 

if (c — tp->t_cc[VINTR]) { 

signal(tp->t_j>grp, SIGINT); 
if (i(flgiNOFLSH)) 

ttyflush(tp, (FREADIFWRITE)); 
continue; 

if (C — tp->t_cc[VQUIT]) { 

signal (tp->t_j5grp, SIGQUIT); 
if (](flg&NOFLSH)) 

ttyflush(tp, (FREADIFWRITE)); 
continue; 

} 

} 

iifdef notdef 

if (flg&ICANON) { 

if (tp->t_state£CLESC) { 
fig 1= LCLESC; 
tp->t_state &= -CLESC; 

} 

if (c — '\n') { 

if (flgSECHONL) 

fig I- ECHO; 
tp->t_delct++; 

} else if (c = '\\') { 

tp->t_state I- CLESC; 
if (flg&XCASE) { 

C 1- QESC; 
if (flgiLCLESC) 

tp->t_state &- -CLESC; 

} 

} else if (c “= tp->t_cc[VEOL] || c — tp->t_cc[VEOL2]) 
tp->t_delct++; 
else if (!(flgfiLCLESC)) { 

if (c “ tp->t_cc[VERASE] k& flgiECHOE) { 
if (flgiECHO) 

ttxput(tp, '\b', 0); 
fig t- ECHO; 
ttxput(tp, • 0); 

c * ^\b'; 

) else if (c — tp->t_cc[VKILL] && flgSECHOK) { 
if (flg£ECHO) 

ttxput(tp, c, 0); 
fig I- ECHO; 
c “ '\n'; 

} else if (c — tp->t_cc[VEOF]) ( 
fig -ECHO; 
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#else 


*endif 


} 

if 

} 


} 


tp->t_delct++; 


(flgiECHO) { 

ttxput(tp, c, 0); 
{*tp“>t_proc)(tp, T_OUTPUT); 


if (flgfilCANON) { 

if (c =» r\n') { 

if {flgSECHOML) 

fig 1= ECHO; 
tp->t_delct++; 

} else if (c = tp->t_cc [VEOL] | | c =» tp->t_cc[VEOL2]) 
tp->t_delct++; 
if (I(tp“>t_state&CLESC)) { 
if (c 

tp“>t_state I- CLESC; 
if (C = tp~>t_CC[VERASE3 flg&ECHOE) { 
if (flgfiECHO) 

ttxput (tp, *■ \b' , 0); 
fig 1“ ECHO; 
ttxput{tp, ' 0); 

c - '\b'; 

) else if (c =— tp->t_cc[VKILL] && flg&ECHOK) { 
if (flg&ECHO) 

ttxput{tp, c, 0); 
fig 1= ECHO; 
c ■= ' \n' ; 

} else if (c tp->t_cc[VEOF]) { 
fig 4- -ECHO; 
tp->t_delct++; 

1 

} else { 

if {c II (flgiXCASE)) 

tp->t_state 4“ -CLESC; 

) 

} 

if (flg4ECHO) { 

ttxput{tp, c, 0); 

(*tp->t_j)roc) (tp, T_OUTPUT); 


if (i(flg4ICANON)3 { 

tp->t_state 4- -RTO; 

if {tp->t_rawq.c_cc >- tp->t_cc[VMIN]) 
tp->t_delct - 1; 
else if (tp->t_cc[VTIME]) { 

if {!(tp->t_state4TACT)) 
tttimeo(tp); 


} 


} 


if (tp->t_delct 44 (tp->t_state4IASLP)) ( 
tp->t_state 4= -lASLP; 


} 


v/a]ceup( (caddr_t) 4tp->t_rawq) ; 


/* 

* Scan a list of characters and assure that they require no 

* post processing 
*/ 

ttxchk(ncode, cp) 
register short ncode; 
register unsigned char *cp; 

( 

register c, n; 


n - 0; 
ncode—; 
do { 

c » *cp++; 
if (c 4 0200) 

return(-1); 


c - partab[c3 4 077; 
if (c 0) 
n++; 

else if (c !- 1) 

return(-1); 

} while (—ncode -1); 
return(n); 

} 

/* 

* Put character(s) on TTY output queue, adding delays, 

* expanding tabs, and handling the CR/NL bit. 

* It is called both from the base level for output, and from 

* interrupt level for echoing. 

*/ 

/* VARARGSl */ 
ttxput(tp, ucp, ncode) 
register struct tty *tp; 
register ncode; 
union { 

struct ch { /* machine dependent union */ 

char dum[3]; 
unsigned char theaddr; 

} ch; 

int thechar; 
struct cblock *ptr; 

) ucp; 

{ 

register struct clist *outqp; 
register unsigned char *cp; 
register c, fig, ctype; 
register char *colp; 
struct cblock *scf; 
int cs; 

fig =* tp->t_oflag; 
outqp “ 4tp->t_outq; 
if (ncode — 0) { 

if (i(flg40POST)) { 

sysinfo.outch++; 

(void) putc(ucp.thechar, outqp); 
return; 

} 

ncode++; 

cp = (unsigned char *)4ucp.ch.theaddr; 
scf = NULL; 

} else { 

if (i(flg40POST)) { 

sysinfo.outch +- ncode; 
putcb(ucp.ptr, outqp); 
return; 

} 

cp “ (unsigned char *)4ucp.ptr->c_datalucp.ptr->c_first]; 
scf “ ucp.ptr; 

} 

if ( (tp->t_lflag4XCASE)“0 44 (flg40LCUC)—0) { 

COIp = 4tp->t_col; 

if (ncode > 1 44 (c - ttxchk(ncode, cp)) >= 0) { 

(*colp) +“ c; 
sysinfo.outch +- ncode; 
putcb(ucp.ptr, outqp); 
return; 

} 

while (ncode—) { 

ctype - partabic - *cp++] 4 077; 
if (ctype-^0) { 

(*colp)++; 
sysinfo.outch++; 

(void) putc(c, outqp); 
continue; 

) 

else if (ctype"!) { 

sysinfo.outch++; 

(void) putc(c, outqp); 
continue; 

} 
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if (c >= 0200) { 

if (c — QESC) 

(void) putc(QESC, outqp); 
sysinfo.outch++; 

(void) piitc(c, outqp); 
continue; 

cs = c; 

/* 

* Calculate delays. 

* The numbers here represent clock ticks 

* and are not necessarily optimal for all terminals. 

* The delays are indicated by characters above 0200. 

*/ 

c - 0; 

switch (ctype) { 

case 0: /* ordinary */ 

(*colp)++; 

case 1; /* non-printing */ 
break; 

case 2: /* backspace */ 
if (flgiBSDLY) 
c - 2; 
if (*colp) 

(*colp)—; 

break; 

case 3: /* line feed */ 
if (flg&ONLRET) 

goto qcr; 
if (flgiONLCR) { 

• if (KflgsONOCR £& *colp—0)) { 

sysinfo.outch++; 

(void) putc('\r', outqp); 

} 

goto qcr; 

} 

qnl; 

if (flgiNLDLY) 
c - 5; 

break; 

case 4; /* tab */ 

c “ 8 - ((*colp)&07); 

*colp +- c; 
ctype - flgiTABDLY; 
if (ctype = TABO) { 
c ” 0; 

} else if (ctype =- TABl) { 
if (c < 5) 

c = 0; 

} else if (ctype •«= TAB2) { 
c - 2; 

} else if (ctype — TAB3) { 
sysinfo.outch +- c; 
do 

(void) putc(' outqp); 
while (—c); 
continue; 

} 

break; 

case 5: /* vertical tab */ 
if (flgiVTDLY) 

c « 0177; 

break; 

case 6: /* carriage return */ 
if (flg&OCRNL) ( 

cs - '\n'; 
goto qnl; 

} 

if (flgiONOCR ijS *colp — 0) 


continue; 

qcr : 

ctype * flgsCRDLY; 
if (ctype — CRl) { 
if (*colp) 

c -» max((unsigned) ((*colp»4) + 3), 6) 
} else if (ctype =« CR2) { 
c * 5; 

) else if (ctype = CR3) { 
c » 9; 

} 

*colp - 0; 
break; 

case 7; /* form feed */ 
if (flg&FFDLY) 

c = 0177; 

break; 

} 

sysinfo.outch++; 

(void) putc(cs, outqp); 
if (c) { 

if ((c < 32) && flg&OFILL) { 
if (flgfiOFDEL) 

cs = 0177; 

else 

cs “ 0; 

(void) putc(cs, outqp); 
if (c > 3) 

(void) putc(cs, outqp); 

) else { 

(void) putc(QESC, outqp); 

(void) putc(c10200, outqp); 

} 

} 

} 

} else 

while (ncode—) { 
c =“ *cp++; 
if (c >- 0200) { 

/* spl5-0 */ 

if (c =“ QESC) 

(void) putc(QESC, outqp); 
sysinfo.outch++; 

(void) putc(c, outqp); 
continue; 

) 

/* 

* Generate escapes for upper-case-only terminals. 

*/ 

if (tp->t_lflag4XCASE) { 

colp - "(()}!I"-' '\\\\"; 
while(*colp++) 

if (c — *colp++) ( 

ttxput(tp, '\\M020Q, 0); 

c - colp[-2]; 

break; 

} 

if ('A^ <“ C £4 C <- 

ttxput(tp, 'W'10200, 0); 

) 

if (flgiOLCUC 44 'a' <- C 44 c <» 'ZM 
c +“ 'A' - 'a'; 

cs * c; 

/* 

* Calculate delays. 

* The numbers here represent clock ticks 

* and are not necessarily optimal for all terminals. 

* The delays are indicated by characters above 0200. 

*/ 

ctype - partab[c]; 
colp - 4tp->t_col; 
c - 0; 

switch (ctypeiO??) i 

case 0: /*ordinary */ 
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(*COlp)++; 

case 1: /* non-printing */ 
break; 

case 2: /* backspace */ 
if (flgiBSDLY) 
c = 2; 
if (*colp) 

(*colp)—; 

break; 

case 3: /* line feed */ 
if (flgiONLRET) 
goto cr; 
if (flg&ONLCR) { 

if (Kflg&ONOCR && *colp-=0)) { 
sysinfo.out ch++; 

(void) putc('\r', outqp); 

goto cr; 

} 

nl: 

if (flg&NLDLY) 
c - 5; 

break; 

case 4: /* tab */ 

c = 8 - ((*colp)40?); 

*colp +=“ c; 
ctype = flg4TABDLY; 
if (ctype == TABO) { 
c == 0; 

} else if (ctype == TABl) ( 
if (c < 5) 

c = 0; 

} else if (ctype TAB2) { 
c “ 2; 

} else if (ctype — TAB3) { 
sysinfo.outch +- c; 
do 

(void) putc(' outqp); 
while (—c); 
continue; 

} 

break; 

case 5: /* vertical tab */ 
if (flg4VTDLY) 

c = 0177; 

break; 

case 6; /* carriage return */ 
if (flg40CRNL) { 

cs * '\n'; 
goto nl; 

} 

if (flg40NOCR 4 4 *COlp 0) 
continue; 

cr: 

ctype = flg4CRDLY; 
if (ctype — CRl) { 
if (*colp) 

c = max((unsigned) ((*colp»4) +3), 6) ; 
} else if (ctype — CR2) { 
c - 5; 

) else if (ctype — CR3) { 
c - 9; 

) 

*colp - 0; 
break; 

case 7: /* form feed */ 
if (flgiFFDLY) 

C - 0177; 


} 

sysinfo.outch++; 

(void) putc(cs, outqp); 
if (c) { 

if ((c < 32) 44 flg40FILL) { 
if (flg40FDEL) 

cs “ 0177; 

else 

cs = 0; 

(void) putc(cs, outqp); 
if (c > 3) 

(void) putcics, outqp); 

} else { 

(void) putc(QESC, outqp); 

(void) putc(c|0200, outqp); 

} 

} 


} 


} 

if (scf '= NULL) 

putcf(scf); 


/* 

* Get next packet from output queue. 

* Called from xmit interrupt complete. 
*/ 


ttout(tp) 

register struct tty *tp; 

{ 

register struct ccblock *tbuf; 
register c; 
register char *cptr; 
register retval; 
register struct clist *outqp; 
extern ttrstrt(); 

outqp - 4tp->t_outq; 

if (tp->t_state4TTIOW 44 outqp->c_cc-=0) { 
tp->t_state 4- -TTIOW; 
wakeup((caddr_t)4tp->t_oflag); 

} 

delay: 

tbuf “ 4tp->t_tbuf; 
if (hibyte(tp->t_lflag)) { 
if (tbuf->c_ptr) { 

putcf(CMATCH((struct cblock *)tbuf->c_ptr)); 
tbuf->c_j)tr =» NULL; 

} 

tp->t_state != TIMEOUT; 
timeout(ttrstrt, (caddr_t)tp, 

(int)({hibyte(tp->t_lflag)40177)+6)); 
hibyte(tp->t_lflag) - 0; 
return(0); 

} 

retval = 0; 

if (i(tp->t_oflag40POST)) { 
if (tbuf->c_j)tr) 

putcf(CMATCH((struct cblock *)tbuf->c_ptr)); 
if ((tbuf->c_ptr " (char *)getcb(outqp)) — NULL) 
goto out; 

/* return(O); */ 

tbuf->c_count - ((struct cblock *)tbuf->c_ptr)->c_last - 
((struct cblock *)tbuf->c_ptr)->c_first; 
tbuf->c_size - tbuf->c_count; 

tbuf->c__ptr - 4 ((struct cblock *) tbuf->c__ptr)->c_data 

[ ((struct cblock *)tbuf->c_ptr)->c_first] 

retval « CPRES; 

) else { /* watch for timing */ 

if (tbuf->c_ptr — NULL) { 

if ((tbuf->c_j>tr - getcf ()->c_data) 

— ((struct cblock *)NULL)->c_data) { 
tbuf->c_ptr - NULL; 
goto out; 

/* r«fcux:»4^0); /* Add r«*tart2 */ 


break; 
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out; 


} 


} 

) 

tbuf->c_count “ 0; 
cptr “ tbuf->c_j)tr; 
while ((c-getc(outqp)) >= 0) { 
if (c = QSSC; { 

if ((c = getc{outqp)) < 0) 
break; 

if (c > 0200) { 

hibyte(tp->t_lflag) = c; 
if (Iretval) 

goto delay; 

break; 

) 

retval = CPKES; 

*cptr++ “ c; 
tbuf->c_count++; 

if {tbuf->c_count >= cfreelist.c_size) 
break; 

} 

tbuf->c size ==■ tbuf->c count; 


if (tp-->t_state&QASLP && 

outqp->c_cc<="ttlowat [tp->t_cflagiCBAUD]) { 
tp->t_state ~OASLP; 
wakeup((caddr_t)outqp); 

} 

return(retval); 


tttimeo(tp) 

register struct tty *tp; 

{ 

tp->t_state &- ~TACT; 

if (tp->t_lflag&ICANON iI tp->t_cc[VTIME] = 0) 
return; 

if (tp->t_rawq.c_cc = 0 && tp->t_cc[VMIN]) 
return; 

if (tp”>t_state&RTO) { 

tp->t_delct = 1; 
if (tp->t_state&IASLP) { 

tp->t_state &- -lASLP; 
wakeup((caddr_t)4tp~>t_rawq); 

} 

} else { 

tp->t_state [“ RTOITACT; 
timeout(tttimeo, (caddr_t)tp, 

(int)(tp->t_cclVTIME]*(short)((short)v.v_hz/10))); 

) 

} 


/* 

* I/O control interface 
*/ 

/* ARGSUSED */ 
ttioctKtp, crad, arg, mode) 
register struct tty *tp; 
i 

ushort chg; 

switch Icmd) { 
case LDOPEN; 

if (tp->t_rbuf.c_ptr ““ NULL) ( 

/* allocate RX buffer */ 

while((tp->t_rbuf.c_ptr - getcf()->c_data) 

— ((struct cblock *)NULL)->c_data) { 
tp->t_rbuf.c_ptr = NULL; 
cfreelist.c_flag - 1; 

(void) sleep((caddr_t)4cfreelist, TTOPRI); 

} 

tp->t_rbuf.c_count - cfreelist,c_size; 
tp->t_rbuf.c_size - cfreelist.c_3ize; 
(*tp->t_proc)(tp, T_INPUT); 

} 


break; 


case LDCLOSE: 

splttyO; 

(*tp->t_proc)(tp, T_RESUME); 

SPLQ(); 
ttywait(tp); 

ttyflush(tp, (FREADIFWRITE)); 
if (tp^>t_tbuf.c_ptr) { 

putcf(CMATCH((struct cblock *)tp->t_tbuf. c_ptr}); 
tp'->t_tbuf .c_ptr - NULL; 
tp->t_tbuf.c_count “ 0; 
tp->t_tbuf.c_size - 0; 

} 

if {tp->t_rbuf.c_ptr) { 

putcf (CMATCH ((struct cblock *) tp-“>t_rbuf. c_ptr)); 
tp->t_rbuf. c_j)tr -= NULL; 
tp“>t_rbuf.c_count =0; 
tp->t_rbuf.c_size =0; 

) 

tp-'>t_tmflag - 0; 
break; 

case LDCHG; 

chg = tp->t_lflag''arg; 
if (I(chg&ICANON)) 
break; 
spltty(); 

if (tp->t_canq.c_cc) { 

if (tp->t_rawq.c_cc) ( 

tp->t_canq.c_cc +- tp->t_rawq-c_cc; 
tp->t_canq.c_cl->c_next - tp->t_rawq.c_cf; 
tp->t_canq.c_cl - tp->t_rawq.c_cl; 

} 

tp->t_rawq - tp“>t_canq; 
tp->t_canq = ttnulq; 

} 

tp->t_delct = tp->t_rawq.c_cc; 

SPLO(); 
break; 

default; 

break; 

} 


} 
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/* e(#)tty.c 1.2 */ 

/* 

* general TTY subroutines 
*f 

^include "sys/param.h" 

#include "sys/types.h" 

^include "sys/systm.h" 
finclude "sys/dir.h" 

#include •• sys/signal. h'* 

#include "sys/user.h” 

♦include "sys/errno.h" 

♦include "sys/tty.h" 

♦include "sys/ttold.h** 

♦include "sys/prac.h" 

♦include "sys/file.h” 

♦include "sys/conf.h" 

♦include "sys/termio.h" 

♦include "sys/sysinfo.h" 

♦include "sys/var.h" 

extern int sspeed; 
extern int tthiwat[]; 
extern int ttlowat[]; 
extern char ttcchar t J; 

/* null clist header */ 
struct clist ttnulq; 

/* canon buffer */ 
char canonb[CANBSIZ]; 

f* 

* Input mapping table— if an entry is non-zero, when the 

* corresponding character is typed preceded by ”\" the escape 

* sequence is replaced by the table value. Mostly used for 

* upper-case only terminals. 

*/ 

char maptab[] = { 

000,000,000,000,000,000,000,000, 

000,000,000,000,000,000,000,000, 

000,000,000,000,000,000,000,000, 

000,000,000,000,000,000,000,000, 

000,'I',000,000,000,000,000,' '', 

M'/' )', 000, 000, 000, 000,000,000, 
000,000,000,000,000,000,000,000, 
000,000,000,000,000,000,000,000, 
000,000,000,000,000,000,000,000, 
000,000,000,000,000,000,000,000, 
000,000,000,000,000,000,000,000, 

000,000,000,000,000,000,'-',000, 
000,'A','B','C','D','E','F','G', 

' H' , ' I' , ' J' , ' K' , ' L' , ' M' , ' N' , ' O' , 
'P','Q','R','S','T','U','V','W', 
'X','Y','Z',000,000,000,000,000, 

}; 

I* 

* common ioctl tty code 

*/ 

ttiocom(tp, and, arg, mode) 
register struct tty *tp; 

{ 

register struct user *up; 
register short flag; 
register struct sgttyb *tbp; 
register struct termio *cbp; 
struct termio cb; 
struct sgttyb tb; 

up - &u; 
switch (and) { 
case lOCTYPE; 

up->u__rvall - TIOC; 
break; 


case TCSETAW: 


case TCSETAF: 

ttywait(tp); 
if (and =-= TCSETAF) 

ttyflush(tp, (FREADIFWRITE)); 

case TCSETA: 

cbp “ Scb; 

if (copyin((caddr_t)arg, (caddr_t)cbp, sizeof cb)) { 
up->u_error =- EFAULT; 
break; 

} 

if (tp->t_line !=• cbp->c_line) { 

if (cbp->c_line < 0 1! cbp->c_line >“ linecnt) { 
up->u_error = EINVAL; 
break; 

} 

(*linesw[tp->t_line3•l_ioctl)(tp, LDCLOSE, 0, mode); 

} 

flag - tp->t_lflag; 
tp->t_iflag =■ cbp->c_iflag; 
tp->t_oflag “ cbp->c__oflag; 
tp->t_cflag - cbp->c_cflag; 
tp->t_lflag = c±^>c_lflag; 

bcopy ((caddr_t) cl^>c_cc, (caddr_t) tp->t_cc, NCC) ; 
if (tp->t_line i- cbp->c_line) { 
tp->t_line = cbp->c_line; 

(*linesw[tp->t_line3.l_ioctl)(tp, LDOPEN, 0, mode); 

} else if (tp->t_lflag I- flag) { 

(*linesw[tp->t_line].l_ioctl)(tp, LDCHG, flag, mode); 

} 

return(1); 

case TCGETA: 

cbp =* icb; 

= tp->t_iflag; 
cbp->c_oflag * tp->t_oflag; 
cbp->c_cflag - tp->t_cflag; 
cbp->c_lflag - tp->t_lflag; 
cbp->c_line - tp->t_line; 

bcopy((caddr_t)tp->t_cc, (caddr_t)cbp->c_cc, NCC); 
if (copyout((caddr_t)cbp, (caddr_t)arg, sizeof cb)) 
up->u_error = EFAULT; 

break; 

case HCSBSiKz 

ttywait(tp); 
if (arg === 0) 

(*tp->t_j3roc) (tp, T_BREAK); 

break; 

case TCXONC: 

switch (arg) { 
case 0: 

(*tp->t_j)roc) (tp, T_SUSPEND); 
break; 

case 1: 

(*tp->t_proc)(tp, T_RESUME); 
break; 

case 2: 

(*tp->t_proc)(tp, T_BLOCK); 
break; 

case 3: 

(*tp->t_proc)(tp, T_UNBLOCK); 
break; 

default: 

up->u_error - EINVAL; 

} 

break; 

case TCFLSH: 

switch (arg) { 
case 0: 
case 1: 
case 2: 

ttyflush(tp, (arg - FOPEN)S(FREAD!F^miTE)); 
break; 
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up->u_error = EINVAL; 


conversion aide only */ 
case TICX:SETP: 

tbp - 4tb; 
ttywait(tp); 

ttyflush(tp, (FREAD|FWRITE)); 

if (copyin((caddr_t)arg, (caddr_t)tbp, sizeof(tb))) { 
up->u_error = EFAULT; 
break; 


tp->t_iflag =■ 0; 
tp->t_oflag - 0; 
tp->t_lflag =* 0; 

tp->t_cflag - (tbp->sg_ispeed4CBAUD)tCREAD; 
if ((tbp->sg_isp€ed&CBAUD)”=B110) 
tp->t__cflag I- CSTOPB; 
tp“>t_cc[VERASE] =« tbp->sg_erase; 
tp->t_ccCVKILL] - tbp->sg_kill; 
flag = tbp->sg_flags; 
if (flag40_HUPCL) 

tp->t_cflag 1= HUPCL; 
if (flagiO_XTABS) 

tp->t_oflag 1= TAB3; 
else if (flagSO_TBDELAY) 

tp“>t_oflag I- TABl; 
if {flag40_LCASE) { 

tp->t_iflag I- lUCLC; 
tp->t_oflag 1= OLCUC; 
tp->t_lflag 1= XCASE; 


if (flag40_ECHO) 

tp->t_lflag 1== ECHO; 
if (!(flag40_NOAL)) 

tp->t__lflag 1= ECHOK; 
if (flag40_CRM0D) { 

tp->t_iflag I- ICRNL; 
tp->t_oflag !“ ONLCR; 
if (flag40_CRl) 

tp->t__oflag != CRl; 
if (flag40_c:R2) 

tp->t_oflag 1= ONOCRICR2; 

} else { 

tp“>t_oflag I- ONLRET; 
if (flag40_NLl) 

tp->t_oflag I- CRl; 
if (flag40_NL2) 

tp->t_oflag I- CR2; 


if (flag40_RAW) { 

tp->t_cc[VTIME] 
tp->t_cc[VMIN] 
tp->t_iflag 4"= 
tp->t_cflag 1= 

} else { 

tp->t_cc[VEOF] 
tp->t_cc[VEOL] 
tp->t_cc[VEOL2] 
tp->t_iflag I - 
tp->t_oflag I- 
tp->t_cflag 1“ 
tp->t_lflag 1“ 


= 1 ; 

=“ 6 ; 

“(ICRNLIIUCLC); 

CSS; 


BRKINTIIGNPAR|ISTRIP|IXON|IXANY; 
OPOST; 

CS7IPARENB; 

ICANOMIISIG; 


tp->t_iflag I- INPCK; 
if (flag40_0DDP) 

if (flag«0_EVENP> 

tp->t_iflag 4- -INPCK; 

else 

tp->t_cflag I- PARODD; 
if (flag40_VTDEIAY) 

tp->t_oflag I- FFDLY; 
if {flag40_BSDELAY) 

tp->t_oflag 1= BSDLY; 


return(1); 


case TIOCGETP: 

tbp - 4tb; 

tbp->sg_ispeed - tp->t_cflag4CBAUD; 
tbp‘=>sg_o speed = tbp=>3g_ispsed; 
tbp->sg_erase - tp->t_cc[VERASE]; 
tbp->sg_kill =- tp->t_cc[VKILL] ; 
flag - 0; 

if (tp->t_cflag4HUPCL) 

flag 1= 0_HUPCL; 
if ( I (tp->t_lflag4ICANON)) 
flag i- 0_RAW; 
if (tp->t_lflag4XCASE) 

flag 1= 0_LCASE; 
if (tp->t_lflag4ECHO) 

flag I- 0_ECHO; 
if (i(tp->t_lflag4ECHOK)) 
flag 1= 0_NOAL; 
if (tp->t_cflag4PARODD) 
flag 1= 0_ODDP; 
else if (tp->t_iflag4INPCK) 
flag I* 0_EVENP; 

else 

flag 1- 0_ODDP10_EVENP; 
if (tp->t_oflag40NLCR) { 
flag 1= 0_CRMOD; 
if (tp-'>t_oflag4CRl) 

flag )- 0_CR1; 
if (tp->t_oflag4CR2) 

flag 1= 0_CR2; 

} else { 

if (tp->t_oflag4CRl} 

flag I- 0_NL1; 
if (tp->t_oflag4CR2) 

flag 1- 0_NL2; 

} 

if ((tp->t_oflag4TABDLY) —TAB3) 
flag I- 0_XTABS; 
else if (tp->t_oflag4TABl) 
flag 1= 0_TBDEIAY; 
if (tp->t_oflag4FFDLY) 

flag |== 0_VTDELAY; 
if (tp->t_oflag4BSDLY) 

flag 1- 0_BSDELAY; 
tbp->sg_flags - flag; 

if (copyout((caddr_t)tbp, (caddr_t)arg, sizeof<tb))) 
up->u_error = EFAULT; 

break; 

/* 

* The following ioctls were added by UniSoft 
*/ 

/* 

* Return number of characters immediately available. 

*/ 

case FIONREAD: { 

off_t nread; 

SPL6(J; 

while (tp->t_rawq.c_cc 44 tp->t_delct) 
canon(tp); 

SPLO(); 

nread - tp->t_canq.c_cc; 
if (i(tp->t_lflag 4ICANON)) 

nread += tp“>t_rawq.c_cc; 

if (copyout((caddr_t)4nread, (caddr_t)arg, sizeof (off_t))) 
up->u_error - EFAULT; 

break; 

} 

default; 

if ((cmd4lOCTYPE) -- LDIOC) 

(*linesw(tp->t_line].l_ioctl)(tp, cmd, arg, mode); 


else 
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up->u_error - EINVAL; 

break; 
return(0); 


ttinit(tp) 

register struct tty *tp; 

{ 

tp->t_line =» 0; 
tp->t_iflag - 0; 
tp->t_oflag = 0; 

tp->t_cflag - sspeedlCSStCREADlHUPCL; 
tp“>t_lflag “ 0; 

bcopy(<caddr_t)ttcchar, {caddr_t)tp->t_cc, NCC); 

) 

ttywait(tp) 

register struct tty *tp; 

{ 

splttyO; 

while (tp->t_outq.c_cc It (tp->t_statei(BUSY!TIMEOUT))) { 
tp->t_state I” TTIOW; 

(void) sleep((caddr_t)&tp“>t_oflag, TTOPRI); 

} 

SPLOO ; 

delay (v.v_hz»4) ; 

} 

/* 

* flush TTY queues 
*/ 

ttyflush(tp, cmd) 
register struct tty *tp; 

{ 

register struct cblock *cp; 
register s; 

if (cmdiFWRITE) { 

while ((cp = getcb(&tp->t_outq)) != NULL) 
putcf(cp); 

(*tp->t_J)roc) (tp, T_HFLUSH); 
if (tp->t_state&OASLP) { 

tp->t_state 4= ~OASLP; 
wakeup((caddr_t)4tp->t_outq); 

} 

if (tp“>t_state4TTIOff) { 

tp->t_State 4= -TTIOW; 
wakeup( (caddr_t) 4tp'*>t_oflag); 

} 

} 

if (cmd4FREAD) { 

while ((cp - getcb(4tp-->t_canq)) '= NULL) 
putcf (cp); 
s = splttyO; 

while ((cp - getcb(4tp->t_rawq)) I- NULL) 
putcf(cp); 
tp->t_delct “0; 
splx(s); 

(*tp->t_proc)(tp, T_RFLUSH); 
if (tp->t_state4IASLP) { 

tp->t_state 4“ -lASLP; 
wakeupl(caddr_t)4tp->t_rawq); 


/* 

* Transfer raw input list to canonical list, 

* doing erase-kill processing and handling escapes. 
*/ 

canon(tp) 

register struct tty *tp; 

{ 

register char *bp; 
register c, esc; 


splttyO; 

if (tp->t_rawq.c_cc = 0) 
tp->t_delct - 0; 
while (tp->t_delct ==■ 0) { 

if (I {tp->t_3tate4CARR_ON) j| (u. u_fiaoda4FNBELAY)) { 

SPLOO; 
return; 

} 

if (I(tp->t_lflag4ICANON) 44 tp->t_CC[VMIN]=-0) { 
if (tp->t_cc[VTIME]“0) 
break: 

tp->t_state 4“ ~RTO; 
if (1(tp->t_state4TACT)) 
tttimeo(tp); 

} 

tp->t_state 1“ lASLP; 

(void) sleep((caddr_t)4tp->t_rawq, TTIPRI); 

} 

if (i(tp->t_lflag4ICANON)) { 

if (tp->t_canq.c_cc *=0) { 

tp->t_canq •= tp->t_rawq; 
tp->t_rawq - ttnulq; 

} else 

while (tp->t_rawq. c_cc) 

(void) putc(getc(4tp->t_rawq), 4tp->t_canq); 

tp->t_delct =0; 

SPLO(); 
return; 

) 

SPLOO ; 
bp = canonb; 
esc == 0; 

while ((c-getc(4tp->t_rawq)) >= 0) { 
if (lesc) { 

if (c == '\\') { 
esc++; 

} else if (c — tp->t_cc [VERASE]) { 
if (bp > canonb) 
bp—; 
continue; 

} else if (c =“ tp->t_cc[VKILL]) { 
bp - canonb; 
continue; 

} else if (c -= tp->t_cc[VEOF]) { 
break; 

} else { 

esc = 0; 

if (c tp->t_cc[VERASE] I I 
c =* tp->t_cc[VKILL] I I 
C — tp“>t_CC[VEOF]) 
bp—; 

else if (tp->t_lflag4XCASE) { 

if ({c < 0200) 44 maptab[c]) { 
bp—; 

c = maptab[c]; 

} else if (c =- '\\M 
continue; 

} else if (c == '\\') 
esc++; 

} 

*bp++ « c; 

if (c '\n' lie — tp->t_cc[VEOL] II c “ tp->t_cc[VEOL2]) 
break; 

if (bp >» 4canonbtCANBSIZ]) 
bp—; 

} 

tp->t_delct—; 
c “ bp - canonb; 
sysinfo.canch +- c; 
bp “ canonb; 

/* faster copy ? */ 
while (c—) 

(void) putc(*bp++, 4 tp->t_canq); 


return; 
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/* 

* Restart typewriter output following a delay timeout. 

* The name of the routine is passed to the timeout 

* subroutine and it is called during a clock interrupt. 
*/ 

ttrstrt(tp) 

register struct tty *tp; 

{ 


(*tp->t_proc)(tp, T_TIME); 
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/* u<ip_usrreq.c 4.45 83/02/16 */ 

#include "sys/param.h** 
iinclude ”sys/config.h** 

#include "sys/errno.h" 
finclude "sys/types.h" 

#include "sys/sysmacros.h" 
finclude "sys/systm.h" 
finclude "sys/sysmacros.h" 
finclude "sys/dir.h” 
finclude "sys/signal.h“ 
finclude "sys/user,h" 
finclude '•net/inisc.h'' 
finclude "net/mbuf.h" 
finclude "net/protosw.h" 
finclude "net/socket.h“ 
finclude "net/socketvar.h" 
finclude "net/in.h" 
finclude "net/if.h" 
finclude "net/route.h" 
finclude "net/in_j)cb.h" 
finclude "net/in_systia.h" 
finclude "net/ip.h" 
finclude "net/ip__var.h" 
finclude "net/ip_icmp.h" 
finclude "net/udp.h" 
finclude "net/udp__var .h" 
finclude "errno.h" 


/* 

* UDP protocol implementation. 

* Per RFC 768, August, 1980. 

*/ 

udp_init() 

{ 

udb.inp_next = udb.inp_prev = £udb; 

} 

int udpcksum; 

struct sockaddr_in udp_in = { AF_INET }; 

udp_input(mO) 

struct mbuf *m0; 

{ 

register struct udpiphdr *ui; 
register struct inpcb *inp; 
register struct mbuf *m; 
int len; 

/* 

* Get IP and UDP header together in first mbuf. 

*/ 

m - mO; 

if ((m->m_off > MHAXOFF II m->m_len < sizeof (struct udpiphdr)) &4 
(ra => m_pullup(m, sizeof (struct udpiphdr))) == 0) { 
udpstat.udps_hdrops++; 
return; 

} 

ui - ratod(m, struct udpiphdr *); 

if (((struct ip *)ui)->ip_hl > (sizeof (struct ip) » 2)) 

ip_stripoptions{(struct ip *)ui, (struct mbuf *)0); 

/* 

* Make mbuf data length reflect UDP length. 

* If not enough data to reflect UDP length, drop. 

*/ 

len - ntohs((u_short)ui->ui_ulen); 
if (((struct ip *)ui)“>ip_len I- len) { 

if (len > ((struct ip *)ui)->ip_len) { 
udpstat.udps_badlen++; 
goto bad; 

} 

m_adj(m, ((struct ip *)ui)->ip_len - len); 

/* (struct ip *)ui->ip__ien = len; */ 


Checksum extended UDP header and data. 

/ 

(udpcksum £4 ui—>ui sum) { 

register u_short csum = ui->ui_sum; 

if (csim *»= Oxffff) 

csum - 0; 

ui->ui_next - ui->ui_prev = 0; 
ui->ui_xl “ 0; 

ui->ui_len = htons((u_short)len); 
ui->ui_sum = 0; 

if (csum I- in_cksum(m, len + sizeof (struct ip))) { 
udpstat.udps_badsum++; 
m_f reem (m); 
return; 

} 


* Locate pcb for datagram. 

*/ 

inp - injpcblookup(&udb, 

ui->ui_src, ui->ui_sport, ui->ui_dst, ui->ui_dport, 
INPLOOKUP_WILDCARD) ; 
if (inp — 0) { 

/* don't send ICMP response for broadcast packet */ 
if (in_lnaof (ui->ui_dst) —= INADDR_ANY) 
goto bad; 

icmp_error((struct ip *)ui, ICMP_UNREACH, ICMP_UNREACH_PORT); 
return; 


* Construct sockaddr format source address. 

* Stuff source address and datagram in user buffer. 

*/ 

udp_in.sin_port = ui->ui_sport; 
udp_in.sin_addr = ui->ui_src; 
m->m_len -- sizeof (struct udpiphdr); 
m->m_off +“ sizeof (struct udpiphdr); 

if (sbappendaddr(4inp>->inp_socket->so_rcv, (struct sockaddr *)&udp_in, m) == 0) 
goto bad; 

sorwakeup(inp->inp_socket); 
return; 

m_freem (m); 


udp_abort(inp) 

struct inpcb *inp; 


struct socket *so = inp“>inp_socket; 

in_pcbdisconnect(inp); 
soisdisconnected(so); 


udp_ctlinput(crad, arg) 
int crad; 
caddr_t arg; 

{ 

struct in_addr *sin; 

extern u_char inetctlerrmap[]; 

if (crad <011 crad > PRC_NCMDS) 
return; 

switch (crad) ( 

case PRC_ROUTEDEAD: 
break; 

case PRC_QUENCii; 
break; 
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/* these are handled by ip */ 
case PRC_IFDOWN: 
case PRC_HOSTDEAD: 
case PRC_HOSTUNREACH; 
break; 


default: 

sin “ &((struct icmp *)arg)“>icmp_ip.ip_dst; 

in_pcbnotify(&udb, sin, (int)inetctlerrmaplcmd], udp_abort); 

} 

) 

udp_output(inp, mO) 

struct inpcb *inp; 
struct mbuf *mO; 

{ 

register struct mbuf *m; 
register struct udpiphdr *ui; 
register struct socket *so; 
register int len = 0; 

/* 

* Calculate data length and get a mbuf 

* for UDP and IP headers. 

*/ 

for (ra = raO; m; m =- m“>m_next) 
len += m->m_len; 

/* we don't have MT_HEADER's (yet?) 
m * ra_get(M_DONTWAIT, MT_HEADER); 

*/ 

m « m_get (M_DONTSfAIT) ; 
if (m 0) { 

m_freem(m0); 
return (ENOBUFS); 

} 


int req; 

struct mbuf *m, *nam; 

struct inpcb *inp - sotoinpcb(so); 
int error = 0; 

if (inp = NULL && req i= PRU_ATTACH) { 
error = EINVAL; 
goto release; 

} 

switch (req) { 

case PRU_ATTACH: 

if (inp i= NULL) { 

error = EINVAL; 
break; 

} 

/* billn. for now, attach the old 4.1a way 
error ■= in_pcballoc(so, &udb); 
if (error) 

break; 

error - soreserve(so, 2048, 2048); 

*/ 

error = in_pcbattach(so, iudb, 2048, 2048, 
(struct sockaddr_in *)nam); 

if (error) 

break; 

break; 

case PRU_DETACH: 

if (inp = NULL) { 

error - ENOTCONN; 
break; 

) 

in_jx:bdetach(inp) ; 
break; 


/* 

* Fill in mbuf with extended UDP header 

* and addresses and length put into network format. 

*/ 

m->ra_off - MMAXOFF - sizeof (struct udpiphdr); 
m->m_len - sizeof (struct udpiphdr); 
m->m_next = mO; 

ui “ mtod(m, struct udpiphdr *); 
ui->ui_next - ui->ui_j)rev = 0; 
ui->ui_xl ” 0; 
ui->ui_pr = IPPROTO_UDP; 

ui“>ui_len - len + sizeof (struct udphdr); 
ui->ui_src - inp->inp_laddr; 
ui->ui_dst - inp->inp_faddr; 
ui->ui_sport = inp->inp_lport; 
ui->ui_dport - inp->inp_fport; 
ui->ui_ulen = htons((u_short)ui->ui_len); 
ui“>ui_len - ui->ui_ulen; 

/* 

* Stuff checksum and output datagram. 

*/ 

ui->ui_siam = 0; 
if (udpcksum) { 

ui->ui_sura =•» in_cksum(m, sizeof (struct udpiphdr) + len); 
if (ui->ui_sum “ 0) 

ui“>ui_sum “ Oxffff; 

} 

((struct ip *)ui)->ip_len - sizeof (struct udpiphdr) + len; 

((struct ip *)ui)->ip_ttl - MAXTTL; 

so - inp->inp_socket; 

return (ip out|»it(m, (struct mbuf *)0, 

(so->so_options & SO_DONTROUTE) ? iroutetoif : (struct route *)C, 
so>->so_state £ SS_PRIV)) ; 

} 

/*ARGSUSED*/ 

adp_usrreq(so, req, m, nam) 
struct socket *so; 


/* "bind" is not in the system (yet?) 
case PRU_BIND: 

error = in_pcbbind(inp, nam); 
break; 

/* neither is listen 
case PRU_LISTEN; 

error = EOPNOTSUPP; 
break; 

*/ 

case PRU_CONNECT: 

if (inp->inp_faddr.s_addr I* INADDR_ANy) { 
error = EISCONN; 
break; 

} 

error * in_jx:bconnect (inp, (struct sockaddr_in *)nara) 
if (error »=* 0) 

soisconnected(so); 

break; 

case PRU_ACCEPT: 

error - EOPNOTSUPP; 
break; 

case PRU_DISCONNECT: 

if (inp->inp_faddr. s_addr -- INADDR_ANY) { 
error - ENOTCONN; 
break; 

) 

in_pcbdisconnect(inp); 
soisdisconnected(so); 
break; 

case PRU_SHUTDOWN: 

socantsendmore(so); 
break; 


case PRU_SEND: { 
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struct in_addr laddr; 
if (nam) { 

laddr - inp“>inp_laddr; 

if {inp->inp_faddr.s_addr 1= INADDR_ANY) { 
error = EISCONN; 
break; 

} 

error - in_pcbconnect(inp, (struct sockaddr_in *)nam); 
if (error) 

break; 

} else { 

if (inp->inp_faddr.s_addr — INADDR_ANY) { 
error = ENOTCONN; 
break; 

} 

} 

error ==• udp_output (inp, m) ; 
in “ NUXiL; 
if (nam) { 

in_pcbdisconnect(inp); 
inp->inp_laddr ^ laddr; 

} 

break; 

case PRU_ABORT: 

in_pcbdetach(inp) ; 
sofree(so); 
soisdisconnected(so) ; 
break; 

case PRU_CONTROL: 

error » EOPNOTSUPP; 
break; 

case PRU_SOCKADDR: 

in_s6tsockaddr((struct sockaddr_in *)nam, (struct inpcb *)inp) 
break; 


default; 


} 

release: 


panic (•'udp_usrreq''); 


if (m I- NULL) 

m_freeRi(ni) ; 
return (error); 


) 
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f* e(#)utssys.c 1.3 */ 
^include "sys/param.h" 
♦include "sys/types.h" 
♦include "sys/sysmacros.h" 
♦include "sys/buf.h" 
♦include "sys/filsys.h" 
♦include "sys/mount.h" 
♦include "sys/dir.h" 
♦include "sys/signal.h" 
♦include "sys/user.h" 
♦include "sys/errno.h" 
♦include "sys/var.h" 
♦include "sys/utsnaiae.h" 


utssys () 

{ 

register i; 

register struct 
char 
int 
int 

} *uap; 

struct { 

daddr_t 

ino_t 

char 

char 

} ust; 

register struct 


a { 

*cbuf; 

mv; 

type; 


f_tfree; 
f_tinode; 
f_fname [6]; 
f_fpack[6]; 

user *up; 


up = 4u; 

uap - (struct a *)up“>u_ap; 
switch(uap->type) { 


case 0: /* uname */ 

if (copyout((caddr_t)iutsname, uap->cbuf, sizeof(struct utsname))) 
up->u_error - EFAULT; 

return; 


/* case 1 was umask */ 


case 2: /* ustat */ 

for(i=0; i<v.v_mount; i++) { 

register struct mount *mp; 


mp =* Amount [ (short) i] ; 

if (rap->m__flags"MINTJSE && brdev(rap->m_dev)“brdev(uap->mv)) { 
register struct filsys *fp; 


} 

up->u_error 

return; 


fp “ rap->m_bufp->b_un.b_filsys; 
ust.f_tfree - FsLTOP(mp->m_dev, fp->s_tfree); 
ust.f_tinode - fp->s_tinode; 

bcopy(fp“>s_fname, ust.f_fname, sizeof(ust. f_fname)); 
bcopy(fp->s_fpack, ust.f_fpack, sizeof(ust.f_fpack)); 
if (copyout ((caddr_t) &ust, uap''>cbuf, 18)) 
up->u_error = EFAULT; 

return; 


EINVAL; 


case 33: /* uvar */ 

if (copyout((caddr_t)&v, uap->cbuf, sizeof(struct var))) 
up->u_error - EFAULT; 

return; 


default; 

up“>u_error - EFAULT; 
) 


} 
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/* 

* Copyright 1982 UniSoft Corporation 

* Use of this material is subject to your disclosure agreement with 

* AT&T, Western Electric and UniSoft Corporation. 

* 

* VTIOQ emulator 

* Called with each character destined for the console. 

* Processes control sequences and keeps track of terminal state. 

* Calls into bitmap.c actually do the I/O 
*/ 

/* SENSESCRN resets the contrast on screen output (via the console device 

* driver) as if a key was hit. 

*/ 

^include **sys/types.h“ 

♦include "sys/12.h" 

♦define FAST 
♦define SENSESCRN 

♦define HAXVT_N 255 /* maximum value of any numeric parameter */ 

♦define MAXPARAMS 10 /* maximum number of numeric parameters */ 

short vt_n[MAXPARAMS]; /* n^lmeric parameters of \E[ commands */ 

char vt_raparam; 

char vt_tabset[881 = { 0 }; 

extern char brabck, bmcolor, branormal; 

extern char *bmscm; 

extern char kb_^altkp; 

short vt_raaxrow - 38; 

short vtjmaxcol -= 88; 

short vt_row, vt_col; /* cursor location (0-vt_maxrow, 0-vt_i!iaxcol) */ 

short vtrow_Qfs = 1; 

short vtcol_ofs =*1; /* row and column offsets */ 

short vt_winscrl -I; /* lines to scroll each time */ 

/* This routine interprets the characters destined for the console and 

* performs like a VTIOQ . It is implemented in terms of primitives 

* defined in bitmap.c 
*/ 

♦define CBKSP 1 

♦define CCR 2 

♦define CLF 3 

♦define CHTAB 4 

♦define CESC 5 

♦define CBELL 6 

♦define CGARB ? 

♦define CCHAR 8 

char vt_keytype[] - { 


CGARB, 

CGARB, CGARB, CGARB, 

CGARB, 

CGARB, 

CGARB, 

CBELL, 

CBKSP, 

CHTAB, CLF, CLF, 

CLF, 

CCR, 

CGARB, CGARB, 

CGARB, 

CGARB, CGARB, CGARB, 

CGARB, 

CGARB, 

CGARB, 

CGARB, 

CGARB, 

CGARB, CGARB, CESC, 

CGARB, 

CGARB, 

CGARB, 

CGARB, 

CCHAR, 

CCHAR, CCHAR, CCH/Ul, 

CCHAR, 

CCHAR, 

CCHAR, CCHAR, 

CCHAR, 

CCHAR, CCHAR, CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, CCHAR, CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, CCHAR, CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, CCHAR, CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, CCHAR, 

CCHAR, 

CCHAR, CCHAR, CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, CCHAR, CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, CCHAR, 

CCHAR, 

CCHAR, CCHAR, CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, CCHAR, 

CCHAR, 

CCHAR, CCHAR, CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, CCHAR, 

CCHAR, 

CCHAR, CCHAR, CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, CCHAR, 

CCHAR, 

CCHAR, CCHAR, CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, CCHAR, 

CCHAR, 

CCHAR, CCHAR, CCHAR, 

CCHAR, 

CCHAR, 

CCHAR, CGARB, 


}; 

vt_putc (c) 
register char c; 
{ 


extern int (*te_putc)() ; 
int vt_esc(); 
int x; 

extern tirae_t Ibolt; 

12_dtrap = Ibolt + 12_dtime; 
if (12_diramed) 12undim(); 

if (c >= ' M [ 

bmputc (vt_row+vtrow__ofs, vt_col+vtcol_ofs, c); 
vt_advance(); 

haninvert (vt_row+vtrow_Qfs, vt_col+vtcol_ofs) ; 
return; 

} 

bminvert (vt_row+vtrow_ofs, vt_col+vtcol_ofs) ; 
switch (vt_keytype[c]) { 
case CBKSP: 

if (vt_col > 0) 

vt_col—; 

break; 
case CCR: 

vt_col - 0; 
break; 

case CLF: 

if (++vt_row >- vt_raaxrow) { 

bit(fcmscrn+90*9,bmscrn+90*9*2,9*90*38); 
vt_row — vt_winscrl; 

break; 
case CHTAB: 

for < X = vt_col+l; x < vt_maxcol-l ; x++ ) 
if ( vt_tabset[x] == 1 ) 
break; 

vt_col =■ x; 
break; 
case CESC: 

te_j)Utc == vt_esc; 
break; 
case CBELL: 

beep(); 
break; 
case CGARB: 

break; 

} 

bminvert (vt_row+vtrow_ofs, vt_col+vtcol_of s); 


/* 

* Process the escape sequences to the terminal 
*/ 

vt_esc(c) /* after ESC key hit */ 

register char c; 

{ 

extern int (*te_putc)(); 
int vt_brck(), vt_putc(); 

switch (c) { 

case * [* : 

te_j)utc « vt_brck; /* check E[ sequence */ 

return; 

case /* disable alternate keypad */ 

kb_altkp - 0; 
break; 

case /* enable alternate keypad */ 

kb_altkp “ 1; 
break; 

case 'M': /* reverse scroll */ 

bminvert(vt_row+vtrow_ofs,vt_col+vtcal_ofs); 
tmrscrlO ; 

bminvert(vt_row+vtrow_ofs,vt_col+vtcol_ofs); 

break; 
case 'H'; 

vt_tabset[vt_coi]=1; 
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break; 

} 

te_putc - vt__putc; 
return; 

vt_brck(c) /* \E[ sequence checked here */ 

register char c; 

{ 

extern int (*tejputc)(); 
int vt_param(), vt_attrb(); 

vt_mparam ” 0; 
vt_n[0] = vt_n[l] = 0; 

if (c — { /* missing 1st number - look for 2nd */ 

te_putc “ vt_param; 
vt_mparam++; 
return; 

} 

if (c >= '0' 44 c <“ '9' ) { 
vt_n[0] “ c - '0'; 
tejputc “ vt_param; 
return; 

} 

if (c — '2M { 

te_putc “ vt_attrb; 
return; 

} 

vt_cmd(c); 

} 

vt_parara(c) 
register char c; 

{ 

register tmp; 
int vt_putc(); 

if( c >= '0' 44 c <= '9' ) { 

tmp = (vt_n[vt_mparam] * 10) + (c - '0'); 
vt_n[vt_mparam] = (tmp > MAXVT_N) ? MAXVT_N ; tmp; 
return; 

} 

if ( c — ) { 

if {++vt_mparam >= JMAXPARAMS) { /* too many parameters */ 
te_putc *= vt_putc; 
return; 

} 

vt_n[vt_mparam] = 0; 
return; 

} 

vt_crad(c); 

} 

vt__cmd(c) /* now have last char of esc sequence */ 

register char c; 

{ 

extern int (*te_putc)(); 
register vt_nl = vt_n[0]; 
register vt_n2 - vt_n[l]; 
register int x, y; 
int vt_putc(); 

if (c — 'f') c “ 'H'; 
if ((c >- 'A') 44 (c <= '2')) { 

brainvert (vt_row+vtrow_ofs, vt_col+vtcol_ofs); 
switch (c) ( 

case 'A': /* move cursor up */ 

if (vt_nl “ 0) 

vt_nl - 1; 

vt_row ” (vt_nl < vt_row) ? (vt_row - vt__nl) : 0; 
break; 

case 'B': /* move cursor down */ 

if (vt_nl 0) 

vt_nl - 1; 
y «" vt_row + vt_nl; 

vt_row - (y < vt_maxrow) ? y : vt__maxrDW-l ; 


break; 

case 'C': /* move cursor right */ 

if (vt_nl « 0) 

vt_nl - 1; 
y = vt_col + vt_nl; 

vt_col = (y < vt_iaaxcQl) ? y ; vt_maxcol-l; 
break; 

case 'D'; /* move cursor left */ 

if (vt_nl “ 0) 

vt_nl - 1; 

vt_col = (vt_nl < vt_col) ? (vt_col - vt_nl) : 0; 
break; 

case 'H': /* move cursor home */ 

if (vt_nl =“ 0) 

vt_row =“ 0; 

else if ((vt_row = vt_nl-l) >- vt_raaxrow) 
vt_row - vt_maxrow - 1; 
if (vt__n2 —“ 0) 

vt_col “ 0; 

else if ((vt_col == vt_n2-l) >= vt_maxcol) 
vt_col = vt_maxcol - 1; 

break; 

case /* clear screen */ 

if (vt_nl == 0) 

if ((vt_row — 0) 44 (vt_col = 0)) 
vt_nl = 2; 

switch (vt_nl) { 

case 0: /* clear from cursor to end */ 

for (y => vt_cQl ; y < vt_raaxcol ; y++ ) 

bmputc{vt_row+vtrow_ofs,y+vtcol_ofs,' '); 
for (X - vt_row+l; x < vt_maxrow ; x++ ) 
fcmblank(x+vtrow_ofs); 

break; 

case 1: /* clear from beginning to cursor */ 
for (X = 0; X < vt_row ; x++ ) 
bmblank(x+vtrow_ofs); 
for (y - 0; y <== vt_col ; y++ ) 

bmputc(vt_row+vtrow_ofs,y+vtcol_ofs,' '); 

break; 

case 2: /* clear entire screen */ 
bmclear(); 

} 

break; 

case 'K': /* clear line */ 

switch (vt_nl) { 

case 0: /* clear from cursor to end */ 

for (y = vt_col ; y < vtjnaxcol ; y++ ) 

bmputc(vt_row+vtrow_ofs,y+vtcol_ofs,' '); 

break; 

case 1: /* clear from beginning to cursor */ 
for (y = 0 ; y <= vt_col ; y++ ) 

tanputc (vt_row+vtrow_ofs, y+vtcol_of s,' ') ; 

break; 

case 2: /* clear entire line */ 

bmblank(vt_row+vtrow_ofs); 

} 

break; 

case 'L'; /* insert line(s) */ 

if (vt_nl ==“ 0) 

vt_nl - 1; 

if (vt_nl > vtjmaxrow - vt_row) 

vt_nl *= vt_maxrow - vt_rbw; 

for (x=»vt_maxrow-l, y-vt_raaxrow-vt_nl-l; y >- vt_row; x—, y—) 
bmcpl(x+vtrow_ofs, y+vtrow_ofs); 
for ( ; X >- vt_row ; x— ) 

tmblank(x+vtrow_ofs); 

break; 

case 'M': /* delete line(s) */ 

if (vt_nl — 0) 

vt_nl ” 1; 

if (vt_nl > vt_raaxrow - vt_row) 

vt_nl “ vt_maxrow - vt_row; 

for (x-vt_row, y-vt_row+vt_nl; y < vt_maxrow; x++, y++) 
bmcpl(x+vtrow_ofs, y+vtrow_ofs); 
for ( ; x < vt_maxrow ; x++ ) 
brablank(x+vtrow_ofs); 
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break; 

case 'P': /* delete character(3) */ 

if (vt_nl =— 0) 

vt_nl - 1; 

if (vt_nl > vt_niaxcol - vt_col) 

vt_nl - vt_maxcol - vt_col; 

for (x-vt__col, y=vt_col+vt_nl; y < vt_maxcol; x++, y++) 
bramvc(vt_row+vtrow_ofs, x+vtcol_ofs, 

vt_row+vtrow_ofs, y+vtcol_ofs); 
for { ; X < vt_maxcol ; x++ ) 

hmputc(vt_row+vtrow_o fs,x+vtcol_o fs,' '); 

break; 

} 

bminvert (vt_row+vtrow_ofs, vt_col+vtcol_ofs) ; 

{ 

switch <c) { 
case 'g' : 

if (vt_nl —■ 0) 

vt_tabset[vt_col] » 0; 
else if (vt_nl — 3) 

for (x - 0 ; X < vt_niaxcol ; x++ ) 
vt__tabset [x] = 0; 

break; 

case 'm': /* set normal display or reverse video */ 

for (x = 0; X <- vt_mparam; x++) 
switch (vt_n[xl) { 

case 0: /* turn imderline off, set nomal background */ 
if (brnbck 1= branormal) { 

fcmswitchO; /* invert font table */ 
brnbck = branormal; 

} 

hmcolor = brnbck; /* underline off */ 

break; 

case 1: case 7: /* set reverse image */ 
if (brobck — branormal) { 

bmswitchO; /* invert font table */ 
brnbck = branormal ? 0 : -1; 

} 

break; 

case 4: !* set underline */ 

hracolor = bmbck ? 0 : -1; 


te_putc = vt__putc; 


vt_attrb(c) /* \E[? */ 

char c; 

{ 

int vt_atrb (), vt_j)utc () ; 

if(c >- '0' && c <= '9') 

te_putc - vt_atrb; 

else 

te_j)utc = vt_putc; 


vt_atrb{) 

{ 

int vt_putc(); 
te_putc “ vt_putc; 


vt^advance () 


if (++vt_col >- vt_raaxcol) { /* 'ATaps around */ 

Vt_COl 0; 

if (++vt_row >- vt_niaxrow) { /* on last line */ 

bit(bmscrn+90*9,brascrn+90*9*2,9*90*38); 
vt row — vt winscrl; 
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* Copyright 1982 UniSoft Corporation 

* Use of this material is subject to your disclosure agreement with 

* AT&T, WTestern Electric and UniSoft Corporation. 

* 

* Bitmap Display Driver 

* The screen is 720 by 364 raster units. A comfortable pixel size is 

* 9 by 10 giving 80 columns (9 wide) and 36 lines (10 deep). The 

* extra 4 raster rows are unused. Unfortunately this arrangement is 

* very expensive in processor time since pixels lie across byte boundaries. 

* For the time being the pixel size used will be 8 by 9 providing a 

* screen area of 90 columns, and 40 lines. 

* 

* This is the low level display driver intended to simplify the task 

* of writing higher level screen emulators by simulating just the common 

* aspects of all crts in the following functions; 

* 

* brainit () clears entire display 

* bminvert (row, col) invert character at row, column 

* tanputc (r, c, char) put the character at row, column 

* bmwin (and, t, b, 1, r) modifies window (top,bot, left, right) ; 

* and =™ 1 means scroll up a line 

* and 0 means clear that area 
*/ 

^define FAST 
^define NODEBUG 
iinclude <sys/mrau,h> 

#include <sys/types.h> 
finclude <sys/local.h> 

#include <sys/bmfont.h> 


char *bsnscrn; 
char bracolor; 
char bmbck; 
char bmnorrnal; 
char banfirst ■= 1; 


/* pointer to screen — initialized in bminit */ 

/* underline color; same as bmbck for no underlining */ 

/* current background color; 0 for white, -1 for black */ 
/* normal background color; 0 for white, -1 for black */ 
/* is this the first boot? (not true for a restart) */ 


bminit () 
{ 


/* one time screen initialization (called frommch.s) */ 


register short i; 
register long *p; 
extern long bblank[]; 


/* amount of screen in longs */ 


*HEMEND -= SCRNSIZE; /* lop off mem for screen */ 
bmscrn =- *MEMEND; /* logical screen address */ 
VIDADDR -> ((int) (bmscrn+*MEMBASE)»15); /* init screen addr latch */ 

i = ((SCRNSIZE - (MAXCOL * MAXROW * V_RESO)) » 2) - 1; 
p “= (long *) (bmscrn + (MAXCOL * MAXROW * V_RESO)) ; 


do { /* so retrace lines won't show */ 

*p++ == -1; 

} while (—i !- -1); 

bracolor - 0; /* bmcolor switches in bminit if bmbck is -1 */ 

bmbck = -1; 

branormal -= -1; 

braclear() ; 

if (Ixtifirst) { 

bmfirst - 0; 
fcanswitch () ; 
braclear I) ; 

} else { 

bmcolor =■ -1; 

for (i-0; i<16; i++) 

bblank[i] = -1; 
braclear(); 


bracolor - (tancolor ? 0 : -1 ) ; 
bffiifont 0; 


bmifontO /* invert the font table (set or reset rev. video) */ 

{ 

register short i; /* amount of screen in longs */ 

register char *f, g; 
extern long bblank[j; 

i - sizeof(bmfont) - 1; 
f = bmfont; 
do { 

g = ~*f; 

*f++ = g; 

} 

while (—i I- -1); 
for (i^O; i<16; i++) 

bblank[i] = ( bblank[i] ? 0 : -1); 

} 

bmsinvO /* invert the entire screen */ 

{ 

register short i; /* amount of screen in chars */ 

register char *p, q; 

i - MAXCOL * MAXROW * V_RESO; 
p = bmscrn; 

do { 

q - ~*p; 

*p++ — q; 

} while (—i 0); 

} 

#ifndef FAST 

/* Modify a section of the display 

* Crad is 0 to clear the area, positive to scroll up that many lines 

* or negative to scroll down that many. 

*/ 

bmwin (and, tr, br, Ic, rc) 

short and, br, Ic, rc; 
register short tr; 

{ 

register short wrap, j, i; 
short cols, rows; 
register char *pc, *ec; 
register char color - bmcolor; 

pc - bmscrn; 

fifndef NODEBUG 

if (tr<QI Itr>“HAXROW|1br>-MAXCOL|j br<tr 

I I lc<0 I I lO-MAXCOL I I rO-MAXCOL | | rc<=*lc) { 

printf("bmwin(%s,%d,%d,%d,%d) is illegalXn", 

crad?"scroll":"clear", tr, br, Ic, rc); 

return; 

} 

#endif 

/* Calculate number of logical lines to operate on */ 
rows = br - tr + 1; 

/* Calculate number of columns (bytes) accross screen */ 
cols - rc - Ic + 1; 

/* Wrap is an offset to be added to scan line pointers at the end of 

* each line to bring them around to the start of the next line. 

* It is the number of columns not being scrolled (usually zero) 

*/ 

wrap = BPL - cols; /* wrap around offset */ 

/* Pc points at the upper area of the screen (ie, that which will 

* receive the scroll data). 

*/ 

pc +- tr * (short)(BPL * V_RESO) + Ic; 

/* I is the number of scan lines to operate on. ie. the nioraber of 

* lines in the window minus the ntuttber of lines to scroll. 
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/* copy line si to dl */ 


♦else FAST 
bmcpKdl, si) 
register dl, si; 

{ 

register char *dest, *src; 

dest - hmscrn + (dl * (BPL * V_RESO)); /* register a5 */ 

src - hmscrn + (si * (BPL * V_RESO)); /* register a4 */ 

/* Use the 13 registers a6, aS-aO and d7-d0 to copy 52 bytes at a time. */ 


asm(" 

moveml 

fOxFFFF,spe- «); 


/* 

save 

all the 

registers 

asiaC* 

moveml 

a48,tQx4FFF «); 


/* 

move 

52 

bytes 

*/ 

asm(" 

moveml 

#0x4FFF,aSe *•); 







asmC 

moveml 

a4@(52),#0x4FFF ■ 

); 

/* 

move 

52 

bytes 

*f 

asmC* 

moveml 

#0x4FFF,a5e(52) « 

); 






asraC* 

moveml 

a4e(104),40x4FFF 

") 

f* 

move 

52 

bytes 

*f 

asm(" 

moveml 

*0x4FFF,a5e(104) 







asmC* 

moveml 

a40(156),#Ox4PFF 

•*) 

/* 

move 

52 

bytes 

*i 

asmC* 

moveml 

#0x4FFF,a5§(156) 

") 






asmC* 

moveml 

a4§(208),#0x4FFF 

•») 

/* 

move 

52 

bytes 

*/ 

asmC* 

moveml 

#0x4FFF,a58(208) 

") 






asra(** 

moveml 

a48(260),#0x4FFF 

“) 

/* 

move 

52 

bytes 

*/ 

asm(** 

moveml 

♦Ox4FFF,a50(260) 

**) 






asm(*' 

moveml 

a4e(312),*0x4FFF 

") 

/* 

move 

52 

bytes 

*/ 

asm(** 

moveml 

♦0x4FFF,aS8(312) 

•*) 






asmC* 

moveml 

a48(364),40x4FFF 

-) 

/* 

move 

52 

bytes 

*/ 

asm(** 

moveml 

#Ox4FFF,a50(364) 

-) 






asm(** 

moveml 

a4§(416),40x4FFF 

•*) 

/* 

move 

52 

bytes 


asm(** 

moveml 

♦0x4FFF,358(416) 

") 






asm(** 

moveml 

a48(468),#0x4FFF 

**) 

/* 

move 

52 

bytes 

*/ 

asmC* 

moveml 

♦0x4FFF,aSe(468) 

••) 






asm(** 

moveml 

a48(520),#0x4FFF 

") 

/* 

move 

52 

bytes 

*/ 

asm(*' 

moveml 

#0x4FFF,a58(520) 

") 






asraC* 

moveml 

a4e(572),40x4FFF 

■•) 

/* 

move 

52 

bytes 

*/ 

asm(*' 

moveml 

♦0x4FFF,a58(572) 

") 






asm(** 

moveml 

a4e(624),40x4FFF 

-) 

/* 

move 

52 

bytes 

*; 

asm(** 

moveml 

♦0x4FFF,a58(624) 

") 






asm(** 

moveml 

a48(676),40x4FFF 

*) 

/* 

move 

52 

bytes 

*/ 

asm(** 

moveml 

#0x4FFF,a58(676) 

-) 






asmC* 

moveml 

a48(728),#0x4FFF 

") 

/* 

move 

52 

bytes 

*/ 

asmC* 

moveml 

#0x4FFF,358(728) 

") 






asm(** 

moveml 

a4@(780),#Ox7F '•) 

; 

/* 

move 

28 

more bytes */ 

asmC* 

moveml 

♦0x7F,358(780) ") 







asm(** 

raovw 

348(808),a50(8OS) 

■*] 

/* 

move 

last 2 bytes */ 

asm(" 

moveml 

sp8+,#0xFFFF •'); 








♦ifdef lint 

if (dest) 

return; 
else if (src) 

return; 

♦endif lint 

} 

♦endif FAST 
♦ifndef FAST 

bmblank(dl) /* blank line dl */ 

register dl; 

{ 

register char *dest; 
register short i; 

dest - bmscrn + (dl * (BPL * V_RESO)); 
i - BPL * V_RESO; 
do { 

*dest - bmnormal; 

dest++; /* 1 scan line */ 

} while (>“i != 0); 

} 

♦else FAST 

hmblank(dl) /* blank line dl */ 

register dl; 

{ 

register char *dest, *a4; /* NOTUSED */ 

extern long bblank[]; 

dest “ bmscrn + (dl * (BPL * V_RESO)); /* register aS */ 
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asm(" 

moveml 

#0xFFFF,sp@- "); 


/* 

save 

all the registers */ 

a4 *= 

(char * 

Jbblank; 





asm(" 

moveml 

a4e,#0x4FFF «); 


/* 

set 

a6,a3“aO,d7‘-dO to blanks 

asm(" 

movl 

a6,a4 "); 


/* 

set 

a4 to blanks *f 

asm(" 

moveml 

#0x5FFF,a58 


/* 

move 

56 bytes */ 

asm{" 

moveml 

#0x5FFF,a5e(56) 

"); 




asm(" 

moveml 

#0x5FFF,a5§(112) 

“) 




asm(" 

moveml 

#0x5FFF,a5@(168) 

“) 




asm(" 

moveml 

#0x5FFF,a5e(224) 

") 




asra(" 

moveml 

#Qx5FFF,a5§(280) 

••) 




asm(" 

moveml 

#0x5FFF,a58(336) 

") 




asm(" 

moveml 

#0x5FFF,358(392) 

“) 




asra(" 

moveml 

#0x5FFF,a58(448) 

") 




asm{" 

moveml 

+0x5FFF,a58(504) 

") 




as3n(" 

moveml 

*0x5FFF,aSe(560) 





asm(" 

moveml 

#0x5FFF,a58(616) 

") 




asm(" 

moveml 

#0x5FFF,a5e(672) 

") 




asm(" 

moveml 

#0x5FFF,358(728) 

-) 




asm(" 

moveml 

#0x3F,350(784) « 

); 

/* 

move 

another 24 bytes */ 

asra(" 

movw 

_bblank,a5e(808) 

'•); 

r /* 

move 

last 2 bytes */ 

asm(" 

moveml 

sp8+,#0xFFFF "); 






#ifdef lint 

if (dest) 

return; 
else if {a4} 

return; 

fendif lint 

} 

#endif FAST 

bmputc (r, c, k) /* draw a char at location r, c */ 

register short r, c; 
char k; 

{ 

register char *p •= hmscrn; 
register char *f = &bnifont[0]; 
register short i; 

fifndef NODEBUG 

if (r < 0 I I c < 0 I I r >= HAXROW M C >- MAXCOL) { 

printf{"bmputc(%d, %d, '%c') is illegal\n",r,c,k); 
return; 

} 

#endif 

p +“ (r * (BPL * V_RESO)) + c; 
f += (k - ' M « 3; 

i - FONTVERT - 1; 
do { 

*p = *f++; 
p +- BPL; 

} while (—i 1“ -I) 

*p bmcolor; 


long bbiank[16]; 
int savesp; 

bmclear() 

{ 

int x; 

fifdef lint 

savesp++; 

♦endif 

X - spl7() ; 

asm(" raoveral ♦OxFFFF,sp^- "); 
asm(" movl sp,_savesp "); 

asm(" moveml _bblank,#0xFFFF 

asin(" movl _bmscrn, sp ; 

asm(" addl #32400,sp ; 

asm("l$: moveml #0xFFFE,sp@- "); 
asmC* moveml #0xFFFE, spg- ") ; 

asin(" moveml #0xFFFE, sp0' ") ; 


/* bytes in font table for one char */ 

/* 1 scan line =•- 90 bytes */ 

/* blank row under cursor */ 









